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Vorwort 
Sehr geehrte Leserin, sehr geehrter Leser, 


mit der C-1570/71 Floppy steht Ihnen eines der leistungsfähigsten 
54-Zoll-Laufwerke, die es für Homecomputer gibt, zur 
Verfügung. Sie verarbeitet zwei unterschiedliche COMMODORE- 
Diskettenformate und eine Unzahl verschiedener CP/M Disketten. 
Ausserdem sind die COMMODORE-Floppies wohl die einzigen 
Laufwerke, die sozusagen einen eigenen Computer enthalten - 
nämlich eine selbständige Mikroprozessorsteuerung. 


Das Floppy-Buch soll Ihnen helfen, alle Funktionen der C-1570 
und der C-1571 kennenzulernen. Unter diesem Aspekt ıst auch 
der Lesewegweiser auf der nächsten Seite entstanden. Denn mein 
Ziel ist es, Sie zu einem erfolgreichen Einsatz der Floppy hinzu- 
führen. Ob Sie blutiger Anfänger oder gewiefter Profi sind, spielt . 
dabei keine Rolle. Das 1570/71-Floppy-Buch ist allerdings nicht 
nur ein Lehrbuch, sondern vor allem auch ein Nachschlagewerk. 
Das besondere Bonbon des Buches ist der Diskmonitor. Ein Pro- 
gramm, für das man normalerweise einige blaue Scheine hinlegen 
muß. Mit diesem sehr komfortablen Hilfmittel sind alle nur 
denkbaren Manipulationen auf der Diskette ausführbar. Überzeu- 
gen Sie sich doch einfach selbst. Kapitel 6.1.1 beschreibt alle 
Funktionen des Diskmonitors. 

Auch die Profis werden am Floppy-Buch Ihre Freude haben. Vor 
allem das ROM-Listing stellt eine Weltpremiere dar. Noch nie 
wurde so ausführlich dokumentiert. Die Unterschiede zu bisheri- 
gen ROM-Listings sind nicht nur rein optisch feststellbar. Die 
Leistung des Listings zeigt sich erst im Detail. Einsprungpunkte 
und Aufrufadressen sind nur zwei Punkte, die in anderen Listings 
nicht zu finden sind (Näheres in 7.2). 


Zum Schluß möchte ich Ihnen viel Spaß bei der Arbeit mit Ihrer. 
C-1570/71 wünschen und dies umso mehr, als Ihnen mit diesem 
Buch ein erheblich tieferer Zugang zu den Leistungen dieser 
Floppy ermöglicht wird, als dies nur mit dem Handbuch je er- 
reicht werden könnte. 


Rainer Ellinger Oktober 1985 
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Lesehinweise - Ein Wegweiser durch das Buch 


Sie haben nun ein sehr dickes Buch in der Hand, vollgestopft mit 
Informationen über die C-1570/71. Wie soll man sich da 
zurechtfinden? 


Natürlich hat jedes Buch ein Inhaltsverzeichnis. Für spezielle 
Probleme gibt es außerdem ein Stichwortverzeichnis. Dies gehört 
zum Standard. Doch für ein wirklich hilfreiches Handbuch genügt 
das nicht. Deshalb ist zum Beispiel das Stichwortverzeichnis sehr 
umfangreich gestaltet worden und wird ergänzt durch eine thema- 
tische Zusammenfassung. Sie werden sich aber wohl trotzdem fra- 
gen, wo Sie mit der Lektüre dieses Buches beginnen sollen. 


Aus diesem Grund gibt es die nebenstehende Lesetabelle - eine 
Art Wegweiser. Für jeden Typ von Leser, das heißt, jede Art von 
Vorkenntnissen wird ein Fahrplan zum Einstieg in das Buch 
angegeben. Dabei handelt es sich hauptsächlich um die Kapitel, 
die Ihren bisherigen Kenntnisstand erweitern. Sollten Sie in einem 
Kapitel einmal etwas nicht verstehen oder noch nie gehört haben, 
dann liegt das meistens daran, daß Sie eines der vorherigen Kapi- 
tel nicht gelesen haben. Durch das Buch zieht sich vom Anfang 
bis zum Ende ein roter Faden, da die Kapitel aufeinander auf- 
bauen. Wer den Inhalt der vorherigen Kapitel nicht kennt, hat es 
unter Umständen schwer, den weiteren Teilen zu folgen. 
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Die einzelnen Spalten stehen für folgende Vorkenntnisse: 


nn 2 ww 


Noch nie einen Computer gehabt, völliger 
Einsteiger. Noch nie mit Floppy gearbeitet. 
Umsteiger von anderen Computern. Aufsteiger 
vom C-64 ohne Floppy. BASIC gehört zum 
Repertoire. 

Umsteiger von anderem Computer mit Floppy. 
Umsteiger von VC-1541. 

Umsteiger von anderem Computer mit Floppy. 
Maschinensprache-Freak. | 

Umsteiger von WVC-1541. Maschinensprache- 
Freak 
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Lesewegweiser 


er 


Kapitel 1.1, 1.2, 1.3, 1.4, 1.5 


Di 


Kapitel 1.1, 1.3, 1.4, 1.5, 5.1 


3 


Kapitel 1.2 und 1.3 


4 - 


Kapitel 2.1, 2.2, 2.3, 3.1 und 4 


5. 


Kapitel 2.2, 3.1, 4, 5.2, 6, 7 und 8 


6 - 


Kapitel 6, 7 und 8 


Alle anderen Kapitel sollten nach Interessenschwerpunkten genutzt 
werden. Ist das Basiswissen erst einmal vorhanden, bieten sie dem 
nun schon fortgeschrittenen Einsteiger problemlos weitere 
. Informationen. Die Grundlagenkapitel zeigen sich als sinnvoll auch 
für den Profi, dem sie zum Nachschlagen und Überprüfen 
hilfreich sein werden. 
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KAPITEL1 
EINFÜHRUNG FÜR EINSTEIGER 
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14 | Ein führung für_ den Einsteiger 


1.1 DER ERSTE KONTAKT MIT DER FLOPPY 
1.1.1 NACH DEM AUSPACKEN 


Natürlich möchten Sie jetzt sofort loslegen und Ihre Floppy in 
Betrieb setzen. Trotzdem ist es ratsam, sich noch ein paar 
Momente zu gedulden und diese einleitenden Kapitel durchzu- 
lesen. Zuerst behandeln wir das Aufstellen und Anschließen der 
Floppy. In den folgenden Kapiteln geht es dann um das Daten- 
medium selbst - die Diskette. Sind Sie damit schon vertraut, so 
können Sie gleich mit Kapitel 1.1.3 fortfahren. 


Zum Floppylaufwerk wird folgendes mitgeliefert: 


Netzkabel 

Verbindungskabel zum Computer 
Test-/Demo-Diskette 
Bedienungsanleitung 


Schließen Sie die C-1570/71 zuerst mit dem 220-Volt-Netzkabel 
an die Stromversorgung an. Achten Sie darauf, daß das Gerät 
dabei ausgeschaltet ist. Danach müssen Sie das Floppylaufwerk mit 
dem Computer verbinden. Dazu dient das Kabel, das Sie vielleicht 
an Ihre Stereoanlage erinnert. Leider können aber die üblichen 
Hifi-Kabel nicht verwendet werden, da die Steckerbelegung an- 
ders ist. 
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Stecken Sie das Kabel zuerst in die entsprechende Buchse am 
Computer (siehe Abbildung 1). 


Abb. 1 Die Rückseite des C-128 


Danach wird es einfach mit einer der beiden Buchsen an der 
Floppy verbunden. Jedes Gerät, das Sie an den Computer an- 
schließen können (Floppy, Drucker, usw.) hat immer zwei 
Buchsen. Sonst könnten Sie nur ein Zusatzgerät am Computer 
betreiben, da dieser nur eine Ausgangsbuchse hat. Folglich dient 
eine der beiden Buchsen der Floppy als Eingang und die andere 
als Ausgang. Eine zweite Floppy oder ein Drucker werden dann 
an dieser Ausgangsbuchse der C-1570/71 angeschlossen. In welche 
der zwei Buchsen Sie das Signal vom Computer einspeisen, spielt 
keine Rolle. Wichtig ist nur, daß die andere Buchse dann nur als 
Ausgang verwendbar ist. Zwei Computer an einer Floppy - das 
funktioniert natürlich nicht. 
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Netzbuchse 


Ein-/Ausschalter 


DIP-Schalter 


Ein-/Ausschalter Serieller Bus 


Netzbuchse 


Abb. 2 Die Rückseite der Floppies 1570 und 1571 


Wenn Sie eine 1571 besitzen, sollten Sie, bevor Sie das Gerät in 
Betrieb nehmen, einmal die beiden kleinen Schalter, auch DIP- 
Schalter genannt, an der Gehäuserückseite betrachten. Deren 
Funktion werden wir in 1.2.1 besprechen. Sie sollten beide in die 
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obere Schaltposition bringen. Bei der 1570 befinden sich diese 
Schalter im Gehäuseinneren und sind bereits richtig eingestellt. 


Jetzt ist alles vorbereitet und Sıe können das Laufwerk einschal- 
ten. Dabei leuchtet bei der C-1570 die grüne und bei der C-1571 
die rote Betriebsanzeige auf und der Motor läuft kurz an. Die 
grüne (1570) bzw. rote (1571) Anzeige zeigt wie an Ihrem Rechner 
an, daß das Laufwerk eingeschaltet ist. Wenn Sie denn Ein- 
schaltvorgang genau beobachten, werden Sıe bemerken, daß die 
andere Leuchtdiode kurz aufleuchtet. Ist dies alles eingetreten, 
dann funktioniert Ihre C-1570/71 einwandfrei. Blinkt die rote 
(1570) bzw. grüne (1571) Anzeige, dann hat die interne 
Selbsttestroutine einen Fehler gefunden. In diesem Fall hilft Ihnen 
das Fehlerkapitel 6.3.6 weiter. 


Die rote (1570) bzw. grüne (1571) Leuchtdiode dient normaler- 
weise auch als Betriebsanzeige. Sie zeigt an, daß auf die eingelegte 
Diskette gerade zugegriffen wird. Solange diese Anzeige leuchtet, 
dürfen Sie die Diskette nicht aus dem Laufwerk nehmen. 
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 Betriebsanzeige Funktionsanzeige 


Abb. 3 Die Vorderseite der Floppies 1570 und 1571 


Das große Flo buch 1571/70 19 


1.1.2 WAS IST EINE DISKETTE? 


Vinylhülle 


Schreibschutz- 
Kerbe 
Magnetischer 
Datenträger 
Indexloch 


Öffnung für 


Schreib-/Lesekopf \ 
Antriebsloch 


Arretierkerben 


Abb. 4 Diskette 


Abbildung 4 zeigt eine 5#-Zoll-Floppy (zu deutsch etwa: 
’Schlappscheibe’). Natürlich fällt sofort die große Öffnung an der 
unteren Seite auf. Hier kommt der eigentliche Datenträger, eine 
Magnetscheibe, zum Vorschein. Der Schreib-/Lesekopf im 
Laufwerk, der die Daten auf die Diskette transferiert und von ıhr 
liest, ist so angebracht, daß er den Datenträger an dieser Stelle 
berühren kann. Die Disketten müßen mit dieser Schreiböffnung 
voran in das Laufwerk eingeschoben werden (Abbildung 5). Nun 
müßen Sie bei der C-1571 nur noch den Verschlußhebel in die 
senkrechte Position drehen. Die C-1570 hat einen Klappverschluß, 
der nach unten zu drücken ist, bis er einrastet. Die Diskette wird 
im Antriebsloch eingespannt. Dabei läuft der Motor kurz an. 
Dadurch soll die Diskette besser justiert werden, denn genau dies 
ist bei diesem Laufwerkstyp ein Problem. Achten Sie also darauf, 
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daß die Diskette bis zum Anschlag eingeschoben ist. Wenn Sie das 
Laufwerk ın Betrieb nehmen, rotiert die Diskette mit etwa 5 Um- 
drehungen in der Sekunde (300 U/min). Daher daher befindet sich 
die Magnetscheibe in der Plastikhülle, die aber nicht nur dem 
mechanischen Schutz der empfindlichen Magnetschicht dient. 
Zusätzlich ıst an der Innenseite ein Reinigungsvlies angebracht. 
Dieses entfernt Staubteilchen und kleine Verschmutzungen. Dabei 
müßen Sie bedenken, daß eine auf der Diskette gespeicherte 
Information gerade ein paar tausendstel Zentimeter groß ist - so 
wird auch schon die kleinste Verunreinigung zum Datenkiller. 
. Behandeln Sie deshalb Ihre Disketten immer mit Sorgfalt und 
berühren Sie nie die eigentliche Magnetscheibe. Ihre Finger sind 
immer etwas fettig, und Fett kann das Reinigungsvlies nicht mehr 
entfernen. Beachten Sie auch die weiteren Hinweise auf der 
Rückseite jeder Papphülle, in die Sie Ihre Disketten nach Ge- 
brauch immer wieder zurückstecken sollten. Achten Sie auch 
darauf, daß nie eine Diskette eingelegt ist, wenn Sie das Laufwerk 
ein- oder ausschalten (kleine unkontrollierte Spannungssprünge am 
Schreibkopf könnten wichtige Daten zerstören). 


Der eckige Einschnitt an der rechten Seite ist die Schreib- 
schutzkerbe (engl. Write Protect). Sie soll, wie der Name schon 
sagt, unbeabsichtigtes Schreiben oder Löschen von Daten verhin- 
dern. Dazu wird die Kerbe einfach zugeklebt. Doch auch der 
teuerste Klarsichtklebestreifen hilft nichts, da diese Kennung mit 
einer Lichtschranke abgefragt wird. Also genügen einfache kleine 
Klebeetiketten aus dem Schreibwarengeschäft oder die jeder 
Diskettenpackung beigelegten Klebeetiketten. 
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Abb. 5 So wird die Diskette in das Laufwerk eingelegt 


Jetzt ergibt sich natürlich die Frage, wie. Daten auf Diskette 
gespeichert werden? Dies geschieht selbstverständlich nicht 
willkürlich. Um die Daten auch wiederfinden zu können, wird die 
Diskette in Spuren beschrieben (Abbildung 6). Bringt man Daten 
auf die Diskette, so müßte man sich nur ’die Spurnummer merken 
und schon kann man die Daten auch wiederfinden. Eine Seite, 
einer im C-1570/71 Laufwerk verwendeten Diskette, besteht aus 
maximal 40 Spuren, mit je einer Kapazität von etwa 5000 
Zeichen. Hat man aber zum Beispiel nur 1000 Zeichen, die man 
speichern möchte, so würde ein großer Teil der Spurkapazität 
verschenkt. Deshalb werden die Spuren nochmals unterteilt. Man 
zerlegt sie in verschiedene Sektoren, also Spurbereiche. Die ganze 
Diskette ist so in 40 Spuren unterteilt, die aus je 18 bis 21 Sek- 
toren bestehen, wovon jeder wiederum 256 Zeichen aufnehmen 
kann. Diese Sektoren werden fortlaufend durchnumeriert. Wenn 
wir jetzt 1000 Zeichen speichern möchten, würden diese vier 
Sektoren der Spur belegen, wobei der letzte Sektor nicht ganz aus- 
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genützt würde. Die restlichen Sektoren der Spur würden weiterhin 
zur Datenspeicherung zur Verfügung stehen. 


Wie aber erkennt das Floppylaufwerk, wo ein Sektor auf der Spur 
beginnt und wo er endet? Dies erfolgt über eine spezielle 
Markierung auf der Diskette - das Indexloch. Sie sicher schon das 
kleine Loch in der Diskette bemerkt, das direkt neben dem 
Antriebsloch liegt. Dieses kleine Loch wird mit einem Lichtstrahl 
im Laufwerk abgetastet. 


Auf dem eigentlichen Datenträger befindet sich nun das oben 
genannte Indexloch. Gelangt das Indexloch durch das Drehen der 
Diskette ın ihrer Hülle an die Stelle, an der das entsprechende 
Loch in der Hülle angebracht ist, so trifft der Lichtstrahl nicht 
mehr auf den Datenträger, sondern fällt durch das Indexloch hin- 
durch auf eine Art Photozelle, wodurch der Schreib-/Lesekopf die 
Information erhält, daß sich genau unter ihm der erste Sektor 
jeder Spur befindet. Von dieser Stelle aus kann man problemlos 
die Position der anderen Sektoren berechnen. Dabei muß der 
Lesekopf nur die errechnete Zeit abwarten, um den Anfang eines 
beliebigen Sektors zu erreichen. 


Doch welchen Vorteil hat diese Methode? Würde man vor jeden 
Sektor ein Indexloch einstanzen, dann wäre das doch viel ein- 
 facher? Der Nachteil liegt aber auf der Hand. Die Länge eines 
Sektors wäre unveränderbar vorbestimmt. Hat man nur ein Index- 
loch und zählt die Sektoren ab, so ist die Sektorgröße variabel. 
Man legt lediglich den Beginn des ersten Sektors fest. Die Position 
der weiteren Sektoren kann man aus der Sektornummer und der 
Sektorlänge errechnen. 


Die Indexloch-Methode wird hauptsächlich im Betriebssystem 
CP/M verwendet. Disketten, dıe Sie im C-64- oder C-128-Modus 
verwenden, benötigen nicht einmal mehr das Indexloch. Damit das 
Laufwerk trotzdem weiß, wo ein Sektor beginnt, werden auf die 
Diskette spezielle Synchronisations-Marken (kurz: Sync- 
Markierung) geschrieben. Das Laufwerk erkennt diese Markierun- 
gen und kennt dadurch die Startstelle eines Sektors. Das Laufwerk 
weiß jetzt, wo ein Sektor beginnt. Doch wo ist der erste Sektor 
der Spur? Welche Nummer hat der Sektor, der gerade gefunden 
wurde? 
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Um auch dies zu erkennen, hat jeder Sektor einen sogenannten 
Header (zu deutsch etwa: Kopfstück). Der Header besteht einfach 
aus Zusatzinformationen, die vor den eigentlichen Daten abge- 
speichert werden. Das sind unter anderem die Nummer der Spur, 
auf der sich der Sektor befindet, und die Nummer des Sektors. 
Damit kann sich die Laufwerkselektronik auf der Diskette 
zurechtfinden. Soll ein bestimmter Sektor gelesen werden, so 
analysiert das Laufwerk einfach den nächsten Header. Nun kennt 
es die Spur, auf der der Kopf gerade steht und kann die richtige 
Spur ansteuern. Darauf muß nur noch, anhand der ım Header 
abgelegten Nummern, der richtige Sektor gefunden werden. 


Schon bald werden Sie sich dann fragen, auf welchen Sektoren Sie 
Ihre Daten abgelegt haben? Zu schnell hat man das vergessen. 
Und wenn man es sich notieren will, entsteht ein beträchtlicher 
Verwaltungsaufwand - eine C-128-Diskette hat immerhin über 
1300 Sektoren. Diese Arbeit wird deshalb auch vom Laufwerk 
erledigt. Dazu werden auf der Diskette verschiedene Verzeichnisse 
angefertigt, zum Beispiel eine Tabelle, in der vermerkt ist, ob ein 
Sektor schon mit Daten belegt oder noch frei ist. Anhand dieser 
Tabelle beschreibt das Laufwerk dann die Sektoren. 


Damit die Verwaltungsarbeit nicht zu zeitaufwendig, ist wird das 
Verzeichnis in einen speziellen Pufferspeicher im Laufwerk ein- 
gelesen und am Ende der Operation wıeder zurückgeschrieben. 
Wechselt man die Diskette zwischenzeitlich, dann befindet sich 
das falsche Verzeichnis irn Puffer und beim Speichern würden 
unter Umständen die falschen Sektoren besch.'ieben. Also muß ein 
Diskettenwechsel vom Laufwerk erkannt wercen. Deshalb enthält 
der Header eines Sektors noch weitere Dateı, so zum Beispiel 
. zwei sogenannte Indentifikationszeichen (kurz! ID). Auf. jeder 
Diskette steht eine andere Zeichenkombination. Das Laufwerk 
merkt sich immer die Zeichen des letzten gelesenen Headers. Wird 
der nächste Sektor gelesen, so wird die ID dieses Headers mit der 
letzten verglichen. Hat sich die ID geändert, dann weiß das 
Laufwerk, daß die Diskette gewechselt wurde. 
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Abb. 6 Der Aufbau einer Diskettenspur 


1.1.3 DIE DISKETTENFORMATE 


Wie Sıe gesehen haben, gibt es viele Möglichkeiten, wie eine 
Diskette aufgebaut sein kann: Indexloch- oder Sync-orientiert; mit 
128, 256, 512 oder 1024 Bytes (Zeichen) pro Sektor; mit ver- 
schiedenen Sektorzahlen pro Spur usw. Darüberhinaus gibt es noch 
verschiedene Laufwerkstechniken. Die C-1570/71 beschreibt 40 
Spuren pro Diskettenseite. Es gibt aber auch Laufwerke, die auf 
einer Seite 80 Spuren beschreiben können (höhere Spurdichte). 
Außerdem gibt es unterschiedliche Aufzeichnungsverfahren. Dies 
sind hauptsächlich verschiedene Datenraten, die deshalb als Single 
Density (einfache Schreibdichte) oder Double Density (doppelte 
Dichte) bezeichnet werden. Schließlich gibt es noch die 
Verzeichisse über Sektor- und Diskettenbelegung. Deren Aufbau 
hängt völlig vom verwendeten Computertyp ab, letztendlich also 
vom Hersteller des Computers. 


: Diese Vielfalt an Variationsmöglichkeiten hat zur Folge, daß es 
mehr Diskettenformate als Computerproduzenten gibt. Das heißt, 
daß Sie C-1570/71 Disketten, die im C-128-Modus verwendet 
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werden, nicht einfach im C-64-Modus verwenden können - ganz 
zu schweigen von anderen Computertypen. 


Wo bekommt ‘man nun Disketten mit diesem speziellen 
COMMODORE-Format? Habe ich schon die falschen gekauft? 


Nein, Disketten im COMMODORE-Format kann man nicht 
kaufen. Worauf Sie lediglich achten müssen, ist die Zahl der 
Spuren, die die Disketten aufnehmen können. Da die C-1570/71 
40 Spuren verwendet und dies die kleinst mögliche Anzahl ist, 
können Sie da gar nichts falsch machen. Disketten für 80 Spuren 
sind nicht erforderlich und kosten mehr (da höherwertiger). Das 
einzige, was Sie unbedingt beachten müssen ist, daß die Disketten 
für doppelte Schreibdichte geeignet sind (Double Density; kurz: 
DD), die einfache Schreibdichte reicht nämlich nicht aus. Ausser- 
dem müssen sie beidseitig verwendbar sein (Double Sided; kurz: 
DS). Disketten, die Sie kaufen, sind immer leer. Wie kommen 
dann aber das Commodore-Format, die Sync-Markierungen, usw. 
auf die Diskette? Diese Arbeit erledigt die Floppystation und wird 
als Formatierung bezeichnet. Jede Diskette müssen Sie also, bevor 
Sie sie verwenden können formatieren. Mehr darüber in 
Kapitel 1.2.2. 
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DATEN DER COMMODORE-FORMATE 


Gear a | 
en 
EEE 


Zahl der Sektoren pro Spur 
Spur 1-17 
Spur 18 - 24 
Spur 25 - 30 
Spur 31 - 35 


DATEN DER cPp/ M-FORMATE 


Sana I 
Bits pro Sekunde 500000 500000 


Zahl der Sektoren pro Spur 
26 
16 
9 
5 | 


128 Bytes pro Sektor 
256 Bytes pro Sektor 
512 Bytes pro Sektor 
1024 Bytes pro Sektor 


Gesamzahl der Sektoren 
128 Bytes pro Sektor 
256 Bytes pro Sektor 
512 Bytes pro Sektor 
1024 Bytes pro Sektor 


Das große Floppybuch 1571/70 27 


1.2 DIE FLOPPY UND COMMODORE BASIC 
1.2.1 VON BASIC 2.0 BIS BASIC 7.0 


Um die C-1570/71 nun zum Arbeiten zu bringen muß man ihr 
Befehle erteilen. Dies ist nicht sehr kompliziert. Geben Sie einfach 
den Befehl in den Computer ein und betätigen Sie die RETURN- 
Taste. Durch diese Taste weiß der Computer, daß der Befehl aus- 
geführt werden soll. Wie Sie sicher schon wissen, heißt die 
Sprache, ın der Ihr C-128 die Befehle erhalten möchte, BASIC. 


Doch mit der Programmiersprache BASIC ist es wie mit dem 
Deutschen. Jede spricht zwar Deutsch, trotzdem haben es ein 
Norddeutscher und ein Bayer schwer, sich miteinander zu 
verständigen. Genauso gibt es auch bei BASIC eine Vielzahl von 
Dialekten. Die Grundbefehle sind zwar meistens gleich, doch die 
etwas anspruchsvolleren Kommandos sind bei jeder Version etwas 
anders. Selbst die BASIC-Versionen eines einzelnen Computer- 
herstellers, in unserem Fall COMMODORE, verstehen sich auf 
dem Gebiet der Floppy-Befehle nicht miteinander. Die folgende 
Tabelle zeigt die verschiedenen COMMODORE BASIC-Versionen 
und die dazugehörigen Computer (nach Erscheinen geordnet): 


PET 2000 BASIC 1.0 


CBM 3000 BASIC 3.0 
CBM 8000 BASIC 4.0 
VC-20 / C-64 BASIC 2.0 
C-16 / Plus 4 BASIC 3.5 


C-128 BASIC 7.0 


Die Versionsnummern geben nicht etwa die Erscheinungsfolge an. 
Vielmehr ist diese Zahl ein Maß für das Niveau des BASIC. So ist 
BASIC 4.0 eben etwas leistungsfähiger als BASIC 2.0. Doch auch 
hier gibt es keine Regel ohne Ausnahme. BASIC 3.5 müßte 
eigentlich 4.5 heißen, weil es noch wesentlich mehr leistet als das 
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BASIC der CBM 8000er. Wie Sie auch sehen, ist die Zahl 7.0 weit 
von den übrigen Versionsnummern entfernt, genauso weit, wie das 
Niveau des C-128-BASIC - das leistungsfähigste, das 
COMMODORE je heräusgebracht hat. 


Für uns spielt die Version 3.0 eine entscheidende Rolle. Hier 
besteht nämlich ein wichtiger Einschnitt. Alle BASIC-Versionen 
größer als 3.0 haben sehr komfortable Floppy-Befehle. Bei den 
anderen Versionen ist die Floppybedienung etwas umständlicher. 
Die Syntax der Versionen, die kleiner gleich 3.0 sind (in diesem 
Buch immer BASIC < 3.0 genannt), wird natürlich auch von den 
großen Versionen verstanden. Die zusätzlichen Floppy-Befehle bei 
BASIC > 3.0 funktionieren aber nicht auf den Rechnern mit 
kleineren Versionen. In den folgenden Kapiteln werden immer 
beide Befehle, sowohl von BASIC < 3.0, als auch von BASIC > 
3.0, angegeben. 


Zu guter letzt gibt es noch eine dritte Möglichkeit, Floppyfunk- 
tionen zu verwenden - im eingebauten Maschinensprache-Moni- 
tor. Die Syntax dieser Befehle ıst ähnlich der BASIC-Versionen 
kleiner 3.0 und zusätzlich angegeben. 


Alles scheint kein Problem zu sein. Man gibt einen Befehl ein und 
schon beginnt die C-1570/71 mit der Arbeit. Doch, was passiert, 
wenn zwei Laufwerke an den Computer angeschlossen sind? 
Woher weiß der Computer, für welches Laufwerk der Befehl gel- 
ten soll? Aus diesem Grund erhält jedes an den C-128 
angeschlossene Gerät eine Nummer. Die Floppy hat dabei 
normalerweise die Nummer 8, ein Drucker hat die Nummer 4 und 
der Kassettenrekorder Nummer 1. Diese Nummer nennt man 
Geräteadresse. Wenn Sie nun ein zweites 1570/71-Laufwerk haben 
kann dieses natürlich nicht auch die Adresse 8 erhalten. Man ihm 
eine andere Adresse zuordnen. Dazu diehnen die zwei kleinen 
DIP-Schalter. Diese befinden sich bei der C-1571 unter dem Ein- 
/Ausschalter an der Rückseite der Floppy. Mit einem Bleistift 
können Sie sie problemlos verstellen. Bei der C-1570 ist dies etwas 
komplizierter. Die Schalter befinden sich auf der Platine im 
Gehäuseinneren, an der rechten Seite. Um sie zu verstellen, 
müssen Sie also das Gehäuse aufschrauben. Dabei ist zu beachten, 
daß der Hersteller eventuell Garantieleistungen verweigert, da sie 
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die Floppy eigenmächtig geöffnet haben (obwohl man das kaum 
feststellen kann). 


Die einzelnen Schalterstellungen entsprechen folgenden Geräte- 


adressen: 
Schalter 1 Schalter 2 Geräte- 
links rechts adresse 


Die DIP-Schalter werden immer nach dem Einschalten (Reset) 
abgefragt. Sie müssen also die Floppy einmal Aus- und wieder 
Einschalten, damit sie die neue Adresse annimmt. 


Veranschaulichen wir uns jetzt einmal den Datenverkehr zwischen 
Computer und Floppy. Die C-1570/71 kann ja nicht nur Pro- 
gramme speichern, sondern auch Dateien verwalten. Nehmen wir 
an, es würde gerade mit zwei Dateien gleichzeitig gearbeitet und 
man möchte ın eine der Dateien neue Daten schreiben. Wenn man 
die Daten nun übermittelt, woher weiß die Floppy, ın welche 
Datei sie gehören? Oder vielleicht gehören sie ja auch zu einem 
Programm, daß wir zwischenzeitlich abspeichern wollen? 


Um dieses Problem zu lösen, gibt es zur Floppy sogenannte 
Datenkanäle. Jeder der Kanäle wird dabei nur für bestimmte Auf- 
gaben benutzt. Man kann das etwa mit den Funkfrequenzen ver- 
gleichen. Auf der einen Frequenz gibt es nur Polizeifunk und der 
andere Kanal ist nur für die Amateurfunker. 

Bei den COMMODORE-Floppies gibt es insgesamt 16 Kanäle. 
Davon können aber überlicherweise nur drei bis vier gleichzeitig 
benutzt werden. Den Kanälen wird, wie den einzelnen Geräten, 
eine Nummer zugeteilt. Die folgende Tabelle zeigt die Verwen- 
dung der Kanäle. 
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0 
l 


Load 

Save 

für Dateien 
Befehlskanal 


Um einen bestimmten Kanal zu aktivieren, gibt es beim C-64 wie 
auch beim C-128 den ’Open’-Befehl. Die Syntax des Befehls sıeht 
folgendermaßen aus: 


OPEN X,Y,Z,"daten/name" 


Die Parameter Y und Z kennen Sie schon. Y ist die Geräteadresse 
der angesprochenen Floppy, die man auch Primäradresse nennt. Z 
gibt die Kanalnummer an, die Sekundäradresse. Danach kann man 
schon beim Eröffnen Daten oder den Namen einer Datei über- 
mitteln. Soll dies unterbleiben, lautet der Befehl OPEN X,Y,Z. 
Solche Angaben, die nicht unbedingt zur Ausführung eines Be- 
fehls erforderlich sind, nennt man ’optional’. Der Begriff 
’optionaler Parameter’ taucht auch in den folgenden Kapiteln noch 
oft auf. Derartige Informationen können weggelassen werden, 
wenn man sie nicht benötigt. Das Komma, das die Angabe von 
den übrigen Parametern abgrenzt, muß natürlich auch entfallen. 


Was Sie noch nicht kennengelernt haben, ist der Parameter X. 
Dies ist eine beliebige Zahl zwischen O0 und 255. Diese Zahl wird 
dem Kanal zugeordnet. Wollen wir wieder Daten an den Kanal 
senden, dann geschieht das mit dem PRINT#-Befehl. Jetzt genügt 
die Angabe der logischen Kanalnummer (X), und der Computer 
kennt die zugeordneten Primär- und Sekundäradressen. Ist die Ar- 
beit auf einem Kanal abgeschlossen, dann muß dies dem 
Computer mit ’CLOSE X’ mitgeteilt werden. Die logische Kanal- 
nummer verkürzt also die Angaben bei jedem weiteren Befehl, 
wodurch die Arbeit mit der Floppy einfacher wird. 


Diese Kanalbefehle sind besonders bei der Dateiverwaltung 
wichtig. Daher werden sie in 1.4 und 1.5 ausführlich besprochen. 
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1.2.2 HEADER - FORMATIEREN EINER DISKETTE 


BASIC > 3.0: HEADER "diskettenname",Dx,Iyy,Uz 


Abkürzung: heA 


BASIC < 3.0: OPEN 1,z,15,"Nx:diskname,yy" 


Monitor: @z,Nx:diskname 


Parameter (optional): 


DE: x = Laufwerksnummer (0/1) 
Iyy: yy zwei ID-Zeichen 
Uz: z = Geräteadresse des Laufwerks (4..15) 


In Kapitel 1.1.3 sprachen wir vom Formatieren. Jede neue, leere 
Diskette muß formatiert werden, bevor man sie zur Daten- 
speicherung verwenden kann. Dabei werden die Sync- 
Markierungen, Header und Sektoren angelegt. 


Sollen neue Disketten formatiert werden, muß eine ID angegeben 
werden. Diese beiden Identifikationszeichen erlauben es dem 
Laufwerk, Disketten zu unterscheiden und festzustellen, wenn 
eine neue Diskette eingelegt wird. Deshalb ist es wichtig, bei jeder 
Diskette eine andere Zeichenkombination zu verwenden. Die ID- 
Informationen werden beim Formatieren in jedem Sektorheader 
abgelegt. Weiter sind die ID-Zeichen auch im Inhaltsverzeichnis 
(Titelzeile) der Diskette angegeben. Soll die ID einmal nachträglich 
geändert werden, dann hilft der in 6.1 beschriebene Diskmonitor 
weiter. 


Weiter müssen Sie beachten, daß ın BASIC 7.0 nicht alle 
Zeichenkombinationen richtig funktionieren. Dies liegt daran, daß 
der Computer die Zeichen als BASIC-Befehl interpretiert und 
anstelle der Zeichen die entspechenden Kurz-Codes verwendet. 
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Keine Angst, es gibt schon noch genügend Kombinationen, die 
erlaubt sind. Zusammen mit den Ziffern 0-9 sind es 1296 
Möglichkeiten. Wenn Sie davon 100 nicht benützen können, dürfte 
Sie das nicht allzu sehr einschränken. Ausserdem kann man auch 
auf den BASIC-<3.0-Befehl ausweichen. 


Folgende Kombinationen funktionieren nicht: 
(Bitte Klein- und Großschreibung beachten) 


on fn to aP aU bA bE bL bO bS bU cA cI cO dC dt dO dR dS dV eN fA fE fI fR 
gR gS hE jO kE mO pA pE pL pO pU rC rD rE rR rS rU rW sC sL sO sP sS ST sW 
tE tR vO wI x0 aB aN aS aT cH cL cM cO dA dE dI eN eX fO fR gE gO iN lE II 
{O mI nE nO oP pE pO pR rE rI rN rU sA sG sI sP sQ sT sY tA tH uS vA VE wA 


Wenn Sie den Header-Befehl ohne ID aufrufen, wird die Diskette 
nicht neu formatiert, sondern nur gelöscht. Dabei gehen trotzdem, 
wie beim vollständigen Formatieren, alle Daten verloren. Deshalb 
fragt der Computer vorher mit ’Are you sure ”, ob Sie sicher 
sind, daß die Diskette formatiert oder gelöscht werden soll. Wenn 
ja, beantworten Sie die Frage mit ’y’ wie ’Yes’ (ja). Es kann 
natürlich auch sein, daß sie den Header-Befehl im Programm 
verwenden. Dann wird allerdings nicht gefragt, ob Sie auch wirk- 
lich sicher sind, die Diskette zu formatieren. Der Befehl wird 
sofort ausgeführt. Für Sicherheitsabfragen müssen Sıe in Ihrem 
Programm selbst sorgen. 


Wie Sie bereits aus 1.1.3 wissen, sind die Diskettenformate im 
C-64- und im C-128-Modus nicht identisch. CP/M-Disketten 
haben wiederum einen völlig anderen Aufbau. Die Abweichungen 
ım 64er und 128er Modus beruhen darauf, daß sich das Floppy- 
laufwerk im 64er Modus oder an einem C-64 angeschlossen wie 
eine 1541-Floppy verhält. Befindet sich der Computer im 128er 
Modus, so schaltet sich das Laufwerk ın den 1571-Modus. Der 
. größte Unterschied zwischen den beiden Modi ist die Disketten- 
kapazität. Bei der 1571 werden Disketten beidseitig beschrieben, 
während die 1541 immer nur eine Seite verwendet, da sie nur 
einen Schreib-/Lesekopf hat. Trotzdem können 1571-Disketten 
auch im C-64-Modus verwendet werden - vorausgesetzt es ist ein 
C-1571-Laufwerk angeschlossen. Die C-1570 wiederum kennt 
keine 2. Seite und verhält sich immer wie eine 1541. 
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1.2.3 DLOAD/RUN - BASIC-PROGRAMME LADEN UND 
AUSFÜHREN | 


BASIC > 3.0: DLOAD "programmname",Dx,Uy 
RUN "programmname",Dx,Uy 


Abkürzung: dL / U | 


BASIC < 3.0: LOAD "x:programmname",y 
RUN "programm" ist nicht möglich 
optionale Parameter: x 


Monitor: L"x:programmname",yy,aaaa 
autom. Starten nicht möglich 
aaaa = Anfangsadresse des Programms 


Parameter (optional): 


Laufwerk (0/1) 
Geräteadresse (4..15) 


Jetzt wird es ernst. Nun geht es um die ersten Befehle zum Ar- 
beiten mit der Diskette. Dabei dürfte das Laufwerk wohl haupt- 
sächlich zum Speichern von Programmen benutzt werden. 


Deshalb wollen wir zuerst den Befehl besprechen, mit dem man 
ein Programm von der Diskette in den Computer einliest. Dieser 
heißt in seiner einfachsten Form 


DLOAD "programmname" 
Von dem englischen Ausdruck ’load’ abgeleitet spricht man im 


Computerjargon meistens vom ’Programm laden’. Das ’d’ beı 
’dload’ steht für ’Disk/Diskette’. Es handelt sich bei Dload nur um 
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eine Spezialversion des normalen Load-Befehls, bei der man die 
lästige Geräteadresse nicht angeben muß. 


Befindet sich gewünschte Programm auf der Diskette, dann wird 
in den Speicher des Computers geladen. Wurde das Programm 
nicht gefunden, so reklamiert der Computer mit 


FILE NOT FOUND 


Dies geschieht auch, wenn der Dload-Befehl in einem Programm 
verwendet wird. Ausserdem wird das Programm unterbrochen und 
der Computer kehrt in den Direktmodus zurück. 


Sıe können diesen Befehl einmal mit Ihrer Test-/Demo-Diskette 
ausprobieren. Versuchen Sie, die verschiedenen Programme von 
der Diskette zu laden. Soll das Programm sofort nach dem Laden 
gestartet werden, dann ist anstelle von ’Dload’ einfach ’Run’ zu 
verwenden. 


Eine noch größere Bequemlichkeit ermeglichen die Tasten ’°SHIFT 
+ RUN/STOP’. Betätigen Sie beide gleichzeitig, so erscheint auf 
dem Bildschirm automatisch der Befehl ’Dload ":*" (in abgekürzter 
Form) und danach ’Run’. Dadurch liest der Computer das erste 
Programm auf der Diskette und startet es. 


Natürlich gibt es bei den Ladebefehlen zwischen dem 64er und 
dem 128er Modus Unterschiede. Der gravierendste Gegensatz 
besteht in der Übertragungsgeschwindigkeit. Trotten beim C-64- 
Modus die Zeichen mit der gemächlichen Geschwindigkeit von 
400 Zeichen pro Sekunde über den Bus, so wird der C-128-Bus 
mit einer Übertragungsrate von 3500 Bytes pro Sekunde zur 
Rennbahn. In der Praxis bedeutet dies, daß zum Beispiel ein 
Grafikbild nicht mehr in etwa 20 Sekunden geladen wird, sondern 
schon nach 3 Sekunden zur Verfügung steht. 


Außerdem verhalten sich die Ladebefehle auch beim Nachladen 
(Overlay) von Programmen unterschiedlich. Während der C-64 
dabei normalerweise alle Variablen ’vergißt’, bleiben diese beim 
C-128 alle erhalten. So kann man große Programme problemlos in 
mehrere Teile zerlegen. | 
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1.2.4 DSAVE - BASIC-PROGRAMME SPEICHERN 


BASIC > 3.0: DSAVE "programmname",Dx,Uy 
Abkürzung: dS 


BASIC < 3.0: SAVE "x:programmname",y 
optionale Parameter: x 


Monitor: S"x:programmname",yy,aaaa,bbbb+l1 
aaaa/bbbb = Anfangs- und Endadresse des Programms 


Parameter (optional): 


Dx: x Laufwerk (0/1) 
Uy: y ‚Geräteadresse (4..15) 


Soll ein Programm vom Computerspeicher auf die Diskette über- 
tragen werden, dann geschieht das wie bei ’dload’ - hier aber mit 
dem Befehl ’dsave’. Wenn zum Beispiel ein BASIC-Programm 
abgespeichert werden soll, muß ein passender Name für das Pro- 
gramm gefunden werden. Nehmen wir an, es soll ’Minitest’ 
heißen. Der Speicherbefehl lautet: 


DSAVE "minitest" 


Dabei muß beachtet werden, daß der Name nicht mehr als 16 
Zeichen lang sein darf und bisher kein gleichnamiges Programm 
auf der Diskette existiert. Ausserdem gibt es einige Zeichen, die 
in Programm- und Dateinamen nicht verwendet werden dürfen. 
Diese Zeichen gehöhren meistens zu Befehlen oder haben Steuer- 
funktionen. Bei deren Gebrauch kann das Programm später nicht 
mehr geladen werden, weil dıe Floppy den Namen als Befehl 
interpretiert. Es handelt sich um die Zeichen: 


‚ı?*#& @ 
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Bald wird es allerdings vorkommen, daß Sıe Ihr Programm etwas 
geändert haben und die neue Version unter dem gleichen Namen 
abspeichern möchten. Dazu gibt man als erstes Zeichen ’@’ (at- 
Zeichen) an, danach den gesamten Namen des Programms, das 
man überschreiben will, also zum Beispiel | 


DSAVE "@minitest" 


Bei dieser Spezialfunktion wird zuerst das neue Programm abge- 
speichert und danach die alte Version gelöscht. Deshalb muß auf 
der Diskette immer noch soviel Platz sein, daß man das Programm 
zusätzlich (nicht ersetzend) abspeichern kann. Leider gibt es bei 
dieser Sache auch einen Wermutstropfen. Ist die Diskette fast voll, 
so arbeitet diese Ersetzungsfunktion fehlerhaft und es kann 
passieren, daß Ihr Programm verlorengeht. Sie sollten den ’@’ also 
mit Bedacht einsetzen - oder lieber gar nicht. In BASIC <3.0 
sowie beim Monitor muß nach dem ’@’ ein Doppelpunkt folgen, 
um den Programmnamen abzutrennen (z.B save "@:Minitest"). 


Die Speicherzeiten der 1570/71 sind allerdings nicht so be- 
rauschend, wie die Ladegeschwindigkeit. Dies verläuft genauso 
langsam wie bei der 1541. Ausserdem ist das Speichern generell 
langsamer als das Laden, da nach jedem Schreiben nochmals 
geprüft wird, ob die Daten auf der Diskette richtig gespeichert 
sind. 
Speicher und Ladezeiten im Vergleich 

[er Tee 

C-64 10K Byte-Programm iz 0:30 

C-64 10K Byte-Datei 0235| 2:45 


C-128 10K Byte-Programm 


C-128 10K Byte-Datei 
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1.2.5 DVERIFY - PROGRAMM ÜBERPRÜFEN 


BASIC > 3.0: DVERIFY "programmname",Dx,Uy,z 
Abkürzung: 


BASIC < 3.0: VERIFY "x:programmname",y,z 
optionale Parameter: x 


Monitor: V"programmname",yy,aaaa 
aaaa = Anfangsadresse des Programms 


Parameter (optional): 


 Dı: x = Laufwerk (0/1) 
Dy: y Geräteadresse (4..15) 
zZ: zZ = 0: relativ laden 1: absolut laden 


Dieser Befehl dient der Überprüfung eines Programms auf der 
Diskette. Er vergleicht es mit dem, das sich im Computer 
befindet. Stimmen beide überein, so meldet der Computer ’Ok’. 
Wenn nicht, erfolgt die Anzeige eines ’Verify Error’. 


’Dverify’ stammt eigentlich noch aus der Kassettenanwendung. 
Aufgrund der mangelhaften Speichersicherheit war es immer rat- 
sam, das abgespeicherte Programm nochmals zu überprüfen. Im 
Zeitalter der erschwinglichen Diskettenstationen ist diese Funktion 
eigentlich überflüssig. 


Außerdem überprüft die Floppy, nachdem sie Daten in einen 
Sektor geschrieben hat, diesen nochmals auf Richtigkeit. Verify 
wird von der 1570/71-Floppy bei jedem Speichervorgang automa- 
tisch durchgeführt. Deshalb benötigt das Speichern von 
Programmen auch etwas mehr Zeit als das Laden. 
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1.2.6 BLOAD/BSAVE - MASCHINENPROGRAMME 
SPEICHERN/LADEN 


BASIC > 3.0: BLOAD "programmname",Dx,Uy,ON 
Bz,Pa 
BSAVE "programmname",Dx,Uy,ON 
Bz,Pa TO Pb 


Abkürzung: bL / bS 


BASIC < 3.0: LOAD "x:programmname",y,l 
SAVE nicht vorhanden 
optionale Parameter: x 


Monitor: L"x:programmname",yy,aaaa 
S"x:programmname",yy,aaaa,bbbb 


optionale Parameter: 


Dx 
Uy 


Laufwerksnummer (0/1) 
Geräteadresse (4..15) 

Bank-Nummer (0..15) 

Startadresse des Bereichs (0..65535) 
Endadresse des Bereichs +1 (0..6535) 


Bload ist, wıe der Name schon sagt, ein Ladebefehl. Aber es gibt 
doch schon ’Dload’? Wozu soll ein weiterer Befehl dienen? 


Des Rätsels Lösung liegt in der Art und Weise, wie die Daten 
geladen werden. Bei Dload wird das Programm immer an den 
Start des BASIC-Speichers geladen, ungeachtet des Bereichs, aus 
dem es abgespeichert wurde. Bei BASIC-Programmen ist das nicht 
schlimm. Programme, die in Maschinensprache geschrieben sind, 
würden allerdings nicht immer laufen. Sie können nur in einem 
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bestimmten Speicherbereich funktionieren. Auch Grafikbilder 
müssen oft wieder an die Originalstelle geladen werden. 


Deshalb wird beim Speichern immer die Startadresse des Pro- 
gramms mit abgespeichert. Bload lädt das Programm wieder an 
diese Adresse. 


Das Gegenstück zu bload lautet ’bsave’. Damit können beliebige 
Bereiche abgespeichert werden. Bei Dsave wird immer nur ab dem 
Beginn des BASIC-Speichers gespeichert. 


Der entsprechende Lade- und Speicherbefehl des Monitors hat 
schon bei Dload bestimmte Bereichsangaben benötigt. Er ist nur 
speicherbezogen durchführbar. Doch in einem BASIC-Programm 
können die Monitorbefehle nicht angesprochen werden. Deshalb 
hat man Bload und Bsave eingebaut. 


Diese Floppy-Funktionen sind nämlich nicht wegzudenken. Man 
benötigt sie, um Sprites oder Grafikbilder in den richtigen 
Speicherbereich zu laden. Natürlich freuen sich auch die 
Maschinensprache-Programmierer, daß sie nun Maschinen- 
programme einfacher nachladen können. Bei diesen Anwendungen 
sollten Sie sich aber nicht auf die mit dem Programm abge- 
speicherte Startadresse verlassen. Geben Sie deshalb möglichst 
immer den Parameter ’Pa’ an. So können Sıe sicher sein, daß die 
Daten in den richtigen Speicherbereich geladen werden. Ansonsten 
kann es vorkommen, daß das Programm aus einem Bereich abge- 
speichert wurde, in dem nun wichtige Teile Ihres jetzigen Pro- 
gramms liegen - ein Systemabsturz wäre die Folge. 


Eines ist noch wichtig. Müssen im Monitor die Start- und 
Endadresse des Speicherbereichs hexadezimal angegeben werden, 
so ist dies in BASIC nur in dezimalen Werten erlaubt. Wenn Sie 
hexadezimale Angaben verwenden möchten, müßen Sie den Befehl 
’dec (" ") verwenden. Ausserdem funktioniert der Befehl, wie 
auch Variablen, nur, wenn er eingeklammert wird. 


Weiterhin hat der Bsave-Befehl bzw. der Monitor-Save-Befehl den 
Fehler, den Inhalt der letzten angegebenen Bereichsadresse nicht 
abzuspeichern. Geben Sie deshalb immer die Endadresse +1 an. 
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1.2.7 DIRECTORY/CATALOG - DER INHALT DER 
DISKETTE 


BASIC > 3.0: DIRECTORY Dx ON Uy,"name" 
CATALOG Dx ON Uy, "name" 


Abkürzung: diR / cA 


BASIC < 3.0: LOAD "$x:name",y : LIST 


Monitor: @y,x:$name 


Parameter (optional): 


Dx: x Laufwerksnummer (0/1) 

Uy: y Geräteadresse (4..15) 

name : Auswahlstring zum Selektieren 
bestimmter Dateien 


Wir haben jetzt mehrmals gespeichert und geladen. Welche Pro- 
gramme sind aber jetzt auf der Diskette? Unter welchem Namen 
wurde das letzte Programm nochmal abgespeichert? - Ein 
Inhaltsverzeichnis muß her. 


Damit Sie nicht zu Papier und Bleistift greifen müssen, führt die 
1570/71-Floppy automatisch ein Inhaltsverzeichnis der auf der 
Diskette gespeicherten Programme und Dateien. Dieses wird mit 
catalog’ oder mit ’directory’ aufgerufen. Warum aber zwei Befehle 
für ein und dieselbe Sache ? Dies ist wohl auch eine Art Tradition 
(wie Dverify), da im BASIC 4.0 der CBM-8XXX Computer beide 
Befehle implementiert wurden. Und BASIC 7.0 soll eben zu allen 
bisherigen COMMODORE-Dialekten kompatibel sein. 


Die Parameter sind die üblichen. Nur der "name" ist etwas Neues. 
Mit dieser Angabe können Sie, wenn Sie sie anführen, bestimmte 
Dateien auswählen, die angezeigt werden sollen. Dies ist aber nur 
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mit Joker sinnvoll, von denen Sie in 1.3.9 mehr erfahren. So ist es 
zum Beispiel möglich, nur die Enträge, deren Name mit ’a’ be- 
ginnt, aufzulisten. Fehlt die Namensangabe, dann wird das 
gesamte Inhaltsverzeichnis geliefert. 


Nun zum Inhaltsverzeichnis selbst. Schauen wir uns dazu einmal 
ein Beispiel an: 


titel 


1 
2 
3 
4 
5 
blocks 


In der invers dargestellten Titelzeile werden Laufwerksnummer, 
Diskettenname, ID und Diskettenformat angezeigt. Das Laufwerk 
ist bei der 1571 natürlich immer 0, da es ein Einzellaufwerk ist. 
Der darauf folgende Diskettenname und die beiden ID-Zeichen 
wurden beim Formatieren (siehe 1.2.2) festgelegt. Die Kennung 
’2A’ dient nur dazu, zu erkennen, um welches Commodore Format 
es sich handelt. 


Anschließend folgen die Dateieinträge. Zuerst wird dabei die Zahl 
der von der Datei belegten Blöcke (Sektoren) angegeben. So hat 
man eine Vorstellung davon, wie groß das Programm oder die 
Datei ist. Danach folgt der Name des Eintrags und zu guter letzt 
der Dateityp. Diese Angabe infomiert über die Art des Eintrags, 
also ob es sich um eine Datei, ein Programm usw. handelt. Die 
einzelnen Dateitypen werden durch Kürzel dargestellt: 


DEL = gelöschter Eintrag (deleted) 
PRG = Programm 

SEQ = Sequentielle Datei 

USR = User-Datei 

REL = Relative Datei 


Zum Schluß folgt die Angabe, wie viele Sektoren (Blöcke) auf der 
Diskette noch frei sind. 
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1.2.8 SCRATCH - PROGRAMME UND DATEIEN LÖSCHEN 


BASIC > 3.0: SCRATCH "namel,name2,..",Dx,Uy 
Abkürzung: sC 


BASIC < 3.0: OPEN 1,y,15,"Sx:namel,name2.,..." 
optionale Parameter: x 


Monitor: @y,Sx:namel,name2.,.. 


Parameter: 


name: bis zu 5 Dateinamen durch Kommata 
getrennt 


Parameter (optional): 


Dx: x Laufwerksnummer (0/1) 
Uy: y Geräteadresse (4..15) 


Vielleicht haben Sie vielleicht ein paar Testprogramme abge- 
speichert und möchten sie wieder löschen. Dazu dient der 
’scratch’-Befehl. Er löscht den Eintrag aus dem Directory und gibt 
die von dem Programm oder der Datei belegten Blöcke wieder 
zum Beschreiben frei. 


Bis zu fünf Einträge können gleichzeitig gelöscht werden. Die 
Namen der einzelnen Dateieinträge werden durch Kommata 
getrennt. 


Doch wie schnell hat man die RETURN-Taste betätigt und das 
falsche Programm gelöscht, weil man den falschen Namen 
angegeben hat. Deshalb fragt der Computer in BASIC 7.0 vorher 
nochmals nach, ob Sie sich wirklich sicher sind (Are you sure’). 
Wenn ja, antworten Sie mit ’y’, wie ’yes’. Jede andere Taste führt 
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zum Abbruch. Wird die Frage positiv beantwortet, dann gibt es 
allerdings kein Zurück mehr - alle angegebenen Dateien werden 
gelöscht. Sollten Sie versehentlich den falschen Eintrag entfernt 
haben, dann hilft nur noch der Diskmonitor. Näheres darüber in 
Kapitel 6.3.2. | 


Die Daten des Eintrags werden beim Löschen nämlich nicht 
überschrieben, sondern nur als gelöscht gekennzeichnet. Soll eine 
gelöschte Datei wiederhergestellt werden, dürfen Sie nach dem 
versehentlichen Scratch-Befehl allerdings auf der Diskette nichts 
mehr abspeichern. Es ist ja möglich, daß dadurch die gelöschten 
Informationen überschrieben werden - danach gäbe es wirklich 
keine Rettung mehr. 


Nach den Löschen übermittelt die Floppy eine Rückmeldung an 
den Computer, die dieser in BASIC 7.0 auf dem Bildschirm 
ausgibt: 


01, FILES SCRATCHED, XX, 00 


Die Zahl XX gibt an, wie viele Dateien entfernt wurden. Dies ist 
besonders bei der Verwendung von Jokern interessant, um zu 
überprüfen, wieviele Einträge vom Löschen betroffen waren. 


Der Scratch-Befehl kann natürlich auch in einem BASIC-Pro- 
gramm verwendet werden. Die Frage ’Are you sure’ wird aber nur 
ım Direktmodus gestellt. Im Programm entfällt diese Rückfrage. 
Sie müssen also selbst dafür sorgen, daß Sie nicht die falschen 
Einträge löschen. Natürlich wird auch keine Rückmeldung an den 
Computer übertragen. Wenn Sie die Meldung im Programm über- 
prüfen möchten, müssen Sıe sıe von der Floppy anfordern. 
Darüber informiert Sie das nächste Kapitel. 


Zum Schluß sollten Sie noch eines beachten. Dateien, die im 
Directory mit einem Stern gekennzeichnet sind, dürfen nicht mit 
Scratch gelöscht werden. Bei diesen Dateien wurde der Speicher- 
vorgang unterbrochen. Deshalb ist die Sektorverkettung nicht in 
Ordnung. Beim Löschen würden unter Umständen auch noch an- 
dere Daten entfernt. Verwenden Sie deshalb bei mit ’* 
gekennzeichneten Dateien immer den Validate-Befehl. 


44 Einführung für den Einsteiger 


1.2.9 DS/DS$/ST - WENN EIN FEHLER AUFTRITT ... 


BASIC > 3.0: PRINT DS / PRINT DS$ / PRINT ST 
Abkürzung: ?DS/?DS$/?ST 


BASIC < 3.0: 10 OPEN 1,y,15 

20 GET#1,A$:PRINTAS; 
:IFST<>64THEN2O 

30 CLOSEI 

RUN 


Monitor: 


Nur wer nichts macht, macht keine Fehler. Und so wird es auch 
Ihnen sicherlich bald passieren, daß irgendetwas nicht richtig 
funktioniert. Stellen Sie sich nur vor, sie wollen ein Programm 
laden und haben keine Diskette eingelegt. Wie verhält sich jetzt 
die Floppy? Probieren Sıe es doch einfach einmal aus! 


Sofort fällt das Blinken der roten (1570) bzw. grünen (1571) 
Leuchtdiode auf. Befindet sich die Floppy im 1570/71-Modus, 
dann blinkt die Diode doppelt so schnell wie im 1541-Modus. Es 
handelt sich also um keine andere Fehlerart. Blinkt die Diode 
schon nach dem Einschalten, dann hat die interne Selbsttestroutine 
einen Fehler in der Betriebselektronik gefunden. Hier helfen nur 
noch die in Kapitel 6.3.6. gegebenen Informationen weiter. 


Damit Sie die Ursache für das Blinken erfahren, stellt das 
Laufwerk eine Fehlermeldung bereit. Diese kann über die Vari- 
ablen ’ds’ und ’ds$’ abgefragt werden. Deshalb dürfen Sie diese 
Variablennamen in Ihren Programmen nicht verwenden. Die 
Fehlermeldung kann allerdings nur einmal abgefragt werden. 
Danach erlischt auch die Floppy-Leuchtdiode. Bei der nächsten 
Abfrage erscheint wieder die ’Ok-Meldung’. Deshalb wird von 
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BASIC 7.0 die letzte Abfrage in ds/ds$ gespeichert. Mit ’ds$’ wird 
die komplette Meldung auf dem Bildschirm angezeigt. 


Schauen wir uns einmal den Aufbau einer solchen Fehlermeldung 
an: 


NN, MELDUNG, TT, SS 


Jeder Fehler hat eine Nummer (NN). Dadurch kann die genaue 
Fehlerursache bestimmt werden. Anschließend folgt der Name des 
Fehlers im Klartext, z.B. ’Read Error’ für einen Lesefehler. Die 
Angaben TT und SS stehen für Spur- (Track) und Sektornummer 
der Stelle, an der der Fehler aufgetreten ist. Die genaue Bedeu- 
tung der Fehler, die Ursachen und mögliche Abhilfen sind in 
Kapitel 8.6 aufgeführt. 


Wenn Sieanstelle von ’ds$’ nur die Variable ’ds’ benutzten, erhal- 
ten Sie nur eine Zahl - in diesem Fall die Fehlernummer. Dies ist 
oft bei der Analyse der Rückmeldung hilfreich. Ist ein Befehl 
fehlerfrei ausgeführt worden, dann gibt Laufwerk eine ’Ok’-Mel- 
dung aus, die die Nummer 0 hat. Selbstverständlich blinkt die 
rote/grüne (1570/1571) Leuchtdiode dann nicht. In Ihren Pro- 
grammen sollten Sie nach Floppybefehlen immer prüfen, ob ’ds’ 
Null enthät oder ein Fehler vorliegt. Dies kann beispielsweise 
durch diese Programmfolgen geschehen: 


C-64-Modus: 


10 open 1,8,15 : input#1 a,a$,b,c : close 1 
20 if a<>0 then print a;a$;b;c : stop 
für alle Rückmeldungen (auch scratch) 


10 open 1,8,15 : input#1,a,a$,b,c : close 1 
20 if a>19 then print a;a$;b;c : stop 
nur für Fehler (scratch ignorieren) 
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C-128-Modus: 


10 if ds<>O then print ds$ : stop 
für alle Rückmeldungen (auch scratch) 


10 ıf ds>19 then print ds$ : stop 
nur für Fehler (scratch ignorieren) 


Neben DS und DS$ gibt es noch eine weitere Variable, die über 
den aktuellen Systemzustand informiert, die Variable ST. 
Selbstverständlich dürfen Sie auch diesen Namen nicht für andere 
Variablen verwenden. Der Begriff ’ST’ stammt von ’Status’, und 
genau das ist auch die Funktion von ST. Die Variable informiert 
über den Status, also den Zustand des Ein-/Ausgabesystems. Die 
Tatsache, daß es sıch dabei hauptsächlich um den Kassetten- 
rekorder handelt, soll nicht weiter stören. Die Bits für die 
Kassettenanwendung wurden deshalb weggelassen: 


Bedeutung der Bits des Statusbytes 


Funktion 


Tıime-out beim Schreiben 
Time-out beim Lesen 
EOI Ende der Daten 
EOT Ende des Blocks 


Für den Diskettenbetrieb interessieren nur die Bits 0 und 1 sowie 
Bit 6 und 7. Bit 6 wird EOI genannt, was ’End of Information’ 
bedeutet, also das Ende der Datenübertragung anzeigt. So wird 
erkannt, wenn das letzte Zeichen einer Übertragung gesendet wird 
(siehe ds$ für BASIC <3.0). 


Die Bits 0 und 1 zeigen einen Time-out an. Wird ein Gerät, das 
am seriellen Bus angeschlossen ist, vom Computer angesprochen, 
dann muß es innerhalb einer bestimmten Zeit antworten. An- 
sonsten setzt der Computer vorraus, daß das Gerät nicht bereit ist. 
Wenn also die Zeitspanne ausläuft (Time-Out), werden diese Bits 
gesetzt. Der Grund für ein Time-Out kann darin liegen, daß das 
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Gerät nur zum Senden oder nur zum Empfangen von Daten 
geeignet ist. 


Die andere Möglichkeit wäre, daß das Gerät (z.B. eine Floppy) gar 
nicht angeschlossen ist. In diesem Fall ist das Signal ’EOT’ gesetzt. 
EOT bedeutet ’End of Tape’, ıst also ein Kassettenstatus, der auf 
den Floppybetrieb übertragen wurde. 


Die Variable ST wird nach jeder Floppyoperation entsprechend 
korrigiert. Ist das Laufwerk nicht angeschlossen oder ausgeschal- 
tet, so wird Bit 7 von ST gesetzt. In diesem Fall meldet sich der 
Computer sofort mit ’Device not present’. Erfolgte der vorher- 
gehende Floppybefehl in einem Programm, dann wird dieses 
beendet - eine äÄrgerliche Sache. Es ist aber möglich, in einem 
Programm abzufragen, ob das Laufwerk angeschaltet ist, wie die 
unten angegebenen Beispiele zeigen. Außerdem kann sogar ermit- 
telt werden, ob eine Diskette im Laufwerk liegt. 


C-64-Modus: 


10 poke 768,185 

20 open 1,8,15,"i" 

30 poke 768,139 

40 ifst andl28thenprintchr$(19)"Bitte Laufwerk 
anschalten":closel:goto1l0 

50 input#1,a:closel 

60 if a<>Othenprintchr$(19)"Bitte Diskette einlegen ": 
gotolO 


C-128-Modus: 


10 trap30 

20 open 1,8,15,"1":g0t040 

30 ifer=5thenprintchr$(19)"Bitte Laufwerk anschalten": 
closel:gotol0 

40 closel 

50 ifds<>Othenprintchr$(19)"Bitte Diskette einlegen ": 
gotolO 
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1.3 SYSTEMBEFEHLE DER FLOPPY 
1.3.1 DER BEFEHLSKANAL 


Wie Sie in 1.2.1 erfahren haben, kommuniziert der Computer mit 
der Floppy über spezielle Kanäle. So gibt es natürlich auch für die 
Fehlermeldungen aus dem vorherigen Kapitel einen eigenen 
Datenkanal - den Befehlskanal. 


Wie der Name schon sagt, ist der Kanal nicht nur für Fehler, son- 
dern vor allem für Befehle zuständig. Alle Floppy-Kommandos 
außer Load/Save/Open/Close, werden über diesen Kanal über- 
mittelt. Da dies recht umständlich ist (siehe BASIC < 3.0), gibt es 
in BASIC 7.0 eigene Floppy-Befehle. Diese führen allerdings 
nichts anderes aus, als die reinen Floppy-Kommandos zusammen- 
zustellen und an das Laufwerk zu übermitteln. 


Diese Floppy-Kommandos bestehen immer aus einem Buchstaben, 
der als Abkürzung für eine Funktion steht, wie z.B. ’s® für 
Scratch. Danach folgt die Laufwerksangabe. Dies ist ein 
Überbleibsel aus der Zeit der Doppellaufwerke der großen 
COMMODORE Computer. Die C-1570/71 ist ein Einzellaufwerk 
und deshalb immer Laufwerk 0. Sollten Sie trotzdem Laufwerk 1 
der Floppystation anwählen, so erfolgt eine Fehlermeldung. Ganz 
sinnlos ist diese Syntax nicht, denn COMMODORE plant auch für 
den C-128 eine Doppelstation, die 1572 heißen soll. Manchmal ist 
die Laufwerksangabe aber auch erforderlich, um bestimmte 
Funktionen anzuwählen (siehe Concat-Befehl). 


Müssen weitere Parameter, etwa Dateinamen, angegeben werden, 
dann folgt als Trennzeichen ein Doppelpunkt, danach die 
Parameter. Wird die Laufwerksangabe weggelassen, so nimmt die 
Floppystation immer Nummer 0 an. Dies bedeutet, daß Sie 
normalerweise bei der C-1570/71 von einer Laufwerksangabe ab- 
sehen können. Den Doppelpunkt dürfen Sie aber trotzdem nicht 
vergessen, wenn zum Befehlsbuchstaben weitere Daten übermittelt 
werden. | | | 
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In BASIC-Versionen <3.0 müssen die Floppy-Befehle immer über 
den Befehlskanal an das Laufwerk übermittelt werden (außer 
Load/Save).,. Um dem Computer mitzuteilen, daß er einen 
bestimmten Kanal zur Floppy einrichten soll, dient der ’Open’- 
Befehl. Damit wird der Kanalbetrieb eröffnet. Für den Befehls- 
kanal lautet dies beispielsweise: 


OPEN 1,8,15 


Die erste Ziffer ist dabei eine beliebige Nummer zwischen 1 und 
255, mit der der Kanal gekennzeichnet wird. Danach folgt die 
Geräteadresse der Floppy. In unserem Fall ist das die Standard- 
adresse acht. Die letzte Zahl gibt die Kanalnummer an, hier 
Nummer 15 für den Befehlskanal. Mehr über den ’Open’-Befehl 
enthalten die Kapitel 1.2.1, 1.4.1 und 1.5.1. 


Jetzt kann man über diesen Kanal Befehle an die Floppy senden. 
Soll zum Beispiel der Scratch-Befehl ausgeführt werden, dann 
muß ’s:dateiname’ übermittelt werden. Dazu dient der ’Print#’- 
Befehl: 


PRINT#1 ,"s:dateiname" 


In diesem Befehl finden wir auch die 1 vom °’Open’-Befehl 
wieder. Dadurch, daß wir dem Kanal beim ’Open’-Befehl eine 
Nummer zuteilen, müssen nicht jedesmal alle Angaben 
(Geräteadresse, Kanalnummer,usw.) neu genannt werden, wenn 
man eine Meldung auf einen speziellen Kanal geben möchte - die 
zugeteilte Kanalnummer genügt. 


Zum Schluß noch eine Kleinigkeit, die Sie aber unbedingt wissen 
sollten. Kommandos an die Floppy dürfen nicht länger als 41 
Zeichen sein. Der interne Pufferspeicher der C-1570/71 läßt nicht 
mehr zu. Bei sehr langen Dateinamen führt dies manchmal, 
besonders beim Scratch- oder Copy-Befehl, zu Einschränkungen. 
Es kann dabei einfach die mögliche Dateienzahl nicht aus- 
geschöpft werden. Grundsätzliche Nachteile entstehen Ihnen 
dadurch allerdings nicht. Sie müssen höchstens eine : Aufgabe in 
mehrere Teileschritte zerlegen. 
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1.3.2 COLLECT - ORDNEN DER DISKETTE 


BASIC > 3.0: COLLECT Dx ON Uy 
Abkürzung: collE | 


BASIC < 3.0: OPEN 1,y,15,"Vx" 
optionale Parameter: x 


Monitor: 
Parameter: 


Laufwerksnummer (0/1) 
Geräteadresse (4..15) 


Der ’Collect’-Befehl bringt die Verzeichnisse auf der Diskette 
wieder in Ordnung. Im Detail handelt es sich um das Directory 
und die BAM, das Verzeichnis der belegten und freien Blöcke. 


Beim ’Collect’-Befehl wird zuerst die BAM gelöscht. Danach stellt 
die Floppy zu jedem gültigen Dateieintrag die zugehörigen, von 
der Datei benutzten Sektoren fest. Diese werden dann in der BAM 
als belegt gekennzeichnet. Zum Schluss wird die neue BAM auf 
die Diskette geschrieben. Ausserdem entfernt der ’Collect’-Befehl 


auch alle ungültigen Einträge aus dem Directory. Doch was sind 
ungültige Einträge? 


Derartige Dateien sind durch einen Stern gekennzeichnet und 
entstehen immer, wenn der Eintrag nicht abgeschlossen wurde. 
Dies kann dadurch geschehen, daß eine Dateı angelegt aber nicht 
ordnungsgemäß beendet wurde. Dieser Fall tritt auch ein, wenn 
ein Programm abgespeichert wird, das größer als der freie Platz 
auf der Diskette ist. Das Abspeichern wird dann mit einer 
Fehlermeldung unterbrochen und alle vorher freien Blöcke sind 
belegt - hier hilft nur der ’Collect’-Befehl. 
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1.3.3 RENAME - UMBENNEN EINER DATEI IM DIRECTORY 


BASIC > 3.0: RENAME "alt" TO "neu", Dx,Uy 


Abkürzung: reN 


BASIC < 3.0: openl1,y,15,"rx:neu=alt" 
Monitor: @y,‚rx:neu=alt 
Parameter: 


alt: alter Dateiname 
neu: neuer Dateiname 


Parameter (optional): 


Dx: x = Laufwerksnummer (0/1) 
Uy: y = Geräteadresse (4..15) 


Mit diesem Befehl können Sie einem bestehenden Directory- 
Eintrag einen neuen Namen geben. Wie Sie oben im Syntax- 
diagramm sehen, ist dies nicht sehr kompliziert. 


Natürlich eignet sich diese Funktion nicht nur für Schönheits- 
reparaturen im Directory. Sie ist besonders interessant, wenn von 
Programmen aus mit Dateien gearbeitet werden soll. Die Dateien 
können immer den gleichen Namen behalten. Bei Änderungen in 
der Datei muß man diese unter einem Zwischennamen abspeichern 
und die alte Datei löschen. Danach wird der Zwischenname in den 
Namen der alten Datei umgeändert. Mit dieser Methode haben Sie 
am Ende immer nur einen Dateieintrag. Dies können Sie nicht nur 
für Dateien sondern auch beim Prorammerstellen verwenden. Auf 
diese Weise entstehen nicht 100 Versionen des Programms auf der 
Diskette, sondern immer nur die eine, die aktuellste, und das im- 
mer unter dem gleichen Namen. 
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1.3.4 CONCAT - DATEIEN VERKETTEN 


BASIC > 3.0: CONCAT Dx,"quelle" TO Dy,"ziel" ON 
Uz 


Abkürzung: | co 


BASIC < 3.0:OPENI1,z,15,"cy:ziel=y:ziel,x:quelle" 
optionale Parameter: x 


Monitor: @z,Cy:ziel=y:ziel,x:quelle 

Parameter: i 
ziel: Datei, an die Daten angehängt werden 
quelle : Datei die an ’Ziel’ angehängt wird 


Parameter (optional): 


Dx: x = Laufwerksnummer (0/1) 
Dy: y = Laufwerksnummer (0/1) 
Uz: z = Geräteadresse (4..15) 


Der ’Concat’-Befehl dient zur Ankettung einer Datei an eine 
bestehende. Dabei werden die Daten der Quelldatei an die Ziel- 
datei angefügt. Die Quelldatei wird nicht gelöscht. 


Diese Verkettung funktioniert allerdings nur mit sequentiellen 
Dateien (’SEQ’ oder ’USR’). Programme können auf diese Weise 
nicht zusammengefügt werden. Das ist ein Problem, das eher im 
Rechner, als in der Floppy zu lösen ist. Deshalb darf ich hier auf 
die Bücher zum C-128 verweisen, die im Literaturverzeichnis 
aufgeführt sind. 
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Der ’Concat’-Befehl ist eigentlich eine Kopierfunktion und de- 
shalb eine Art Copy-Befehl. Davon mehr im nächsten Abschnitt. 


1.3.5 COPY - DATEIEN KOPIEREN 


BASIC > 3.0: COPY Dx,"quelle" TO Dy,"ziel" ON Uz 


Abkürzung: coP 


BASIC < 3.0: 


OPEN1,z,15 
PRINT#1,"Cx:ziel=y:quellel,quelle2..." 
CLOSEI 


Monitor: @z,Cx:ziel=y:quellel ‚quelle2... 


Parameter: 


ziel: Name der neuen Datei 
quelle : Datei(en), aus der neue Datei bestehen 
soll 


Parameter (optional): 


Dx: x = Laufwerksnummer (0/1) 
Dy: y = Laufwerksnummer (0/1) 
UzZ!: z = 


Geräteadresse (4..15) 


Dieser Befehl kopiert einzelne Dateien. Bei einer Doppelstation 


erscheint dies sinnvoll - doch was bringt das bei einem 
Einzellaufwerk, wie der C-1570/71? Natürlich sind die 
Anwendungsmöglichkeiten des ’Copy’-Befehls etwas 


eingeschränkt. Es gibt aber durchaus zweckmäßige Einsatzgele- 
genheiten. Eine davon haben sie schon im vorherigen Kapitel, in 
Form des ’Copy’-Befehls kennengelernt . 


Bei einem Einzellaufwerk kann der Copy-Befehl zum Verketten 
von Dateien benutzt werden. Dabei wird eine neue Datei aus zwei, 
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drei oder gar vier bereits bestehenden Dateien gebildet. Die Daten 
der Quelldateien werden in der Reihenfolge, in der die Namen 
der Quelldateien angegeben werden, zu einer neuen Zieldatei 
zusammengefügt. Auf diese Art Weise können aber nur sequen- 
tielle Dateien verknüpft werden ('SEQ’ oder ’USR’). 


Selbstverständlich dürfen auch Programmdateien kopiert werden. 
Allerdings ist nur ein Quellprogramm zulässig. Programme können 
auf diese Weise nicht verknüpft werden. Dies ist ein Problem das 
man im Rechner lösen muß. 


Das Kopieren von Einzeldateien hat trotzdem einen Sinn. Sollen 
an Dateien Manipulatioen ausgeführt werden, dann sollte dies oft 
. zuerst an Duplikaten erprobt werden. Mit dem ’Copy’-Befehl 
koennen Sie eine Kopie der Originaldatei erstellen. 


Dabei darf ein Aspekt nicht übersehen werden: die Zieldatei muß 
einen Namen haben, der auf der Diskette noch nicht vorhanden 
ist. Aber auch hier gibt es einen Sonderfall. Wenn Sie sowohl bei 
der Quell- als auch bei der Zieldatei die Laufwerksnummer 
angeben und einen Namen verwenden, der schon auf der Diskette 
existiert, wird diese Datei von der neuen Zieldatei überschrieben. 
Nach dieser Methode arbeitet auch der ’Concat’-Befehl. 


Wenn Sie ein Programm von einer Diskette auf eine andere 
kopieren möchten, bediehnen Sie sich spezieller Kopier- 
programme. Ein derartiges Programm ist auf der Test-/Demo- 
Diskette unter dem Namen ’sd.copy.c64’° enthalten. Sie müssen 
dieses Programm im C-64-Modus laden und starten. Es hat 
allerdings den Nachteil, sehr langsam und unkomfortabel zu sein. 
Steht Ihnen der Sinn nach Höherem, so darf ich auf die zu diesem 
Buch erhältliche Diskette hinweisen. Im Anhang sind weitere In- 
formationen darüber aufgeführt. 
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1.3.6 BACKUP - DISKETTEN DUPLIZIEREN 


BASIC > 3.0: BACKUP D,x TO Dy,Uz 
Abkürzung: baC 

BASIC < 3.0: OPENI1,y,15,"Dy=x" 
Monitor: | 


Parameter: 


Laufwerksnummer der Quelldiskette 


(0/1) | 
Laufwerksnummer der Zieldiskette 
(0/1) 

Geräteadresse (4..15) 


Dies ist der einzige Befehl des C-128 bzw. der C-1570/71, der 
überhaupt nicht verwendet werden kann. Backup soll ganze 
Disketten duplizieren. Dabei wird die Zieldiskette auch 
gleichzeitig formatiert. Das kann nur bei zwei Laufwerken, also 
einer Doppelstation, funktionieren. Bei der C-1570/71, einer 
_ Einzelstation, ist dies natürlich sinnlos. 


Was aber ist zu tun, wenn komplette Disketten kopiert werden 
sollen? Derartige Sicherheitskopien können mit speziellen Kopier- 
programmen erstellt werden. Das auf der Test-/Demodiskette mit- 
gelieferte Programm ’DOS SHELL’ beinhaltet beispielsweise ein 
Kopierprogramm für Backups. 


Solch ein Kopierprogramm befindet sich auch auf der Diskette, 
die zu diesem Buch erhältlich ist. Dieses Programm kopiert nicht 
nur alle Daten der Diskette. Es entstellt.ein vollständiges Duplikat 
der Originaldiskette. Auch Lesefehler und Defekte werden über- 
nommen. Dadurch müssen Sie zum Beispiel Reparaturexperimente 
nicht am Orginal ausführen. 
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1.3.7 DCLEAR - SCHLIEßEN ALLER KANÄLE 


BASIC > 3.0 DCLEAR Dx, ON Uy 


Abkürzung: dclE 
BASIC < 3.0: nicht vorhanden 
Monitor: nicht vorhanden 


optionale Parameter: 


Dx: x 
Uy: y 


Laufwerksnummer (0/1) 
Geräteadresse (4..15) 


Dieser Befehl schließt alle Kanäle zur Floppy. Dies ist aber 
lediglich eine rechnerinterne Funktion. Alle entsprechenden 
Kanaltabellen werden geschlossen. Der Befehl sendet kein ’Kanal 
schließen’ (Close) an die Floppy. Offene Dateien können so nicht 
beendet werden. Dazu gibt es den Befehl ’Dclose’ (Siehe 1.4 und 
1:5). 


Deshalb hat der ’dclear’-Befehl bei Dateianwendungen kaum einen 
Sinn. Sie können damit aber eventuelle ’CMD-Kanäle’ zur Floppy 
abbrechen. Dabeı handelt es sich um Datenkanäle, auf die die 
normale Bildschirmausgabe mit CMD umgelenkt wurde. Auf diese 
Weise wird die Ausgabe anstatt auf den Bildschirm beispielsweise 
in eine Datei geschrieben. 


Wenn Sie den ’Dclear’-Befehl in Ihren eigenen Programmen ver- 
wenden, können Sie so sichergehen, daß die Ein- und Ausgabe 
auf die Standardgeräte erfolgt. | 
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1.3.83 BOOT - CP/M-BERIEBSSYSTEM STARTEN 


BASIC 7.0: boot "Name",Dx,Uy | 


Abkürzung: bO 


BASIC < 7.0: nicht vorhanden 


Monitor: gff88c (Sektor 1,0-Boot) 


Boot ist ein Befehl mit Doppelbedeutung. Werden Parameter 
(Name,...) angegeben, dann verhält er sich anders, als wenn diese 
weggelassen werden. Betrachten wir zuerst die einfachere Version 
- Boot mit Parametern. 


Das Wichtigste dabei ist der Name. Der Computer sucht ein 
Maschinenprogramm mit diesem Namen im Directory und lädt es 
in den im Dateieintrag angegebenen Speicherbereich der aktuellen 
Bank (normalerweise 0). Danach wird die Startadresse angesprun- 
gen. Sie müssen also dafür sorgen, daß an dieser Stelle auch etwas 
sinnvolles steht - ansonsten stürzt das Computersystem ab. 


Gibt man nur Boot alleın ein, dann liest der Rechner Sektor 0 auf 
Spur 1. Lauten die ersten drei Zeichen des Sektors ’cbm’, dann 
handelt es sich um einen Autoboot-Sektor. Ansonsten wird der 
Boot-Befehl beendet. 


Der Autoboot-Sektor muß nun eine Reihe von Daten und ein 
Startprogramm enthalten. Dieses ıst dann für weitere Aktionen 
(Nachladen usw.) verantwortlich. Im folgenden werden die Bedeu- 
tungen der Bytes kurz erklärt. Für ausführlichere Studien zum 
Boot-Befehl sei auf das Buch 128 INTERN verwiesen. In 
Kapitel 7.7 dieses Buches wird der Befehl ausführlich erklärt. 
Ausserdem ist auch das dazugehörige Kernal-Listing enthalten. 
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Aufbau des Boot-Sektors 
Funktion 
’CBM’-Kennung zur Identifikation 


Speicheradresse bei weiteren Boot-Sektoren 
Speicherkonfiguration bei Folgesektoren 


Zahl der noch folgenden Boot-Sektoren 
Boot-Meldung bei ’Booting ...’ bis $00 

Name des nachzuladenden Programms bis $00 
eigenes Boot-Programm 


Ist eine Boot-Meldung angeben, dann wird diese nach ’Booting’ 
auf dem Bildschirn ausgedruckt. Soll keine Meldung erfolgen, 
muß trotzdem das Trennzeichen $00 bei Byte 7 abgelegt sein. 
. Danach wird getestet ob weitere Boot-Sektoren geladen werden 
sollen (Byte 6 ungleich 0). Wenn ja, gelten dafür die Daten aus 
Byte 3 bis 5. 


Im folgenden wird der String, der nach der Boot-Meldung folgt, 
analysiert. Der Boot-Befehl lädt dann das gleichnamige Programm 
von der Diskette. 


Zuletzt kann dann noch eine eigene Boot-Routine eingebaut wer- 
den. Das Programm wird in den Kassettenpuffer im Speicher des 
Computers geladen und gestartet. Die Boot-Routine darf nie 
fehlen, da der Computer sonst den Kassettenpuffer anspringt und 
dort gar nichts sinnvolles steht. Ein Systemabsturz wäre die Folge. 
Die CP/M-System-Diskette wird ebenfalls mit Boot gestartet. Die 
Boot-Routine des Sektor 1,0 schaltet dabei den Z-80 an, der das 
Nachladen von CP/M-Plus organisiert. | | 


Wie Sie sicher schon gemerkt haben wird nach jedem Reset oder 
Einschalten des Computers automatisch der Boot-Befehl 
aufgerufen. Ist im Laufwerk eine entsprechende Diskette ein- 
gelegt, dann wird diese geladen und das Programm automatisch 
gestartet. 
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Diese Art des Ladens bietet sich auch bei professionellen Pro- 
grammen an. 


1.3.9 WILDCARDS UND JOKER 


Bisher haben Sie bei allen Floppy-Befehlen den ganzen Namen 
des Programms oder der Datei, worauf sich der Befehl beziehen 
soll, angeben müßen. Nehmen wir an, Sie haben verschiedene 
Programmversionen erstellt, sagen wir ’Testl’, ’Test2’ usw., und 
möchten diese alle löschen, dann währen Sie gezwungen, alle 
Dateinamen anzugeben - eine ziemlich aufwendige Sache. 


Aus diesem Grund bietet die Floppy auch die Möglichkeit, Namen 
abzukürzen oder ganze Namensgruppen gleichzeitig anzusprechen. 
Die Schlüsselzeichen dabei sind der Stern (*) und das 
Fragezeichen (’?). Deshalb können diese beiden Zeichen auch 
nicht in Dateinamen verwendet werden. Man nennt sie Joker (bei 
der C-1570/'71) oder auch Wildcards (unter CP/M). 


Betrachten wir zuerst die Funktion des Fragezeichens. Das 
Fragezeichen steht immer als Platzhalter für ein beliebiges 
Zeichen. Geben Sie also zum Beispiel beim Scratch-Befehl ’Test?’ 
als Dateinamen an, so werden alle Dateien, die mit ’Test’ und 
einem weiteren Zeichen benannt sınd, angesprochen. Das 
Fragezeichen kann natürlich an beliebiger Stelle im Namen stehen. 
Es dürfen unbegrenzt viele Fragezeichen verwendet werden. 
Weiter ist es auch erlaubt, nur Jokerzeichen zu gebrauchen. Der 
Name ’???” würde alle Dateien anwählen, die aus vier Zeichen 
bestehen. Kurzum, fast alle Kombinationen sind möglich. 


Wenden wir uns dem zweiten Jokerzeichen zu, dem Stern (’*’). 
Dieser Joker kürzt den Dateinamen ab. Wird ein Stern angeben, so 
bedeutet dies, daß der Name noch weitere Zeichen enthalten 
kann. Es wird einfach die erste Datei im Directory angewählt, auf 
die die explizit angegebenen Zeichen zutreffen. Wenn Sie nur den 
Stern als Dateinamen angeben, wird der erste Eintrag des Direc- 
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tory bearbeitet. Dazu muß vor dem Stern unbedingt eine Laufw- 
erksangabe stehen, wobei der Doppelpunkt völlig ausreicht. Die 
Floppy nimmt dann Laufwerk O0 an. Der Stern allein, ohne- 
Laufwerksnummer, ist eine Sonderfunktion und wählt das zuletzt 
aufgerufene (Load/Save/Open) Programm auf. Ist zwischenzeitlich 
allerdings ein Fehler eingetreten (LED blinkt), dann funktioniert 
diese Methode nicht mehr. 


Es gibt noch ein weiteres Zeichen, das bei der Dateiauswahl hilf- 
reich ist, das Gleichheitszeichen (’=’). Mit diesem Zeichen kann 
die Auswahl der Dateien auf ganz bestimmte Dateitypen 
eingeschränkt werden. Dazu wird nach dem Dateinamen das 
Gleichheitszeichen und danach der erste Buchstabe des Dateityps 
eingegeben. So wählt zum Beipiel ’a*=p’ die erste Datei, die mit 
’a’ beginnt und gleichzeitig ein Programm ist, an. 


Zum besseren Verständnis der vielen Kombinationsmöglichkeiten 
von Jokern und Gleichheitszeichen, hier einige Beipiele: 


a* erster Eintrag, der mit ’a’ beginnt. 

a*cd wie oben. Alles nach dem Stern wird nicht beachtet. 
a? alle 2-stelligen Namen, mit erstem Buchstaben ’a’. 
2??* alle Einträge mit mindestens drei Buchstaben. 

a*’=- alle sequentiellen Dateien die mit ’a’ beginnen. 


Joker dürfen aber nicht bei allen Floppyfunktionen verwendet 
werden. Außerdem hat die Anwendung von Jokern bei ver- 
schiedenen Befehlen unterschiedliche Auswirkungen. Die unten- 
stehende Tabelle gibt darüber Aufschluß. 
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Befehl ist Joker angewählte Datei 
erlaubt? | 

Dload / Bload immer erster identischer 

Dverify Dateiname 


Directory immer alle identischen 
Dateien 
Scratch immer alle identischen 
Dateien 
Rename nur voller nur angegebene 
Concat / Copy Dateiname Dateinamen 


1.4 DIE SEQUENTIELLE DATEI 


1.4.1 WAS IST EINE SEQUENTIELLE DATEI? 


Datenbanken und Dateien, sind die Begriffe, die heutzutage in 
aller Munde sind. Nicht nur aufgrund der Probleme mit dem 
Datenschutz. Auch die neuen Möglichkeiten, die der Computer in 
der Datenverwaltung gegenüber einer althergebrachten Kartei 
bietet, sind beachtlich. Natürlich kann auch die C-1570/71 Daten 
handhaben. Wie das alles im Detail vor sich geht, davon handeln 
die Kapitel über sequentielle und relative Dateien. 

Die Datenaufzeichnung auf der Diskette kann man auch mit 
einem Buch oder einer Papyrusrolle vergleichen. Die historisch 
zuerst vorkommende Form der Schriftaufzeichnung war die 
Papyrusrolle. Bei diesem, noch aus biblischen Zeiten stammenden, 
Medium werden die Informationen einfach der Reihe nach 
aufgeschrieben. Sucht man nun etwas bestimmtes, dann muß man 
die gesamte Rolle von vorne aufrollen und durchsehen, um das 
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Gesuchte zu finden. Möchte man neue Informationen auf- 
schreiben, geht das nur am Ende des Rollentext. Eingfügungen 
sind nicht möglich. Diese wohl einfachste Art der Aufzeichnung 
finden wir auch beim Computer wieder - die sequentielle Datei. 


Zum besseren Verständnis nun ein konkretes Beispiel. Nehmen 
wir an, Sie möchten eine Geburtstagsdatei anlegen. Darin speich- 
ern Sie jeweils den Vor- und Zunamen bestimmter Personen und 
den entsprechenden Geburtstag. Als Beipiel sollen folgende Namen 
gespeichert werden: 


Hans Müller 01.03.1966 
Gert Schneider 24.07.1952 
Helga Schmidt 02.09.1967 


Die Daten werden nun, wie der Name der Dateiform schon sagt, 
sequentiell abgelegt. Es ist das Wesen dieser Dateiart, das die 
Daten nur nacheinander abgespeichert und auch nur aufeinander- 
folgend gelesen werden können. Hat man also zum Beispiel die 
drei Personen abgespeichert und möchte später den Geburtstag 
von Helga Schmidt wissen, dann muss man eben zuerst die Daten 
von Müller und Schneider überlesen, bis man zu Schmidt kommt. 
Dabei taucht noch ein weiteres Problem auf. Woher weiß der 
Computer, wann ein Name, ein Geburtsdatum zu Ende ist? Fragen 
wir uns dazu doch einfach, woran merkt das der Mensch? Na 
klar, an den Leerzeichen zwischen den einzelnen Daten. Wir kön- 
nten den Computer so programmieren, daß er die Leerzeichen 
entsprechend beachtet. Heißt aber einer der Personen einmal 
’Hans Otto’ mit Vornamen, dann funktioniert unser Programm 
schon nicht mehr einwandfrei, da hier ein störendes Leerzeichen 
im Vornamen vorkommt. 


Also nimmt man einfach ein anderes Zeichen zum Trennen der 
Daten. Bei den Computerdateien ist das meißten der ASCII-Wert 
13. Man kann ihn mit CHR$(13) erzeugen. Sie kennen diesen Wert 
sicherlich schon. Es ist der gleiche Code, wie ihn auch die 
Return-Taste hat. Aber auch das Zeichen, das auf dem Bildschirm 
den Cursor in die nächste Zeile springen läßt (Wagenrücklauf) ist 
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der ASCII-Wert 13. Das Return-Zeichen wird jetzt immer 
’Carrige Return’ (engl. = Wagenrücklauf) oder kurz ’CR’ heißen. 


Eine Folge von Zeichen, die durch ein ’CR’ beendet ist, nennt 
man Datenfeld. Mehrere logisch zusammengehörende Datenfelder 
ergeben einen Datensatz. In unserem Fall wären Namen und 
Geburtsdaten einzelne Datenfelder, die zusammen einen Datensatz 
bilden. Die Datei hätte so drei Datensätze. Die Datensätze kann 
man dadurch unterscheiden, daß man wiederum ein entsprechen- 
des Trennzeichen verwendet. Normalerweise wird diese Trennung. 
aber von der Programmlogik vorgenommen. Das heißt, das Pro- 
gramm weiß genau, wieviel Datenfelder jeder Satz hat und kennt 
dadurch auch Satzanfang und Ende, indem es immer mitzählt. 


1.4.2 DAS ERÖFFNEN EINER DATEI 


Wir wollen jetzt das Beispiel aus dem vorhergehenden Abschnitt 
in die Tat umsetzen und eine sequentielle Datei aufbauen. Dazu 
muß man zuerst der Floppy mitteilen, wie die Datei heißen soll, 
welchen Typs sie sein soll und so weiter. Den dafür nötigen Be- 
fehl kennen Sie schon - der Open-Befehl. Schauen wir uns einmal 
die Syntax des Befehls an: 


OPEN x,y,z,"a:name,b,c" 


Die Parameter x,y und z sind die logische Dateinummer, Geräte- 
und Sekundäradresse, die wir schon in 1.2.1 behandelt haben. ’a:’ 
ist die Laufwerksnummer, die bei der C-1570/71 aber auch 
weggelassen werden kann. Nun kommt der Name. Hier sind Ihrer 
Fantasie keine Grenzen gesetzt. Nur, 16 Zeichen darf er nicht 
überschreiten und er darf auf der Diskette noch nicht vorkommen. 


Jetzt kommen die für die Dateiverwaltung wichtigen Angaben. ’,b’ 
ist der Dateityp und ’,c’ die Dateibetriebsart. Bei einer sequen- 
tiellen Datei muß der Dateityp ’s’ heißen. Danach kommt die 
Betriebsart. Soll die Datei zum Schreiben, also zum ersten mal, 
angelegt werden, ist hier ein ’w’ anzugeben (engl. write = 
schreiben). 
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Wie Sie vielleicht bemerkt haben ist oben die BASIC <3.0 Syntax 
verwendet. Selbstverständlich gibt es hier auch einen komforta- 
bleren BASIC 7.0 Befehl. Sie sollten nur einmal die prinzipielle 
Übermittlungsformen kennenlernen. Denn BASIC 7.0 sendet an 
die Floppy nichts anderes, als den BASIC 3.0 Befehlsstring. Jetzt 
der äquivalente BASIC 7.0 Befehl: 


DOPEN#x,"name",Da,Ux,b 


Wie Sie sicher schon bemerkt haben fehlt der Parameter ’z’. Die 
Sekundäradresse muß bei Dateien zwischen 2 und 14 liegen. Dies 
wählt der Computer nun automatisch. Auch die Geräteadresse ’Uz’ 
dürfen bei Laufwerk 8 weggelassen werden. ’Dx’ ist sowieso 
überflüssig, da die C-1570/71 ein Einzellaufwerk ist. Wie Sie se- 
hen reduziert sich der Befehl normalerweise auf: 


DOPEN#x,"name",b 


Die logische Kanalnummer x können sich sich aber nicht sparen. 
Dadurch wird bei den einzelnen Ausgaben unterschieden, in 
welche Datei sie gehen sollen. Verwenden Sie bitte nur Zahlen 
zwischen 1 und 127. Werte zwischen 128 und 255 haben zur 
Folge, das nacher bei Ausgaben, nach den übermittelten Daten 
nicht nur ein ’CR’ Trennzeichen, sondern zusätzlich noch der 
ASCI-Wert 10 (Line Feed) gesendet wird. Und genau dieses stört 
bei den meißten Anwendungen. 


Nun zurück zu unserem Beispiel - der Geburtstagsdatei. Eröffnen 
Sie nun diese Datei mit: 


DOPEN#1,"geb.tag",w 


Jetzt tritt die Floppy in Aktion. Zuerst wird geprüft ob der 
Dateiname schon auf der Diskette vorhanden. Dies würde einen 
’File Exists Error’ hervorrufen. Darum ist es immer angebracht, 
nach dem Dopen-Befehl die Fehlervaiable ds zu prüfen. Ist sie 0, 
dann kann man sicher sein, daß das Öffnen der Datei erfolgreich 
war. 
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Nun leuchtet die rote (1570) bzw. grüne (1571) Laufwerksanzeige 
auf solange die Datei geöffnet ist. Sie weist Sie darauf hin, daß 
Sie die Diskette dem Laufwerk zwischenzeitlich nicht mehr ent- 
nehmen dürfen. Die Floppy wartet nun auf die Daten vom Com- 
puter. Die Anzeige erlischt erst dann wieder, wenn die letzte 
aktive Datei wieder beendet wurde. 


1.4.3 DAS SPEICHERN VON DATEN 


Nachdem die Datei erfolgreich eröffnet wurde, müssen wir jetzt 
die einzelnen Datenfelder in die Datei schreiben. Dazu diehnt der 
gleiche Befehl, wie der, der auch Informationen auf dem Bild- 
schirm ausgibt - der ’Print’-Befehl. 


Allerdings ist dieser für die Ausgabe über Datenkanäle etwas 
modifziert worden, schließlich muß man ja auch wissen, über 
welchen Kanal die Daten gehen sollen. Er heißt deshalb: 


4 


PRINT#x,"daten" 


Die Abkürzung für den Print-Befehl ist aus diesem Grund auch 
nicht das Fragezeichen, sondern ’pR’. Dies müssen Sıe beim 
Eingeben von Programmen beachten, wenn Sie von den 
Abkürzungen Gebrauch machen. Unsere Geburtstags datei würde 
so etwa folgende Befehlsfolge enthalten: 


10 DOPEN#I1 ‚"geb.tag",w Datei eröffnen 
20 INPUT "vorname ";a$ | Daten ın Variable 
30 INPUT "name ";b$ eingeben 


40 INPUT "geburtstag ";c$ 
50 PRINT#1,a$;CHR$(13);b$;CHR$(13);c$ Daten in Datei 
schreiben 


Wie Sıe sehen, müssen wir die einzelnen Datenfelder durch ein 
’CR’, das durch chr$(13) erzeugt wird, abtrennen. Aber warum 
fehlt es nach dem letzten Datenfeld, dem Geburtstag? Ganz ein- 
fach, der Print-Befehl sendet dieses immer automatisch. Bei-lo- 
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gischen Kanalnummern über 127 würde er zusätzlich sogar noch 
ein ’line feed’ übermitteln. Es gibt allerdings auch Fälle in dehnen 
dieses automatische Senden unerwünscht ist. Dann müßen Sie die 
Print-Zeile einfach mit einem Semikolon (’;) abschließen. Der 
Computer weiß dadurch, daß er kein CR ausgeben soll. 


1.4.4 SCHLIEßEN DER SEQUENTIELLEN DATEI 


Sind alle Daten in die Datei eingetragen, dann dürfen Sie jetzt die 
Diskette nicht einfach wieder herausnehmen. Schließlich muß die 
Floppy noch die Sektorenverkettung beenden, die benutzten 
Blöcke abzählen und im Directory vermerken. Ist das alles erfolg- 
reich geschehen, dann wird Directory-Eintrag der Datei 
gekennzeichnet, daß die Datei ordnungsgemäß abgeschlossen 
wurde. 


Diese Funktion wird mit dem ’Close’-Befehl aufgerufen. Seine 
Syntax lautet: 


DCLOSE#x ON Uy 


x ist wieder die logische Nummer des Datenkanals zur Datei. Mit 
y kann das Gerät ausgewählt werden. Bei der Geräteadresse 8 darf 
die Angabe entfallen. Aber auch die Kanalnummer ist nicht im- 
mer erforderlich. Der Befehl Dclose allein schließt alle momentan 
geöffneten Dateien, wobei der C-64/C-128 maximal 10 Stück 
gleichzeitig verwalten kann. Diese Anzahl werden Sie kaum aus- 
nutzen, denn auf einem Floppylaufwerk können nicht mehr als 
drei sequentielle Dateien gleichzeitig bearbeitet werden. 


In BASIC <3.0 existiert nur ein Befehl, um eine ganz bestimmte 
Datei zu schließen. Doch hier gibt es einen Trick. Schließt man 
den Befehlskanal, dann werden von der Floppy automatisch auch 
alle anderen Kanäle und Dateien geschlossen. Öffnen Sie deshalb 
am Anfang Ihrer BASIC-<3.0-Programme einfach den Befehls- 
kanal. Wenn Sie ihn dann wieder schließen, hat das die gleiche 
Wirkung wie ’Dclose’. 
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Sollten Sie das Schließen der Datei vergessen haben, dann sind die 
Daten trotzdem noch nicht verloren. Wie Sie sie wieder retten 
können, erfahren Sie im nächsten Abschnitt. 


1.4.5 ABRUFEN AUS EINER DATEI 


Das alleinige Speichern von Daten ist natürlich uninteressant. Sie 
wollen ja schließlich mit den Daten etwas anfangen. Deshalb gibt 
es auch mehr Befehle zur Verarbeitung von Daten aus Dateien, als 
zum Schreiben von Daten in Dateien. 


Zur Verarbeitung von Daten müssen Sie die Datei zuerst wieder 

eröffnen, jetzt natürlich zum Lesen. Dabei gibt es zwei ver- 
schiedene Modi, zum einen den ganz normalen Lesevorgang und 
zum zweiten einen Spezialmodus, mit dem Sie nicht ordnungs- 
gemäß geschlossene Dateien wiederherstellen können. 


Um normale sequentielle Dateien zu lesen, muß als Betriebsmodus 
ein ’r’ (engl. read = lesen) angegeben werden. Dies führt der 
Computer immer selbsständig aus, wenn sie kein ’w’ nennen. Die 
Geburtstagsdaten stehen folglich nach 


DOPEN#1,"geb.tag" 


wieder zur Verfügung. Um die Daten jetzt in den Computer 
einzulesen, gibt es zwei Möglichkeiten. Den GET- und den 
INPUT-Befehl. Der Einfachere davon ist der ’Get’-Befehl, 
weshalb wir ihn auch zuerst besprechen wollen. 


Dieser Befehl wurde, genau wie sein Gegenstück ’Print’, für die 
Dateiverwaltung etwas modifiziert. So muß man hier die zugeord- 
nete Kanalnummer angeben. Die Syntax des Befehls lautet: 


GET#x,a$ 


Genauso wie der normale ’Get’-Befehl ein Zeichen von der 
Tastatur annimmt, wird hier ein Zeichen aus der entsprechenden 
Datei gelesen. Dabei beginnt die Floppy am Anfang der Datei und 
übermittelt so Zeichen für Zeichen bis zum Ende der Dateı. 
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Irgendein beliebiges Zeichen der Datei können Sie auf diese Weise 
nicht auslesen, womit Sie nun auch schon einen Nachteil der se- 
quentiellen Datei kennenlernen. 


Auf unser Beipiel angewandt könnte man auf folgende Art und 
Weise die einzelnen Datenfelder wieder einlesen: 


10 DOPEN#1 ,"geb.tag" 

20 GET#1 ‚2$:a$=a$+z$:IFz$<>CHR$(13)THEN2O 
30 GET#1 ,2$:6$=b$+z$:IFz$<>CHR$(13)THEN30 
40 GET#1,2$:c$=c$+z$: aan 
50 PRINT "name : ";a$ 

60 PRINT "vorname : ";b$ 

70 PRINT "geburtstag : ";c$ 


Im obigen Programm werden so lange Zeichen von der Diskette 
gelesen, bis ein Trennzeichen ’CR’ auftritt. Alle bis dahin 
gelesenen Zeichen (incl. CR), sind dann einer Stingvarıable 
zugeordnet, die weiterverarbeitet werden kann (a$,b$,c$). Mit 
dieser Methode lassen sich die einzelnen Datenfelder trennen. 


Doch wie erfährt man, wann das letzte Datenfeld, der letzte 
Datensatz der Datei gelesen wurde? dazu dient die in Kapitel 1.2.9 
besprochene Statusvariable ST. Bit 6 dieser Systemvariablen hat 
den Wert 1, wenn ein EOI-Signal übermittelt wurde. Dieses EOI 
bedeutet nichts anderes als ’End of Information’ (Ende der Infor- 
mation). Das Bit zeigt uns also an, wann das letzte Zeichen 
gesendet worden ist. Der Test, ob dieses Bit den Wert 1 hat kön- 
nte etwa so aussehen: 


IF ST AND 64 THEN ... 


Achten Sie unbedingt darauf, daß Sie zwischen ST und dem 
’And’-Befehl ein Leerzeichen setzen, sonst würde der Computer 
die Zeile als ’s TAN d’ interpretieren, und den Tangens benötigen 
wir in diesem Fall nicht. Der ’If’-Befehl verzweigt in der obigen 
Form immer, wenn das letzte Zeichen gesendet wurde. Wollen Sie 
eine Schleife programmieren, die beim letzten Zeichen verlassen 
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wird, also dann verzeigt, wenn EOI nicht gesetzt ist, muß die 
Zeile folgendermaßen lauten: 


IF NOT ST AND 64 THEN .... 


Eine Sache müssen Sıe noch beachten. Der ’Get’-Befehl liest alles, 
auch Steuerzeichen, mit einer einzigen Ausnahme, der ASCII-Wert 
0. Er wird nicht übermittelt. Ist also ein Zeichen gleich CHR$(0), 
dann wird nichts gesendet. In solch einem Fall erhalten Sie einen 
leeren String. Dieses Verhalten des Computers müssen Sie beim 
Programmieren im Auge halten. Es empfiehlt sich deshalb immer 
folgender Schritt: 


GET#1,a$:1Fa$=""THENa$=CHR$(0) 
oder 
GET#1,a$:a$=LEFT$(a$+CHR$(0),1) 


Mit diesem einen kleinen Nachteil ist der ’Get’-Befehl gegenüber 
seinem Kollegen, dem ’Input’-Befehl, geradezu ein Musterknabe. 
Beim ’Input’-Befehl, den wir nun besprechen wollen, häufen sich 
die Sonderfälle und Fehlermöglichkeiten. 


Auch dieser Befehl wurde für die Datenkanäle angepasst und 
lautet nun: 


INPUT#1,a$ 


Dieser ’Input’-Befehl verhält sich genau wie der ’Input’-Befehl, 
der Eingaben vom Bildschirm entgegennimmt. Natürlich dürfen 
auch hier die Eingaben nicht endlos lang sein. Schließlich kann 
ein String nur bis zu 255 Zeichen aufnehmen. Wie Sie aber beim 
normalen Input schon festgestellt haben, ist immer sehr viel früher 
Schluß. Das hängt damit zusammen, daß der Computer jede 
Eingabe über Input, bevor er sie weiterverarbeitet, in einem 
Puffer zwischenspeichert. Und dieser ıst eben nur 88 Zeichen 
(beim C-64) oder 160 Zeichen (beim C-128) groß. Werden mit 
dem ’Input#’-Befehl mehr als 88 bzw. 160 Zeichen eingelesen, 
dann erfolgt eine Fehlermeldung. Diese lautet logischerweise 
’String too long’. Wir müssen also unbedingt vermeiden, daß dieser 
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Fehler auftritt, da sonst der Computer auch das Programm ab- 
bricht. Daher ergibt sich natürlich die Frage, wie lange eine 
Input#-Anweisung eigentlich Zeichen von der Datei einliest? 


Dies funktioniert genau wie beim Bildschirm-Input. Wenn der 
CR-Code gesendet wird, sie also beim normalen Input die 
RETURN-Taste betätigen, beendet der ’Input’-Befehl die 
Eingabesequenz. Das Problem besteht also darin, daß einzelne 
Datenfelder nicht größer als 87 bzw. 159 Zeichen sein dürfen und 
am Ende ein CR stehen muß. Diese Vorgabe einzuhalten, ıst Sache 
des Programms. Sie als Programmierer, müssen dafür sorgen, daß 
die Datenfelder nicht länger werden. 


Doch damit ist nicht genug. Das Betriebssystem legt Ihnen noch 
weitere Steine in den Weg. Das sınd die Zeichen ’’, ’, und ’?. 
Diese werden in BASIC normalerweise dazu verwendet, Befehle 
und Parameter voneinander zu trennen. Nichts anderes führt auch 
der ’Input#’-Befehl aus, wenn er auf diese Zeichen stößt. Kommt 
in einem Datenfeld ein Doppelpunkt, Komma oder Semikolon vor, 
dann verhält sich der ’Input#’-Befehl so, als ob er ein CR gelesen 
hätte - er schließt die Eingabe ab und nimmt an, daß das Daten- 
feld hier zu Ende sei. Und als Zugabe des Betriebssystems erhal- 
ten Sie auch noch einen ’Extra ignored Error’. 


Sie müssen aber nicht nur auf diese drei Zeichen achtgeben. Wenn 
Sie mit INPUT# Zahlenwerte in Variabien einlesen, also zum 
Beispiel durch ’INPUT#1,a’, kann es Probleme geben. Dies ist 
immer der Fall, wenn noch andere Zeichen als Ziffern im zu 
lesenden Datenfeld stehen. Der Computer reklamiert das sofort 
mit ’File Data Error’. Sie können dies nur verhindern, indem Sie 
in Ihrem Programm konsequent darauf achten, daß Sıe ein 
Datenfeld aus dem gleichen Varıablentyp abgespeichert haben, in 
den Sıe es nachher wieder einlesen möchten. 


Sicherlich werden Sie sich jetzt schon gefragt haben, wozu es bei 
all diesen Nachteilen überhaupt einen ’Input#’-Befehl gibt? Die 
Anwort ist ganz einfach - er ist schneller als der ’'GET#’-Befehl. 
Die Ursache dafür liegt darin, daß vor jeder Meldung an die 
Floppy das Gerät neu adressiert werden muß. Beim Get#-Befehl 
findet dies bei jedem Zeichen statt, während die Prozedur beim 
’Input#’-Befehl nur einmal pro String erforderlich ist. Trotzdem 
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können Sie auf den ’GET#’-Befehl nicht verzichten. Er wird im- 
mer benötigt, wenn der Input#-Befehl versagen würde. 


Nun soll noch auf den Modify-Modus eingegangen werden. Dieser 
dient dazu, daß nicht ordnungsgemäß geschlossene Dateien noch 
gelesen werden können. Dies sind all die Dateien, die im 
Directory mit einem Stern gekennzeichnet sind. Um derartige 
Dateien zu retten, eröffnet man diese beispielsweise mit: 


OPEN 1,8,2,"datei,s,m" 


Wie Sıe sehen handelt es sich hier um den BASIC <3.0-Befehl. 
Das liegt daran, daß BASIC 7.0 keinen Modify-Modus kennt. 


Um Daten aus einer nicht ordnungsgemäß geschlossenen datei zu 
retten, öffnen Sie eine neue Datei, lesen die Daten im Modify- 
Modus aus der nicht geschlossenen Datei in die neue ein und 
schließen diese dann ordnungsgemäß ab (Close). 


Das Ende der nicht ordungsgemäß geschlossenen Datei kann, wie 
bei normalen Dateien, mit der Statusvariablen ST erkannt werden. 
Dabei gibt es allerdings ein Problem. Dadurch, daß die Datei nicht 
geschlossen wurde, wurde auch die Endekennung bei der Sektor- 
verkettung nicht angelegt. Aus diesem Grund werden beim Lesen 
mit Sicherheit mehr Daten geliefert, als eigentlich geschrieben 
wurden. Diese Daten stammen von irgendwelchen sonstigen SeK- 
toren, die zufällig in die Sektorenfolge eingekettet sind. Hier hilft 
nur ein Nachbearbeiten der Daten "von Hand". 


Zum Schluß müssen Sıe die nicht geschlossene Datei löschen. Dies 
funktioniert nur mit dem ’Collect’-Befehl (1.3.2). Der Scratch- 
Befehl würde aufgrund der fehlerhaften Sektorverkettung 
eventuell die falschen Sektoren zum Beschreiben freigeben. 
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1.4.6 ANFÜGEN VON DATEN 


Mit einem einmaligen Abspeichern ist es bei einer Datei 
normalerweise nicht getan. Immer wieder kommen neue Daten 
dazu, die an die sequentielle Datei angefügt werden müssen. Dazu 
müßte man die gesamte Datei in den Rechner einlesen und dann 
als neue Datei wieder abspeichern. Dabei würden die neuen Daten 
am Ende mit abgespeichert. 


Dieses Verfahren ist sehr zeitaufwendig und nicht besonders aus- 
baufähig. Deshalb gibt es hier eine spezielle Floppyfunktion. Wird 
eine Datei mit dem Betriebsmodus ’a’ (engl. append = anhängen) 
eröffnet, können Daten angefügt werden. In BASIC 7.0 gibt bietet 
dafür einen eigenen Befehl: 


APPEND#x,"name",Dy,Uz 


Die Angaben x,y und z stellen die Kanal-, Laufwerks- und 
Gerätenummer dar, die Sie sie schon von den anderen Befehlen 
kennen. Der "name" ist der Name der Datei, die Sie erweitern 
möchten. Er kann auch mit Jokern angegeben werden. Die Floppy 
wählt dann einfach den ersten passenden Eintrag. Bei unserer 
Beispielanwendung würde der Befehl folgendermaßen lauten: 


APPEND#1,"geb.tag" 


Alle’ Daten, die nun, wie in Kapitel 1.4.3 erklärt, in die Datei 
geschrieben werden, werden an das Ende der bestehenden Dateı 
angehängt. Aber auch hier gilt wieder ’keine Freud ohne Leid’, 
denn die Floppy hat beim Aufruf der ’Append’-Funktion die 
Angewohnheit, der Datei mindestens einen Block mehr 
zuzuweisen. Dies geschieht allerdings nur bei der Blockangabe im 
Directory. Das bedeutet, daß die Anzahl der benutzen Blöcke aus 
dem Directory mit der tatsächlich von der Datei belegten Blöcke 
nicht übereinstimmt. Dies können Sie auch dadurch feststellen, 
daß alle Blockangaben des Directory addiert, einen anderen Wert 
ergeben, als wenn man die Anzahl der freien Blöcke von der 
Gesamtkapazität, insgesamt 664 Blöcke, abzieht. 
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Doch ganz unproblematisch ist auch der ’Append#’-Modus nicht. 
Man muß ihn genau wie den ’Dopen’-Befehl mit Close beenden, 
damit die Datei richtig abgeschlossen wird. Hat man das 
vergessen, dann sind nicht nur die angefügten Daten verloren, 
sondern die gesamte Datei. Dieser Fall tritt auch ein, wenn beim 
 Anfügen der Platz auf der Diskette nicht mehr ausreicht und die 
Floppy ’Disk Full’ meldet. 


Aus diesem Grund sollten Sie sich den ’Concat-Befehl’ aus 1.3.4 
wieder in Erinnerung rufen. Mit diesem Befehl wird eine sequen- 
tielle Datei an eine bestehende Datei angehängt. 


Der Vorteil besteht darin, daß die alte Datei zuerst überhaupt 
nicht "angetastet" werden muß. Sie speichern die neuen Daten 
einfach in eine Zwischendatei, die beispielsweise den Namen 
’temp’ (wie temporär) erhählt. Das Speichern funktioniert genauso, 
wie wir es in den Kapiteln 1.4.2 bis 1.4.4 behandelt haben. 


Sind die neuen Daten in der ’temp’-Datei abgelegt, so wird diese 
an die bestehende Datei angehängt. In der Praxis könnte das zum 
Beispiel so aussehen: 


10 DOPENH#1 ,"temp",w 


... Programmteil um Daten in Datei 
zu schreiben ... 


50 DCLOSE#] | 
60 CONCAT "temp" TO "geb.tag" 
70 SCRATCH "temp" 


Diese Methode ist wesentlich sicherer als ein ’Append’-Vorgang. 
Der einzige Nachteil besteht darin, daß auf der Diskette noch so- 
viel Platz sein muß, daß sowohl die alte Datei ’geb.tag’ und die 
Zwischendatei ’temp’ als auch die genauso große neue Datei 
’geb.tag’ untergebracht werden können. Der Grund dafür liegt 
darin, daß zuerst die neue Datei ’geb.tag’ abgelegt und danach erst 
die alte Datei ’geb.tag’ gelöscht wird. Zuletzt kann man noch 
’temp’ entfernen, da die Daten von ’temp’ jetzt in ’geb.tag’ 
enthalten sind. 
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1.4.7 ANWENDUNG DER SEQUENTIELLEN DATEI 


Wie Sie in 1.4.1 schon erfahren haben, ist die sequentielle Datei 
die einfachste Form der Datenspeicherung. Die Daten werden 
nacheinander, das heißt sequentiell abgelegt. Genauso werden die 
Daten dann wieder eingelesen. Durch die Art der Daten- 
speicherung ist auch die Anwendung der sequentiellen Datei 
bestimmt. 


Eine Anwendungsmöglichkeit ist beispielsweise der CMD-Kanal. 
Mit der CMD-Anweisung kann die normale Bildschirmausgabe 
auf einen Datenkanal umgelenkt werden. Und warum sollte das 
nicht auch einmal ein Kanal zu einer sequentiellen Datei sein? 
Auf diese Weise können Sie Programmlistings in eine Datei aus- 
geben. Diese wiederum wird dann vielleicht von Ihrem Text- 
programm verarbeitet 0.A.. 


Die sequentielle Datei ist immer sinnvoll, wenn man Daten nur 
zwischenspeichern muß oder es nicht erforderlich ist, auf die 
Daten wahlfrei zuzugreifen. Genau dies wäre aber notwendig. Bei 
der sequentiellen Speicherung muß die ganze Datei gelesen wer- 
den, bis man den richtigen Eintrag gefunden hat. Bei großen 
Dateien kann das sehr lang dauern. 


Eine Alternative bestände also darin, zuerst die gesamte Datei in 
den Computer einzulesen. Dann könnte man beliebig auf die 
Daten zugreifen, wenn man sie in indizierten Feldern abgelegt hat. 
Ausserdem verläuft der Zugriff auf Variablen im Computer 
schneller, als das Lesen von der Diskette. Dieses Gebiet der 
Datenverarbeitung würde allerdings den Rahmen des Floppy- 
Buchs sprengen. Ich darf deshalb auf die im Literaturverzeichnis 
aufgeführten BASIC-Lehrbücher verweisen. 


Die Computerspeichermethode hat wiederum einen großen 
Nachteil. So groß der Speicher auch sein mag, er ist nicht uner- 
schöpflich. Damit wäre die maximale Größe einer Datei durch den 
Speicherplatz im Computer eingeschränkt. 
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1.5.1 WAS IST EINE RELATIVE DATEI? 


Wie Sie in den vorhergehenden Abschnitten gesehen haben, ist die 
sequentielle Datei eine praktische Sache, doch optimal ist sie 
nicht. Eine wirklich leistungsfähige Dateiform müßte folgende 
Merkmale bieten: 


- jeder Datensatz ist direkt anwählbar 

- einzelne Datensätze können gelöscht werden 
- die Datei muß nicht eingelesen werden 

- beliebiges Lesen und Schreiben 


Von derartigen Fähigkeiten müssen Sie nicht träumen, denn die 
Floppy C-1570/71 bietet hier die relative Datei. Was das genau ist 
und wie es funktioniert, das ist Gegenstand der nächsten Ab- 
schnitte. | 


Kehren wir einmal zu unserem Beispiel aus 1.4.1 zurück. Da 
wurde die sequentielle Datei mit einer Papyrusrolle verglichen. 
Überträgt man dieses Beispiel auf die relative Datei, dann könnte 
man diese mit einem leeren Buch vergleichen. Sie können in 
diesem Buch auf jeder Seite einen Datensatz eintragen. Das Buch 
kann man auf jeder beliebigen Seite aufschlagen. Auf diese Weise 
können Sie auf einen beliebigen Datensatz zugreifen. Genauso 
verhält es sich auch mit einer relativen Datei. 


Bei der relativen Datei müssen Sie vor dem Anlegen genau 
definieren, wie lang jedes Datenfeld und somit jeder Datensatz 
sein soll. Möchte man beispielsweise auf den 2301. Datensatz zu- 
greifen, dann ist das kein Problem. Die Floppy kann anhand der 
festen Datensatzlänge und der Nummer des Datensatzes die Posi- 
tion in der Datei errechnen. Im Grunde genommen ist auch beim 
Buch der Datensatz bereits vordefiniert. Jede Seite kann nämlich 
eine ganz bestimmte Zeichenmenge aufnehmen. Normalerweise 
nutzen wir aber nie die ganze Seite des Buches aus, wenn man je- 
dem Datensatz eine eigene Seite zuweist. 


Jetzt kennen Sıe das Dilemma der Datenverwaltung. Entweder 
speichern wir Daten sequentiell ab und nutzen die Disketten- 
kapazität optimal aus, da zwischen den einzelnen Datensätzen kein 
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Platz verschenkt wird. Oder wir definieren eine feste Daten- 
satzlänge. Damit wird meistens viel Platz auf der Diskette 
geopfert. Dafür kann man aber jeden Datensatz anwählen, da man 
seine Position errechnen kann. Im Normalfall wird man der 
besseren Zugriffsmöglichkeit den Vorrang geben, denn der 
Speicherplatz spielt bei den heutigen Disketten- oder Fest- 
plattenkapazitäten meistens keine so entscheidende Rolle. 


Nun wieder zu einem handfesten Beispiel, der Geburtstagsdatei. 
Wie bereits gesagt, muß jeder Datensatz eine feste Länge erhalten. 
Dazu gibt man den einzelnen Datenfeldern des Datensatzes 
vorbestimmte Längen. Die Längen sollten so gewählt werden, daß 
die Daten im Normalfall gut untergebracht werden können. 
Natürlich kann es trotzdem Fälle geben, in denen zum Beipiel der 
Name sehr lang ist und nicht in das Datenfeld paßt. Im Durch- 
schnitt werden die einzelnen Datensätze aber nie vollständig aus- 
genutzt. Zwischen diesen beiden Extremen müssen Sie Ihre 
Datensatzlänge wählen. Bei unserer Geburtstagsdatei ıst das 
beispielsweise: 


Vorname 15 Zeichen 
Datum 10 Zeichen 
insgesamt 40 Zeichen 


Vielleicht sind Sie in Ihrem Bedienungshandbuch schon auf die 
Angabe ’max. Größe’ gestoßen. Hier heißt es, daß eine relative 
Datei maximal 167132 Bytes groß sein darf - auch wenn die 
Diskette doppelseitig verwendet wird. Das hängt mit dem Floppy- 
Betriebssystem zusammen. Dieses kann nämlich keine größeren 
relativen Dateien verwalten. 


Wenn wir die gesamte Kapazität der relativen Datei ausnutzen, 
können wir insgesamt 4178 Datensätze zu je 40 Zeichen ab- 
speichern. 
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1.5.2 DAS ERÖFFNEN EINER DATEI 


-Nun wieder zur Praxis. Wir wollen eine relative Datei einrichten. 
Dies ist nicht schwieriger, als bei einer sequentiellen Datei. Der 
einzige Unterschied besteht darin, daß man die Datensatzlänge 
definieren muß. Zugelassen sind Werte zwischen 2 und 254 
Zeichen. Das Festlegen geschieht mit dem Betriebsmodus ’l’(von 
engl. length = Länge). Dadurch weiß der Computer, daß es sich 
um eine relative Datei handelt. 


Ob sie die Datei zum Lesen oder Schreiben öffen, ist nicht mehr 
wichtig. Bei relativen Dateien gibt es diese Unterscheidung nicht 
mehr. Sie können also nach Herzenslust Einträge überschreiben, 
anfügen oder auslesen. Der °’Dopen#’-Befehl für unsere 
Geburtstagsdatei lautet: 


DOPEN#1,"geb.tag",L40 


Dabei wird wieder der Eintrag im Directory angelegt. Wenn die 
relative Datei bereits auf der Diskette existiert, kann die Längen- 
angabe ’L40’ entfallen. Sie darf aber durchaus auch angegeben 
werden. Sie muß nur immer mit der Datensatzlänge, die beim 
Eröffnen definiert wurde, übereinstimmen. 


Weiter sollten Sıe sich schon beim Eröffnen der relativen Datei 
überlegen, wieviele Datensätze sie etwa enthalten wird. Dann 
wählen Sıe den größten zu erwartenden Datensatz an und 
beschreiben ihn mit CHR$(255). Durch diese Prozedur legt die 
Floppy nun auch alle vorhergehenden Datensätze an. Dieser Vor- 
gang kann durchaus einige Minuten in Anspruch nehmen. 


Der Vorteil besteht darin, daß Sie sicher sein können, daß der 
Diskettenplatz nicht anderweitig belegt wird und Ihre relative 
Datei später eventuell keinen Platz mehr hat. Außerdem ıst die 
Anlegeprozedur nachher nicht mehr erforderlich. 
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1.5.3 DAS SPEICHERN VON DATEN 


Zuerst einmal benötigen wir einen Befehl, mit dem wir 
auswählen, auf welchen Datensatz sich die Schreiboperation 
beziehen soll. Dieser Befehl lautet: 


RECORD#x,y,z 


Record kommt aus dem Englischen und bedeutet nichts anderes 
als ’Datensatz’. Um einen bestimmten Datensatz ansprechen zu 
können, erhalten die Datensätze einfach fortlaufende Nummern 
von 1 bis maximal 65535. Diese riesige Spanne werden Sie kaum 
benötigen. Jede relative Datei, deren Datensätze mehr als zwei 
Zeichen groß sind, kann dieses Maximum nie erreichen - die 
Diskettenkapazität ist vorher erschöpft. | 


Doch nun zu den Parametern des ’Record#’-Befehls. Die Zahl x 
ist die logische Kanainummer, also genau dieselbe Nummer wie 
auch beim ’Print#- oder ’Input#’-Befehl. Danach folgt die 
Datensatznummer. Zuletzt kann man noch die aktuelle Position im 
Datensatz festlegen. Eine Schreib- oder Leseoperation würde dann 
an dieser Stelle beginnen. Sie können diese Funktion auch dazu 
benutzen, den Positionszeiger auf ein Datenfeid innerhalb des 
Datensatz zu richten. 


Zum Speichern der Daten steht Ihnen wieder der ’Print#’-Befehl 
zu Verfügung. Dieser ist genau wie bei den sequentiellen Dateien 
(siehe 1.4.3) zu handhaben. Das einzige, worauf sie achtgeben 
müssen, ist, daß sie beim Schreiben nicht mehr Daten angeben, als 
noch ın den Datensatz passen. Sollten Sie trotzdem versuchen, 
über das Datensatzende hinaus zu schreiben, werden diese Daten 
ignoriert und die Floppy reklamiert mit ’51 Overflow in Record’. 
Prüfen Sie also gegebenenfalls die Fehlervariable ’ds’. 
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1.5.4 SCHLIEBEN DER RELATIVEN DATEI 


Im Gegensatz zur sequentiellen Datei ist der ’Dclose’-Befehl bei 
relativen Dateien nicht so "lebensnotwendig". Zumindest sind ihre 
Daten nicht sofort verloren, wenn Sie den ’Dclose’-Befehl einmal 
vergessen. 


Die Sektorverkettung der relativen Datei wird beim Eröffnen bzw. 
beim Erweitern der Datei angelegt. Diese kann man also durch ein 
fehlendes Schließen nicht durcheinanderbringen. 


Auch die von der Datei benutzen Blöcke werden immer im 
entsprechenden Verzeichnis der Diskette belegt. Ein verse- 
hentliches Überschreiben durch andere Dateien ist also hier nicht 
möglich. 


Aus diesen Gründen ist eine relative Datei im Directory nie mit 
. einem Stern markiert. Sie ist ja immer voll funktionsfähig. 


Trotzdem sollten Sie jetzt das ’Dclose’ nicht prinzipiell weglassen. 
Es hat durchaus noch eine Funktion. Wird die Datei geschlossen, 
dann stellt die Floppy die Zahl der belegten Blöcke fest und ak- 
tualisiert den Directory-Eintrag. 


Der Sinn des Ganzen besteht also nicht darin, sich nun immer 
Delose zu sparen, weil Sie vielleicht auf die Blockangaben 
verzichten können. Vielmehr sollten Sie nur wissen, daß die rela- 
tive Datei fehlertoleranter ist. 


Darüber hinaus meldet sich die Floppy im Zusammenhang mit 
relativen Dateien nicht nur bei der kleinsten Fehlbedienung, son- 
dern stellt auch Meldungen zur Verfügung, wenn die Datei 
erweitert wird, der Datensatz nicht existiert, die Diskette voll ist 
USW.. 
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1.5.5 ÄNDERN EINES RECORDS 


Daten sind meistens eine sehr kurzlebige Sache. Deshalb ist es 
wohl am wichtigsten, daß die Informationen in einer Datei nach- 
träglich geändert werden können. Bei der sequentiellen Datei ist 
das sehr umständlich oder mit einem vertretbaren Aufwand gar 
nicht möglich. 


Die relative Datei kennt in diesem Punkt keine Einschränkungen. 
Lese- und Schreiboperationen dürfen Sie beliebig verwenden. Sie 
müssen zum Ändern von Daten nur noch mit dem ’Record#’- 
Befehl Datensatz und Position der Änderung bestimmen. Mit 
Print# können Sie das Datenfeld oder den Datensatz über- 
schreiben. 


Beim ’Print#’-Befehl müssen Sie unter Umständen nur beachten, 
nach den Daten ein Semikolon anzugeben. Damit wird die Aus- 
gabe von CR unterdrückt, das ansonsten auch in den Datensatz 
' geschrieben würde. 


1.5.6 ANFÜGEN NEUER RECORDS 


Eine relative Datei kann, bis zur maximalen Größe von einer 
Diskettenseite beliebig erweitert werden. Sie müßen dazu nur den 
benötigten Datensatz mit Record# ansprechen und beschreiben. 


Besonders wichtig beim Erweitern ist die Fehlermeldung °’50 
Record not present’. Beim Schreiben kann die Fehlermeldung 
ignoriert werden (sie entsteht auch beim Anlegen des ersten 
Datensatzes). Dadurch wird nur signalisiert, daß der angesproche- 
ne Datensatz noch nicht exisiert und neu angelegt wird. 


Beim Lesezugriff dürfen Sie diese Fehlermeldung allerdings nicht 
übergehen. Die Floppy meldet so, daß versucht wurde, auf einen 
' Datensatz zuzugreifen, der gar nicht vorhanden ist. 
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1.5.7 SUCHEN EINES RECORDS 


Das Suchen von Daten ist ein leidiges Problem. Man könnte leicht 
ein ganzes Buch mit diesem Thema füllen. Das liegt zum einen 
daran, daß es hier keine optimale Lösung gibt. So haben sich die 
Experten 1001 Verfahren ausgedacht, Daten zu ordnen, zu suchen 
und zu verwalten. Es gibt viele mehr oder weniger praktikable 
Verwaltungsmethoden. Eine Universalmethode ist allerdings noch 
nicht erfunden worden (Sie könnten sich dabei also noch ein paar 
Lorbeeren verdienen). Aus diesem Grund kann die Problematik 
hier nur angerissen werden. Wer sich damit intensiver beschäfti- 
gen möchte, findet im Literaturverzeichnis entsprechende Hin- 
weise. 


Das Hauptproblem bei der relativen Datei besteht darin, daß jeder 
Datensatz nur über die Datensatznummer angesprochen werden 
kann. Bei unserem Beispiel, der Geburtstagsdatei, ist diese 
Methode allerding wenig sinnvoll. Schließlich sucht man entweder 
alle Personen, die an einem bestimmten Datum Geburtstag haben, 
oder man möchte die Daten einer ganz bestimmten Person finden. 
Sie können jetzt natürlich damit beginnen, Ihren Verwandten 
Nummern zuzuweisen. Bei 007 klappt das vielleicht noch aufgrund 
der Berühmtheit dieser Zahl. Aber hat jetzt Tante Klara die 
Nummer 102 oder 93? Oder wollen Sie gar, wenn Sie an Tante 
Klara denken, in Zukunft nur noch von Person Nr. 1652 reden. 
Dabeı müßten Sie nur aufpassen, daß Sıe bei der Geburtstagsparty 
von 672 nicht vergessen, 7362 nach dem Wohlbefinden von 373 
und deren Tochter 6292 zu fragen... 


Das Problem ist klar. Die Nummerierung der Datensätze ist für 
den Computer, dem Meister im Zahlenjonglieren, sehr praktisch. 
Doch der Mensch kann damit nicht arbeiten. Vielleicht können Sie 
sich jetzt aber vorstellen, warum Versandunternehmen usw. so 
scharf auf Ihre Kundennummer o.ä. sind. 


Nun zur Lösung des Problems. Unser erster Gedanke war gar 
nicht so dumm. Durch die Datensatznummer wird jedem Namen 
eine Zahl zugeordnet. Dies müßten wir jetzt rückgängig machen. 
Dies bedeutet, daß man braucht eine Liste mit den Namen bzw. 
dem Geburtsdatum benöigt, in der die entsprechende Daten- 
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satznummer zugeordnet ist. Die relative Datei ist im Grunde 
genommen das gleiche, nur funktioniert sie umgekehrt. 


Um beim Suchen einigermaßen effektiv zu arbeiten, sollten die 
Namen geordnet sein. Man erstellt also ein Programm, das alle 
Namen und die dazugehörigen Datensatznummern aus der 
relativen Datei einliest und alphabetisch sortiert. Diese Daten kann 
man beispielsweise als sequentielle Datei abspeichern. Die Daten 
werden dann jedesmal in den Computerspeicher einlesen. Dort ist 
es möglich, den gesuchten Namen schnell zu finden. Damit kennt 
man auch die Datensatznummer und kann die restlichen Informa- 
tionen von Diskette lesen. 


Betrachten wir die Sache etwas differenzierter. Im Grunde 
genommen kommt es doch nur darauf an, daß man die Datensätze 
sortiert. Nur so verläuft das Suchen schnell genug. Eventuell gibt 
esja auch raffiniertere Suchmethoden. In der relativen Datei sind 
die Daten ungeordnet abgespeichert. Die Idee der sortierten Na- 
men und zugeordneten Satznummern ist eigentlich nicht schlecht. 
Doch wir haben dadurch noch eine zusätzliche Datei, verbrauchen 
viel mehr Speicherplatz, benötigen auch noch Speicher im Com- 
puter usw. Außerdem ist die Zugriffszeit vielleicht recht schnell, 
nur wird für zusätzlichen Arbeiten (Sortieren, sortierte Liste ein- 
- lesen,...) sehr viel Zeit verbrauchen. 


Genau betrachtet geht es ja nur darum, zu wissen, in welcher 
Reihenfolge die Datensätze aufgerufen werden müssen, damit sie 
nach einem bestimmten Kriterium geordnet sind. Dieses Kriterium 
kann der Name, das Datum oder ein anderes beliebiges Datenfeld 
der relativen Datei sein. Man nennt dies den Schlüsselbegriff 
(engl. Key). So gesehen ist es gar nicht erforderlich eine geordnete 
Liste mit Namen und Satznummer anzufertigen. Es würde aus- 
reichen die Datensatznummern zu sortieren. Die erste Nummer 
entspricht dann dem alphabetisch ersten Namen, die zweite Num- 
mer dem alphabetisch zweiten Namen usw. Es handelt sich bei 
dieser Methode immer noch um eine Datei, die man zusätzlich 
führt - praktischerweise meistens als sequentielle Datei. Doch der 
Speicherbedarf, sowohl auf Diskette als auch im Computer, wurde 
wesentlich kleiner, da man den Platz für die Namen spart. 


Das große Floppybuch 1571/70 83 


Das ganze hat aber einen Nachteil. Die Forderung bei den 
relativen Dateien bestand darin, daß man nichts mehr im Speicher 
behalten muß. Hier ist es aber erforderlich vor jeder Datei- 
anwendung die Daten der Schlüsseldatei einzulesen. 


So wie die Schlüsseldatei jetzt geordnet ist, kann man eine Posi- 

tion im Alphabet (z.B. den 5. Namen) anwählen und erhält dann 
die Datensatznummer des Namens. Genau genommen wollen wir 
aber nur wissen, welcher Datensatz der erste ist, welcher der 
nächste ist usw. Die Schlüsseldatei müßte nur angeben, welcher 
Datensatz der nächste im Alphabet ıst. 


Man spricht in diesem Fall von einem sogenannten Zeiger oder 
Index. Wir bringen in jedem Datensatz einfach eine Nummer 
unter. Diese ist die Datensatznummer des alphabetisch _nächsten 
Datensatzes. Auf diese Art und Weise sind die einzelnen Daten- 
sätze miteinander verkettet. Das einzige, was man sich noch 
merken muß, ist die Datensatznummer, bei der diese Kette 
beginnt. Und was ist mit dem Ende? Das ist Ihrer Fantasie über- 
lassen. Entweder können Sie hier wieder die Nummer des alpha- 
betisch ersten Datensatzes angeben, oder aber eine 0 zuweisen. 
Den Datensatz 0 gibt es nicht, also kann Ihr Programm immer das 
Ende erkennen. 


Natürlich funktioniert das alles auch umgekehrt. Sıe können eine 
weitere Kette erstellen, in der die Namen umgekehrt sortiert sind. 
Dadurch ergibt sich die Möglichkeit, sowohl den nächsten als auch 
den vorhergehende Datensatz aufzurufen - komfortabler geht es 
nicht mehr. 


Eines können wir uns natürlich nicht sparen: die Datensatz- 
nummern, bei der diese Verkettungen beginnen, müssen vermerkt 
werden. Selbstverständliich könnten Sıe dazu eine sequentielle 
Datei einrichten. Praktischer ist es allerdings, eine Datei erst ab 
dem 2. oder 3. Datensatz beginnen zu lassen. So kann man |. oder 
2. Satz für derartige Informationen verwenden. Diese Organisa- 
tionsweise ist allerdings eine Angelegenheit Ihres Programms. 


Soll die relative Datei verkettet werden, dann müssen Sie für die 
Verkettungszeiger ın jedem Datensatz entsprechend Platz ein- 
planen. Natürlich könnte man die Datei auch noch nachträglich 
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verketten. Dazu legt man die Zeiger einfach in einer parallel 
organisierten relativen Datei ab. Dies erfordert kaum mehr 
Speicherplatz. Doch kann bei der C-1570/71 immer nur eine rela- 
tive Datei geöffnet sein. Sie müssten also immer die Hauptdatei 
schließen, dann die Schlüsseldatei öffnen, die Schlüsseldaten 
auslesen, dann die Schlüsseldatei wieder schließen und die Haupt- 
datei öffnen... - das ist nicht nur programmier- sondern vor allem 
auch zeitaufwendig. 


Wir haben jetzt also schöne Verkettungen erstellt. Was aber 
passiert, wenn man einen neuen Eintrag in die Datei einfügen 
möchte? Das ist kein Problem. Der neue Datensatz wird einfach 
ans Ende der Datei angehängt, den die physikalische Lage in der 
Datei spielt keine Rolle. Nun muß man nur noch den neuen 
Datensatz korrekt in die Verkettungen einbauen. Dazu sucht man 
einfach die Stelle, nach der der Datensatz in eine Kette eingebaut 
werden müßte. Dann liest man hier die Nummer des nächsten 
Datensatzes. Diese trägt man jetzt im neuen Datensatz ein. Der 
. Datensatz, nach dem eingefügt werden soll, erhält den Zeigerwert 
des neuen Datensatzes. 


Mit der Zahl der Verkettungen, das heißt der Zahl der Schlüssel- 
begriffe, wächst also der Aufwand beträchtlich. Deshalb muß man 
sehr sorgfältig abwägen, wie viele und welche Schlüssel die Datei 
haben soll. 


1.5.83 ANWENDUNG DER RELATIVEN DATEI 


Nach all diesen theoretischen Überlegungen soll nun wieder etwas 
Praxis folgen. Das Thema war eine Geburtstagsdatei. Die Länge 
der Schlüssel hatten wir ja bereits in 1.5.1 festgelegt. 


Dabei taucht auch schon das nächste Problem auf. Wir benötigen 
auch noch Platz für die Verkettungszeiger. Doch wie groß sind 
diese? Eine Zahlenvariable wird immer als String abgelegt. Das 
heißt sie kann zwischen einem und 5 Zeichen (bei max. 65535 
Datensätzen) lang sein. Es muß also für 4-5 Zeichen Platz sein 
vorhanden sein, obwohl oft weniger benötigt wird. 
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Hier hilft uns der Binärmathematiker. Jede Zahl zwischen 0 und 
65535 kann man in einen 2-Byte-Binärwert umrechnen. Wir 
brauchen also für unsere Verkettungszeiger pro Datensatz immer 
exakt zwei Bytes. Eine praktische Sache. Die Umrechnung ist auch 
nicht sehr problematisch: 


a = verkettungszeiger (0..65535) 
PRINT#1, CHR$(a and255) CHR$(a/256); 


Den Wert zurückzuwandeln funktioniert folgendermaßen: 


GET#1,a$ : GET#1,b$ 
a = ASC(a$+CHR$(0)) + ASC(b$+CHR$(0)) * 256 


Nehmen wir an, der Name und das Geburtsdatum sollen als 
Schlüsel verwendet werden. Sicherlich werden Sie sich schon 
gefragt haben, wie man die Datei jetzt sortiert und alle Verket- 
tungen anbringt. Wenn Sie die Verkettungen nachträglich 
installieren möchten, ist das nicht ganz einfach. Deshalb sollte 
man schon von Anfang an die Schlüssel festlegen. Dann geht man 
nämlich genauso vor wie beim Anfügen, das wir im vorigen 
Kapitel besprochen haben. 


Wenden wir uns jetzt den einzelnen Datensätzen zu. Die Daten- 
satzlänge muß fest definiert werden, daran ist nicht zu rütteln. 
Das bedeutet aber noch nicht, daß man die Länge der einzelnen 
Datenfelder genauso festlegen muß. Natürlich ist dies einfacher. 


Diese Überlegung hängt auch eng mit den verwendeten Lese- 
befehlen zusammen. Möchten Sie INPUT# oder GET# verwen- 
den? Beim ’Input#’-Befehl muß das einzelne Datenfeld mit CR 
abgeschlossen sein, es wird also zusätzlicher Platz verbraucht. Dies 
könnte sich aber durchaus lohnen, da Sie mit dem ’Input#’-Befehl 
sehr einfach variable Datenfeldlängen handhaben lassen. 


Dabei wird jedes Datenfeld immer mit CR abgeschlossen. Schon 
beim Abspeichern müssen Sie allerdings darauf achten, daß die 
Feldlänge 88 bzw. 160 Zeichen nicht überschreitet. Hat das Feld 
keinen Inhalt, dann speichert man nur ein CR ab. Der Vorteil 
besteht darın, daß man kaum noch das Problem hat, daß zum 
Beispiel ein Name nicht in ein Datenfeld paßt. Es besteht nur 
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noch die Gefahr, daß die Länge aller Datenfelder, inclusive der 
 CR-Zeichen, die Sie auf gar keinen Fall vergessen dürfen, größer 
als die Datensatzlänge ist. Daher sollten Sie in Ihrem Programm 
auf jeden Fall vorher die Gesamtlänge berechnen und gegebenen- 
falls den Bediener dazu auffordern, Eingaben zu kürzen. Der 
Nachteil der variablen Datenfelder besteht darın, daß man immer 
alle Felder vom Anfang des Datensatzes an einlesen muß, um ein 
bestimmtes Datenfeld zu erreichen. Bei den festen Feldlängen 
kann man den Zeiger auf die aktuelle Zeichenposition mit dem 
Record#-Befehl direkt auf das Datenfeld richten. 


Beispiele zu diesem Thema sind in Ihrem Bedienungshandbuch 
enthalten. Es ist auch nicht Sinn dieses Kapitels, Ihnen eine Lö- 
sung als das Nonplusultra anzubieten - denn dieses gibt es nicht. 
Vielmehr wollte ich Ihnen einige Anregungen und Tips zur eige- 
nen Programmierung geben. 
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KAPITEL 2 


PROGRAMMIERUNG FÜR 
FORTGESCHRITTENE 
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2,1 DIE DIREKTZUGRIFFSBEFEHLE 
2.1.1 DER DIREKTZUGRIFF AUF EINZELNE SEKTOREN 


Vielleicht haben Sie sich, aufgrund der Datenverwaltungskapitel 
einmal in die weiterführende Literatur angeschaut. Dann kennen 
Sie jetzt einige neue, hervorragende Verwaltungsmethoden, die Sie 
gerne in die Realität umsetzen möchten. Doch die C-1570/71 
kennt diese Verfahren nicht. Wir können also Verwaltung, 
Organisation usw. nicht mehr der Floppy überlassen, sondern 
müssen selbst aktiv werden. Dazu benötigen wir Befehle, um die 
einzelnen Sektoren der Diskette direkt anzusprechen. Somit kön- 
nen wir unsere eigene Datenverwaltung aufbauen. Um genau diese 
Möglichkeiten geht es in diesem Kapitel. Dazu werden Sie ab 
2.1.2 zuerst einmal die erforderlichen Befehle kennenlernen. In 
den Kapiteln 2.2 und 2.3 geht es darum, wie die normalen Daten 
(Programme, Dateien) auf der Diskette organisiert sind. Zum 
einen können Sie sich dort vielleicht für Ihre eigenen Anwendun- 
gen etwas abschauen, zum anderen sind diese Kenntnisse unbe- 
dingt erforderlich, damit Sie Ihre eigene Dateiform in die normale 
Diskettenverwaltung einbinden können. Für unsere ersten Experi- 
mente ist es deshalb ratsam, eine neu formatierte, leere Diskette 
zu verwenden. So gehen Sie keine Gefahr ein, wertvolle Daten 
durcheinanderzubringen oder zu zerstören. 


Wie Sie aus den ersten Kapiteln wissen (1.1.2) ıst die Diskette in 
Spuren und Sektoren organisiert. Da der Umfang der äußeren 
Spur größer, als der der Inneren ist, passen natürlich auf diese 
Spur auch mehr Sektoren. Die Spuren werden dabeı von außen 
nach innen durchnumeriert. So liegt also ganz außen Spur |, die 
die meisten Sektoren enthält. Die innerste Spur hat die Nummer 
35. Theoretisch können mit der C-1570/71 bis zu 40 Spuren 
beschrieben werden. Beim COMMODORE-Format werden diese 
letzten fünf Spuren aber nicht verwendet. 


Eine auf diese Weise formatierte Diskette hat eine Kapazität von 
170 KBytes. Dies wäre zum Beispiel bei der C-1570 der Fall. Die 
C-1571 hat zwei Schreib-/Leseköpfe und kann deshalb beide 
Seiten der Diskette beschreiben. Folglich ıst die Kapazität auch 
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doppelt so groß. Doch bei beidseitigen Disketten gäbe es ja 
plötzlich zwei Spuren mit der Nummer |, jeweils eine auf jeder 
Seite. Woher weiß die Floppy, wenn man einen bestimmten Sektor 
anspricht, auf welcher Seite dieser liegt? Aus diesem Grund be- 
nennt man die erste Spur auf der zweiten Diskettenseite einfach 
mit Spur 36. 


Es ergeben sich also folgende Sektorenanzahlen: 


oe Tasse] 


Wenn man die Floppy anweisen kann, einen Sektor von Diskette 
zu lesen, ergibt sich die Frage, wohin damit ? Da sich die 
Diskette mit 300 U/min dreht, werden die einzelnen Zeichen mit 
einer Geschwindigkeit von bis zu über 60000 Bytes/sec gelesen. 
Ihr BASIC-Programm ist auf keinen Fall in der Lage derartige 
Datenraten zu verarbeiten. Der Sektor muß also irgendwo 
zwischengespeichert werden, damit man ıhn mit normalen Be- 
fehlen bearbeiten kann. Beim Schreiben eines Sektors ist das 
natürlich nicht anders. 


Die Floppy hat deshalb 4 Pufferspeicher, die jeweils genau 256 
Bytes, also die Länge eines Sektors, umfassen. Diese Speicher wer- 
den auch benötigt, wenn Sie Programme laden, mit Dateien ar- 
beiten usw. Die folgende Tabelle gibt Aufschluß darüber, welche 
Dateiform wie viele Puffer benötigt: 
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relative Datei 3 Puffer 


Programm laden/speichern 1-2 Puffer 
sequentielle Dateı 1-2 Puffer 
Directory anfordern 1 Puffer 
Direktzugriff 1 Puffer 


Jetzt wissen Sie auch, warum man zweı relativen Dateien nicht 
gleichzeitig eröffnen kann - der Pufferspeicher reicht nicht aus. 
Im Zeitalter der billigen, riesigen Speichermengen ist es schon 
seltsam daß die Floppy nur über einen Pufferspeicher von 1.25 
KByte verfügt. Aber wir müssen uns damit abfinden und ver- 
suchen, das Beste daraus zu machen. 


Um auf beliebige Sektoren zugreifen zu können, müssen wir uns 
einen Puffer reservieren. Man nennt dies auch Direktzugriffs- 
methode. Zuerst geht es darum, einen Datenkanal für den Direk- 
tzugriff einzurichten. Dies geschieht mit folgendem Befehl: 


OPEN x,y,2,"#a" 


Theoretisch können Sie auch den BASIC-7.0-Befehl ’Dopen’ ver- 
wenden. Da man später aber die Sekundäradresse z angeben muß, 
ist es praktischer, den BASIC-3.0-Befehl einzusetzen. Bei BASIC 
7.0 wird diese nämlich vom BASIC selbständig gewählt. Die Par- 
ameter x und y geben die Kanalnummer und Geräteadresse an. 


Als Dateiname wird ein ’#’ angegeben. Dies signalisiert der 
Floppy, daß ein Direktzugriffskanal eingerichtet werden soll. 
Dabeı ordnet die C-1570/71 dem Kanal einen Puffer zu. Dessen 
Nummer (0.3) kann in ’a’” angegeben werden. Normalerweise 
sollten Sie diese Angabe weglassen. Die Floppy wählt dann auto- 
matisch einen freien Puffer. Sie könnten sonst eventuell einen 
Puffer anwählen, der bereits für andere Zwecke benutzt wird. 


Sind alle oder der gewünschte Puffer belegt, dann meldet sich die 
Floppy mit ’70 No Channel’. Prüfen Sie also immer nach dem 
Eröffnen des Direktzugriffskanals die Fehlervariable ’ds’. 
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2.1.2 BLOCK-READ UND BLOCK-WRITE 


Wie schon angekündigt gibt es spezielle Befehle um einen 
bestimmten Sektor in den Floppypuffer einzulesen oder vom 
Puffer auf die Diskette zu schreiben. Diese Befehle werden über 
den Befehlskanal, also Kanal 15 übermittelt. Daher sollten Sie bei 
allen Direktzugriffen zuerst einmal den Befehlskanal (siehe auch 
1.3.1) öffnen. Die einzelnen Sektorbefehle haben immer den 
gleichen Aufbau: 


"aaa:k lt s" 
Die einzelnen Parameter haben folgende Bedeutung: 


aaa DBefehlswort 
k Kanalnummer (Sekundäradresse) 
1 Laufwerksnummer (0/1) 
t Spurnummer (0..35/70) 
s Sektornummer 


Die Kanalnummer k ist der Parameter z beim Eröffen des Direkt- 
zugriffskanals aus dem vorherigen Kapitel. Jetzt ist Ihnen sicher- 
lich klar, warum wir diesen Parameter unbedingt wissen wollten. 
Die Laufwerksnummer 1 hat bei der C-1570/71 keine Funktion, 
da es sich um ein Einzellaufwerk handelt. Trotzdem dürfen Sie 
diese Angabe nicht weglassen. Sie lautet immer 0. Zuletzt folgen 
die Daten des gewünschten Sektors, also Spur und Sektornummer. 
Die einzelnen Parameter werden im Befehlsstring durch 
Leerzeichen oder Kommata getrennt. Das Befehlswort kann durch 
ein Leerzeichen oder einen Doppelpunkt von den Parametern ge- 
trennt werden. 


Nun zu diesem Befehlswort. Damit wird die genaue Funktion 
(Lesen/Schreiben) ausgewählt. Merkwürdigerweise gibt es für ein 
und dieselbe Sache gleich mehrere Befehle: 


92 Programmierung für Fortgeschrittene 


b-r 


Die Befehle ul/ua bzw. u2/ub sind völlig identisch. Damit wird 
ein angegebener Sektor in den Puffer gelesen oder vom Puffer auf 
Diskette geschrieben. Es kann dabei immer auf alle Bytes des 
Sektors zugegriffen werden. Die Befehle ’b-r’ bzw. ’b-r’ führen 
nichts anderes aus. Nur ist es nicht mehr möglich, alle Bytes des 
Sektors zu lesen oder zu schreiben. Dies ist auf einen Fehler im 
Betriebssystem zurückzuführen. Das Bedienungshandbuch zur C- 
1570/71 beschreibt diese Sonderfunktion als eine ganz hervor- 
ragende Sache. Sie läßt sich aber nur sinnvoll einsetzen, wenn mit 
dem letzten Sektor eines Programms oder einer sequentiellen Datei 
gearbeitet werden soll. In der Praxis bedeutet dies, daß man ’b-r’ 
und ’b-w’ getrost vergessen kann. Deshalb soll auf diese Befehle 
auch nicht weiter eingegangen werden. 


Jetzt ergibt sich natürlich die Frage, wie man bestimmte Bytes aus 
dem Puffer in den Rechner überträgt? Dies funktioniert wie bei 
den bisherigen Datenkanälen, mit dem ’Get#’- oder dem ’Input#’- 
Befehl, wobei man allerdings meistens den ’Get#’-Befehl verwen- 
den wird. Input# ist selbstverständlich auch möglich, doch muß 
hier gewährleistet sein, daß nach maximal 87/159 Zeichen 
(64er/128er-Modus) ein CR folgt. 


An welcher Stelle ım Puffer die Bytes für einen Lese- 
/Schreibbefehl geholt bzw. geschrieben werden sollen, wird durch 
den Pufferzeiger festgelegt. Dieser ist nach der Ul/U2-Operation 
auf den Beginn des Puffers gesetzt. Möchte man aber auf einen 
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beliebigen Teil des Puffers (Sektors) zugreifen, dann kann man 
dazu den Block-Pointer-Befehl verwenden. Dieser lautet: 


"b-p k b" 


Die Angabe k ist die Kanalnummer (Sekundäradresse), die Sie 
beim Eröffnen des Direktzugriffskanals angegeben haben. Mit b 
kann die Position des Pufferzeigers bestimmt werden. Die Stelle b 
ist dann die Position, die vom nächsten Schreib- oder Lesebefehl 
betroffen ist. Da ein Sektor und somit auch ein Puffer 256 Bytes 
groß ist, darf b nur Werte zwischen O0 und 255 annehmen. 


‘In Programmen wird man für die Parameter, wie Spur und Sektor, 
meistens Variablen verwenden wollen. Das ist kein Problem. Gibt 
man eine Variable über den ’Print#’-Befehl aus, so wird das zur 
Trennung der Parameter erforderliche Leerzeichen immer mit- 
geliefert. Dies ist nämlich das Vorzeichen des Variablenwerts, das 
bei positiven Werten als Leerzeichen gedruckt wird. 


Nun ein Beispiel, wie Sie die Ul/U2-Befehle einsetzen können: 


OPEN 1,8,15 Befehlskanal öffnen 
OPEN 2,8,2,"#" Zugriffskanal öffnen 
IF ds<>0 THEN PRINT DS$ Puffer frei? 

INPUT "spur ";t Spur eingeben 
INPUT "sektor ";s Sektor wählen 
PRINT#1,"ul:2 0"st;s Sektor in Puffer lesen 


IF ds<>0 THEN PRINT DS$ Sektor richtig gelesen? 
Jetzt dürfen Sie an den Daten Manipulationen vornehmen: 


PRINT#1,"b-p";2;10 Pufferzeiger setzen 


PRINT#2,"neue daten" in Puffer schreiben 
PRINT#1,"u2:2 0"st;s Sektor zurückschreiben 
IF ds<>0 THEN PRINT DS$ Sektor geschrieben? 
CLOSE 1 Kanal 1 und 2 schließen 


Close 1 reicht aus, da beim Schließen des Befehlskanals alle an- 
deren Kanäle auch geschlossen werden. 
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2.1.3 BLOCK-ALLOCATE UND BLOCK-FREE 


Immer wieder haben Sie davon gehört, daß die Floppy auf der 
Diskette auch vermerkt, welche Sektoren belegt und welche noch 
frei sind. Ist ein Sektor als belegt gekennzeichnet, kann er von 
normalen Datei- und Programmdaten nicht beschrieben werden. 
Die Sektorbefehle wiederum werden dadurch nicht behindert. 


Deshalb gibt es spezielle Befehle, um einzelne Sektoren zu belegen 
oder freizugeben. Diese lauten: 


"b-f Its" zum Freigeben 
"b-alts" zum Belegen 


Die Angabe 1 ist die Laufwerksnummer (also immer 0), t und s 
sind Spur- und Sektornummer des gewünschten Blocks - im 
Grunde genommen eine einfache Sache, hätte nicht wieder einmal 
im Diskettenbetriebssystem der Fehlerteufel zugeschlagen. Gibt 
man beim ’b-a’-Befehl Sektornummern über 15 an, dann wird 
nicht nur der angewählte Sektor, sondern gleich die ganze Spur 
belegt. Belegt man einen Sektor, der schon belegt ist, dann soll der 
Befehl normalerweise den nächsten freien Sektor suchen. Findet er 
aber auf der Spur keinen, dann probiert er es bei der nächst 
höheren Spur. Diese wird aber vollständig belegt. Auch der ’b-f’ 
Befehl funktioniert nur mit Sektornummern bis 15. Eine höhere 
Sektornummer "interessiert" ihn überhaupt nicht - der Befehl 
überhaupt nicht ausgeführt. Fazit: entweder Sie beschränken sich 
bei Ihren Anwendungen auf die Sektoren 0 bis 15 oder unterlassen 
es besser ganz. Wenn Sie für Ihre im Direktzugriff verwalteten 
Daten jeweils eigene Disketten verwenden, spielt die Block- 
verwaltung sowieso keine Rolle. 


Zum Schluß noch eine Bemerkung. Sollen ’b-a’ und ’b-r’ über- 
haupt funktionieren, ist es erforderlich die Diskette vorher mit "i" 
(über den Befehlskanal) zu initialisieren. 
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2.2 DER AUFBAU DER DISKETTE 
2.2.1 DAS DIRECTORY 


Sicherlich haben Sie sich schon gefragt, wie das Directory funk- 
tioniert. Schließlich muß es auch irgendwo auf der Diskette 
stehen. Damit die Arbeit mit den Directory-Einträgen schnell 
genug abläuft, sind diese nicht wild verstreut, sondern haben eine 
eigene Spur. Bei COMMODORE-Disketten ist das die Spur Num- 
mer 18. Diese Spur kann von anderen Daten nicht belegt werden. 
Auch sollten Ihre Direktzugriffsdateien nicht gerade diese Spur 
belegen. Nun ist es verständlich, warum von insgesamt 683 bzw. 
1366 Sektoren nur 664 bzw. 1328 zur Datenspeicherung zur 
Verfügung stehen. 


Das Directory, also die Dateieinträge, belegen dabei die Sektoren 
1-18 der Spur 18 auf der ersten Diskettenseite. Dabei werden die 
Sektoren nicht in der numerischen Folge benutzt, sondern mit 
einem Versatz von 3 Sektoren. Das heißt : auf Sektor 1 folgen die 
nächsten Daten in Sektor 4 usw. Ist das Ende der Spur erreicht 
werden die anderen Sektoren (jetzt zum Beispiel ab Sektor- 
nummer 2) in der gleichen Art und Weise belegt. 


Jeder Sektor kann dabei maxımal acht Einträge aufnehmen. Man 
kann also auf einer Diskette bis zu 144 Programm- oder Dateititel 
abspeichern. 


Im folgenden wollen wir jetzt den genaueren Aufbau eines 
Directory-Sektors kennenlernen. Die ersten beiden Bytes sind die 
Verkettungszeiger. Diese zeigen an, welche Spur- und Sektor- 
nummer der nächste Directory-Sektor hat. Folgt kein weiterer 
Sektor, dann hat das erste Byte, das die Spurnummer repräsentiert, 
den Wert 0. Das zweite Byte gibt immer an, wie viele Bytes des 
letzten Sektors noch dazugehören. 


Danach folgt der 1. Eintrag des Sektors, dann zwei Leer-Bytes, 
anschließend der 2. Eintrag und so weiter. Das entscheidende ist 
also der Aufbau eines einzelnen Dateieintrags, der jetzt näher be- 
handelt werden soll. 


Byte 


19/20 


21 


22-25 


26/27 


28/29 
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Bedeutung 


Dateityp Bit 0-3: 0 DEL Eintrag gelöscht 
1 SEQ sequentielle Datei 
2 PRG Programm 
3 USR User-Datei 
4 REL relative Datei 
Bit6 1= kein Schreibzugriff erlaubt 
Bit 7: 1= Eintrag ordnungsgemäß geschlossen 


Spur- und Sektornummer des ersten Datenblocks des Ein- 
trags. 


Dateiname des Eintrags (max. 16 Zeichen). Der Rest wird 
mit ’Shift+Space’ (ASCIH-Wert 160) auf gefüllt. 


Spur- und Sektornummer des ersten Side-Sektor-Blocks. 
Wird nur bei relativen Dateien benutzt. 


Länge eines Datensatzes. 
Wird nur bei relativen Dateien benutzt. 


unbenutzte Bytes 
Zwischenspeicher für Spur- und Sektornummer des ersten 
Datenblocks der neuen Datei, wenn mit der ’@’-Funktion 


überschrieben wird. 


Low- und High-Byte der Zahl der benutzen Blöcke der 
Datei. Die Zahl ist in Binärform abgelegt. 


Nun wollen wir die wichtigsten Punkte des Dateieintrags be- 
sprechen. Das ist hauptsächlich das Dateityp-Byte. In diesem ist 
vermerkt, um welche Dateiform es sich handelt. Die Abkürzungen 
aus dem Directory sind Ihnen sicher schon bekannt. Was aber ist 
’DEL’. Dies zeigt an, daß der Eintrag gelöscht ist. Derartige Ein- 
träge werden normalerweise im Directory nicht aufgelistet. Die 
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Floppy übergeht bei der Anzeige des Directorys nämlich alle Ein- 
träge, deren Dateityp O0 ist. Wenn Sie jetzt Bit 7 auf I setzen, 
würde im Directory tatsächlich ein Eintrag mit der Dateityp- 
kennung ’DEL?’ aufgelistet, da jetzt der Dateityp nicht mehr 0 ist. 


Das Bit 7 zeigt an, ob die Datei richtig geschlossen wurde. Wird 
auf der Diskette eine neue Datei angelegt oder ein neues 
Programm abgespeichert, so wird zuerst der Directory-Eintrag 
erstellt - auch um zu prüfen, ob nicht bereits ein gleichnamiger 
Eintrag besteht. Dabei wird auch der Dateityp schon vermerkt, 
lediglich das Bit 7 wird noch nicht gesetzt. Sind die Daten ab- 
gespeichert, wird die Datei geschlossen. Dabei wird in die Bytes 
28/29 die Zahl der belegten Blöcke eingetragen und Bit 7 des 
Dateitys auf 1 gesetzt. Dadurch ist der Eintrag gültig. Ist Bit 7 
“nicht gesetzt, dann wird das im Directory-Ausdruck mit einem 
Stern vor dem Dateityp markiert. Auf diese Weise markierte 
Dateien sind beispielsweise solche, bei denen Sie den ’Close’-Be- 
fehl vergessen haben. Mit dem Setzen des Bits 7 ist der Fehler 
allerdings noch nicht behoben. Sie sollten auf jeden Fall noch 
einen ’Collect’-Befehl durchführen, um die anderen Disketten- 
verzeichnisse in Ordnung zu bringen. Dadurch ist auch garantiert, 
daß die Datei wieder voll benutzbar ist. 


Eine Sonderfunktion hat Bit 6. Ist es gesetzt, dann kann man auf 
den Eintrag keine Schreiboperationen vornehmen. Das heißt der 
’Scratch’- oder der ’Rename’-Befehl wirken nicht mehr. Die Datei 
(das Programm) kann nur noch gelesen werden. Leider gibt es 
keinen Befehl, mit dem dieses Bit gesetzt oder gelöscht werden 
kann. Das können Sie nur "von Hand" machen, indem Sie den 
Diskmonitor aus Kapitel 6.1 verwenden. 


2.2.2 DIE BLOCKBELEGUNGSTABELLE - BAM 


In den vorherigen Abschnitten wurde mehrfach erwähnt, daß in 
einer Tabelle eingetragen ist, welche Blöcke der Diskette noch 
zum Beschreiben frei sind und welche belegt sind. Diese Tabelle 
nennt man bei COMMODORE-Disketten BAM, was eine 
Abkürzung für ’Block-Availability-Map’ (engl. = Blockverfüg- 
barkeitstabelle) ist. 
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Die BAM ist in Sektor 0 der Directory-Spur (18) untergebracht. 
Außerdem enthält dieser Sektor den Diskettennamen, den Sie beim 
Formatieren angegeben haben. 


Bevor wir uns mit dem Gesamtaufbau des Blockverzeichnisses 
beschäftigen, betrachten wir einmal, wie die Sektorbelegung einer 
Spur gespeichert ist. 


Blöcke Sektor 0-7 Sektor 8-15 Sektor 16-23 


$12 %llllllli) %il1lllll %11000000 


1= Sektor frei 0= Sektor belegt 


Für jede Spur sind in der BAM vier Bytes vorhanden. Das erste 
Byte ist ein Binärwert, der die Zahl der freien Blöcke der Spur 
angibt. Die darauffolgenden drei Bytes enthalten ein Bitmuster, 
bei dem jedes Bit einem Sektor entspricht (sofern die Sektor- 
nummer vorhanden ist). Hat das Bit eines Sektors den Wert 1, 
dann bedeutet dies, daß der Sektor noch frei ist. Setzt man das Bit 
auf 0, dann kann der Sektor vom Floppybetriebssystem nicht mehr 
beschrieben werden. 


Die Blockangabe im ersten Byte ist einfach eine Arbeits- 
erleichterung für das C-1570/71-Betriebssystem. So muß es nicht 
jedesmal alle auf 1 gesetzten Bits zählen, was eine zeitaufwendige 
Sache ist. 


Sıe können Ihre BAM sogar mit Hilfe eines Diskettenmonitors so 
manipulieren, daß die Zahl der freien Blöcke der Spur nichts 
mehr mit der Realität zu tun hat. Sie können problemlos ein- 
tragen, daß die Spur 255 freie Blöcke hat, was natürlich nicht 
möglich ist. Da diese Blockangabe auch beim Errechnen der 
Gesamtzahl der freien Blöcke, die Sie im Directory immer unter 
Blocks free’ finden, verwendet wird, sind astronomische Zahlen 
von bis zu über 17000 freien Blöcken möglich - die Sie in Wirk- 
lichkeit natürlich gar nicht haben. 


Das Betriebssystem der Floppy macht diese Spielereien allerdings 
nicht lange mit. Bei allen Veränderungen in der BAM wird 
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geprüft, ob die Blockangaben der Spuren noch mit ihren jeweili- 
gen Bitmustern übereinstimmen. Wird hier eine Abweichung ge- 
funden, so meldet sich die C-1570/71 mit ’71 Dir Error’. 


Die gesamte BAM befindet sich in Sektor 0 der Directory-Spur. 
Dieser Sektor hat folgenden Aufbau: 


4-143 


144-159 
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Bedeutung 


Spur- und Sektornummer des ersten Directory-Sektors, 
normalerweise Spur 18 Sektor 1. 


Formatkennzeichen, bei 4040/1541/1570/1571 immer ’A’ 


(ASCII-Wert 65). Bei falschem Formatkennzeichen ist 
die Diskette schreibgeschützt. 


Bit 7: 0= einseitige 1541/1570-Diskette 


l= zweiseitige 1571-Diskette 


BAM-Verzeichnis für Diskettenseite 1. Jede Spur wird 
durch vier Bytes repräsentiert. Das Verzeichnis beginnt 
mit Spur 1. 


Diskettenname, der beim Formatieren angegeben wurde. 


160/161 
162/163 


164 


Bis zu 16 Zeichen. Der Rest wird mit ’Shift + Space’ 
(ASCII-Wert 160) aufgefüllt. 


zwei ’'Shift + Space’ (ASCII-Wert 160) 


ID-Zeichen der Diskette 


Dies soll die Versionsnummer des Betriebssystems sein. 


165 
167-170 
171-220 


221-255 


Das Zeichen lautet aber immer noch ’2’, obwohl die 
1570/71 schon mit DOS 3.0 arbeitet. 


Formatkennzeichen von Byte 3 

drei ’Shift + Space’ (ASCIH-Wert 160) 

49 Nullwerte 

Zahl der verfügbaren Sektoren pro Spur auf der Rück- 
seite der Diskette. Dabei handelt es sich um die 
Blockangaben aus dem BAM-Verzeichnis für die Rück- 


seite. In Byte 221 ist der Wert von Spur 36. Die letzte 
Angabe, in Byte 255, betrifft die Spur 70. 
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In Byte 2 ist ein Kennzeichen gespeichert, das den Formattyp 
angibt. Lautet dieses Zeichen nicht ’A’, dann setzt die Floppy 
voraus, daß ein anderes Format der Directory- und BAM-Ver- 
waltung vorliegt, das sie natürlich nicht durcheinanderbringen 
möchte. Deshalb sind keine Schreiboperationen zugelassen. Ein 
derartiger Versuch wird mit der Einschaltmeldung quittiert, womit 
das Betriebssystem darauf aufmerksam macht, daß es mit diesem 
Format nichts anfangen kann. Nur die Direktzugriffsbefehle 
funktionieren noch. Das ıst auch einleuchtend. Denn der Sektor- 
schreibbefehl (u2’) kümmert sich um keinen BAM- oder 
Directory-Eintrag. 


Ab Byte 145 ist der Diskettenname abgelegt. Alle Zeichen bis 
Byte 170 sind aber nur für die Directory-Ausgabe vorhanden und 
ergeben die Titelzeile. Der Inhalt ist völlig uninteressant. So er- 
scheinen auch die unzähligen ID-Änderungsprogramme, die immer 
wieder in Fachzeitschriften veröffentlicht werden, in einem ganz 
anderen Licht. Verändert man hier die ID, erhält man nur eine 
andere Anzeige in der Titelzeile. An der eigentlichen ID im 
Header jedes Sektors (siehe 1.1.2) ändert sich auf diese Weise gar 
nichts. 


2.2.3 EIN- ODER ZWEISEITIGE DISKETTEN 


Vielleicht haben Sie sich schon gefragt, wo bei zweiseitigen 
Disketten das Blockverzeichnis (BAM) der zweiten Seite 'versteckt’ 
ist. Der Sektor 0 nimmt schließlich nur die Daten der ersten Seite 
auf. 


Bei zweiseitigen Disketten geht die Directory-Spur auf der Rück- 
seite der Diskette weiter. Die Spur auf der Rückseite hat auch 
nicht die Nummer 18, sondern die Nummer 53, da die Rückseite 
mit Spur 36 beginnt. 


In Sektor 0 der Spur 53 befindet sich von Byte O bis Byte 104 das 
BAM-Verzeichnis der 2. Seite. Dabei handelt es sich aber nur um 
die Bitmuster jeder Spur. Das Byte, in dem die Zahl der freien 
Blöcke der Spur vermerkt ist, ist noch im Sektor 0 auf Spur 18 
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untergebracht (siehe Tabelle). Ansonsten unterscheidet sich das 
Verzeichnis nicht von der BAM der 1. Seite. 


Die restlichen Sektoren der Spur 53 (Nummer 1 bis 18) sind un- 
benutzt. Sie können weder für das Directory noch für Dateien o.ä. 
verwendet werden. Mit der Direktzugriffsmethode können Sie in 
diesen Sektoren beliebige Daten unterbringen - vielleicht eigene 
Verwaltungsverzeichnisse oder einen Kopierschutz. 


Wird eine zweiseitige C-1571-Diskette in einer C-1541 oder C- 
1570 verwendet, kann natürlich nur die erste Diskettenseite gele- 
sen werden. Dies ist insofern problematisch, als die Floppy den 
Zugriff (Programm laden, Daten lesen) mit der Fehlermeldung ’67 
Illegal Track or Sector’ abbricht, wenn die Daten teilweise oder 
ganz auf der Rückseite der Diskette stehen. Wenn Sie die C-1571 
am C-64 oder im C-64-Modus betreiben, verhält sie sich genauso 
wie ein C-1541-Laufwerk. Es würde also das gleiche Problem 
auftauchen. Deshalb gibt es Befehle, die in den 1571-Betrieb oder 
auf die zweite Seite umschalten (siehe Kapitel 3.1.4). Ä 
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2.2.4 MANIPULATIONEN AN DIRECTORY UND BAM 


Das Formatkennzeichen war nur eine der Möglichkeiten, durch 
Manipulationen an den Verzeichnissen ein bestimmtes Verhalten 
der C-1570/71 zu provozieren. Und schon blüht der Handel mit 
diesen Top-Secret-Details. Stolz werden sie unter der Hand 
weitergereicht und einige Computerheftchen protzen immer wie- 
der damit, ihren Lesern die neusten Tricks und Kaniffe zu ver- 
mitteln, um das Directory oder die BAM so richtig schön durch- 
einander zu bringen. 


Alle diese Manipulationen kann man im Grunde genommen in 
zwei Schubladen einordnen. Die eine Gruppe, wie zum Beispiel 
der Formattrick, dient der Erweiterung der Floppy-Fähigkeiten 
oder bietet irgendeinen kleinen Nutzen. Die andere Sorte Tricks 
sind die Basteleien, die das Directory in ein chaotisches Schlacht- 
feld verwandeln. Sie sollen dazu dienen, daß man beispielsweise 
bestimmte Programme nicht mehr so einfach laden kann oder der 
Inhalt der Diskette gar nicht mehr aufgelistet wird o.ä. 


Alle diese Methoden können uns als schon erfahrenen Floppy- 
Programmierer, natürlich nicht schockieren. Im Direktzugriff kann 
man die BAM- und Directory-Sektoren nämlich auslesen und 
nachschauen, was dort passiert ıst. Besonders der Diskmonitor 
(siehe 6.1) zeigt alle derartigen Manipulationen an. 


Deshalb soll hier auf eine endlose Auflistung dieser Kniffe ver- 
. zichtet werden. Es gibt aber auch einige sinnvolle Tricks, die uns 
die Arbeit mit der Floppy erleichtern. 


Als erstes wäre da natürlich das Bit 6 des Dateityps zu erwähnen, 
wodurch man einzelne Einträge vor dem Löschen oder Über- 
schreiben schützen kann (siehe 2.2.1). Ein weiterer beliebter Ort 
der Manipulation ist der Dateiname. Dabei wird meistens die 
Möglichkeit ausgenutzt, daß auch bei einem Namen mit weniger 
als 16 Zeichen alle 16 ausgedruckt werden. Die wurden jedoch 
durch Leerzeichen aufgefüllt. 


Genau das wollen wir ändern. Vielleicht haben Sie auch schon 
probiert, nach dem Auflisten des Directorys einfach die Blockan- 
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gabe eines Eintrags mit einem Ladebefehl (Run/Dload/Load) zu 
überschreiben. Auf diese Weise müssten Sie dann den Dateinamen 
nicht mehr eintippen. Aber die Sache will nicht so richtig funk- 
tionieren. Der Computer reklamiert immer mit ’Syntax Error’. Das 
ist auch nicht verwunderlich, denn was soll er mit dem Dateityp- 
kürzel anfangen, das noch in der Befehlszeile steht? Wenn Sie 
dieses mit Leerzeichen überschreiben, funktioniert das Ganze. 
Doch jetzt ist der Aufwand bald größer als bei normaler Eingabe 
der Dateinamen. 


Genau betrachtet ist es unser Ziel, daß nach dem Dateinamen im 
Directory noch einige Zeichen ausgegeben werden, die aus der 
Zeile eine vollwertige BASIC-Befehlszeile machen. Dann muß 
man wirklich nur noch die Blockangabe überschreiben und schon 
wird das Programm geladen. Als Endzeichen käme folgendes in 
Frage: 


. wenn DLOAD oder RUN verwendet wird. 
‚8 wenn LOAD für BASIC-Programme verwendet wird. 
‚8,1 bei LOAD für absolut zu ladende Programme. 


D } = N 2 


_ Wie Sie in 2.2.1 gelernt haben, muß nun nach dem Dateinamen 
ein ’Shift+Space’ (ASCIH-Wert 160) stehen. An dessen Stelle wird 
nachher im Directory das zweite Anführungszeichen gedruckt. 
Danach müßte man die obigen Angaben einbauen. Dadurch darf 
Ihr restlicher Dateiname, je nach eingebauter Angabe, nur noch 
bis zu 14 Zeichen groß sein. Um diese Manipulation vorzuneh- 
men, brauchen Sie nicht einmal einen hochkomplizierten Disk- 
monitor aus der Schublade zu kramen. Diese Ergänzungen können 
einfach beim Abspeichern eingebaut werden: 


z.B. DSAVE ("name"+CHR$(160)+",8:") 
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2.3 DER AUFBAU DER DATEIEN 
2.3.1 PROGRAMME, SEQUENTIELLE UND USER-DATEIEN 


Nun geht es darum, wie die normalen Programme und Dateien auf 
der Diskette abgelegt werden. Zuerst werden die Programme und 
sequentiellen Dateien besprochen. Im nächsten Kapitel wird dann 
näher auf die relativen Dateien eingegegangen, die schon etwas 
komplizierter sind. 


Die einfachste Form ist immer noch die sequentielle Datei. Die 
Daten werden nacheinander in die Datei geschrieben. Dabei wan- 
dern die Informationen zuerst einmal in den floppyinternen Puf- 
ferspeicher. Ist ein Puffer voll, dann wird dessen Inhalt in einen 
freien Sektor auf die Diskette geschrieben. Dabei muß dieser in 
der BAM als belegt gekennzeichnet werden. Ist das geschehen, 
seht man mit den weiteren Daten genauso vor. 


Nun besteht natürlich das Problem, daß man wissen muß, welche 
Sektoren die Datei bilden und in welcher Reihenfolge man sie 
wieder lesen muß. Dazu befindet sich im Directory-Eintrag ein 
Zeiger, der die Spur- und Sektornummer des ersten Datensektors 
enthält (Byte 1/2). Man weiß jetzt zumindest, wo die Datei be- 
sinnt. Damit man auch den nächsten und den darauffolgenden 
Sektor kennt, werden diese verkettet. Dabei ist in jedem Sektor in 
den ersten beiden Bytes die Spur- und Sektornummer des nächsten 
Sektors angegeben. Aus diesem Grund kann ein Sektor auch nur 
254 Bytes an Daten aufnehmen. Diese Verkettung verläuft so bis 
zum letzten Datensektor. Dieser hat als Spurnummer des nächsten 
Sektors eine 0. Daran erkennt die Floppy, daß mit diesem Sektor 
die Aufzeichnung beendet ıst. 


Normalerweise werden aber kaum alle Bytes des letzten Sektors 
noch zur Datei gehören. Deshalb muß man auch wissen, wieviele 
Bytes noch zur Aufzeichnung gehören. Das wird im zweiten Byte 
des Sektors. (vorher unsere Sektornummer des nächsten Blocks) 
vermerkt. 


Mit dieser Verkettungmethode werden sequentielle Dateien und 
User-Dateien verwaltet. Was aber ist eine ’User-Dateı’? Eigentlich 
nichts anderes als sequentielle Dateien. Sie werden genauso ange- 
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sprochen und bedient, wie wir es ın 1.4 behandelt haben. Nur 
muß der Dateityp anstelle von ’s’ eben ’u’ lauten. Man hat so die 
Möglichkeit, zwischen zwei Bezeichnungen für sequentielle 
Dateien zu wählen. Auf diese Weise kann man das Directory dif- 
ferenzierter gestalten. Ausserdem gibt es auch einen Floppy- 
Befehl, der nur mit User-Dateien funktioniert (davon mehr in 
2.3.3). 


Programme werden nach dem gleichen Verfahren abgespeichert, 
wie die sequentiellen Dateien. Der einzige Unterschied besteht 
darin, daß die ersten beiden Bytes einer Programmdatei die 
Startadresse des Programms bilden (Low-Byte/High-Byte) und 
keine Daten sind. Für die Floppy spielt das keine Rolle, die 
Startadresse muß nämlich der Computer beachten. Der C-1570/71 
wurde lediglich einprogrammiert, daß sie Programmdateien auf 
grund dieser störenden Startadresse nicht verkettet. Darüber hin- 
aus hat der Zugriff auf Programme noch zwei eigene Datenkanäle 
erhalten. Dadurch muß man den Dateityp und die Dateibetriebsart 
nicht mehr angeben (siehe 1.2.1). 


2.3.2 DIE RELATIVE DATEI, DIE SIDE-SEKTOR-BLÖCKE 


Die Daten der relativen Datei werden zuerst einmal nicht anders 
abgelegt, als die einer sequentiellen Datei. Wie sie aber wissen, ist 
eine relative Datei in Datensätze (Records) organisiert. Man kann 
auf jeden beliebigen Datensatz zugreifen. 


Das Wichtigste ist dabei, daß man die Datensatzlänge vorher fest 
definieren muß. Deshalb ist es möglich, mit der Datensatznummer 
und der Datensatzlänge die Zahl der Bytes auszurechnen, die man 
bis zum gewünschten Datensatz überlesen muß. Würde man die 
vorherigen Informationen der relativen Datei tatsächlich überlesen, 
hätte man allerdings nichts gewonnen - das funktioniert auch bei 
einer sequentiellen Datei. 


Die ganze Sache wird aber wesentlich beschleunigt, wenn man die 
Zahl der Bytes bis zum gewünschten Datensatz durch 254 teilt. 
Dies ist genau die Anzahl der Bytes, die in jeden Sektor passt. Das 
heißt, wir können so errechnen, im wievielten Sektor der Verket- 
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tungsfolge der Datensatz zu finden ist. Der Rest, der bei der 
Division entsteht, gibt dann an, beim wievielten Byte des Sektors 
die gewünschten Daten beginnen. Natürlich kann man jetzt die 
Sektorenverkettung verfolgen, um den richtigen Sektor zu finden. 
Doch damit wäre man kaum schneller, als bei einer sequentiellen 
Datei. 


Der Clou der relativen Datei besteht darin, daß die Sektorenver- 
kettung in einem speziellen Verzeichnis protokolliert wird. Dieses 
Verzeichnis besteht aus maximal 6 Sektoren, die man Side-Sektor- 
Blöcke nennt. Sie sind folgendermaßen aufgebaut: 


Byte Bedeutung 


0/1 Spur- und Sektornummer des nächsten Side-Sektor- 
Blocks. 

2 Numer dieses Side-Sektor-Blocks (02:3) °— 

* Weoseisbsieustzendelsennee 

Ast. pur (ndiscktormumer.äss ereiehsider cken co). 

ir ‚spuriniisekterninsen dsiipelea sidersckore ii) 


Das wichtigste bei den Side-Sektor-Blöcken sind die Bytes 16-255. 
Hier wird eine Liste der verwendeten Datenblöcke abgelegt. Die 
Bytes 16/17 sind somit die Spur- und Sektornummer des ersten 
Datensektors der relativen Datei, die Bytes 18/19 die des zweiten 
usw. Insgesamt haben so die Spur- und Sektornummern von 120 
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Datenblöcken in einem Side-Sektor Platz. Um auch eine größere 
Datei bilden zu können, benutzt man einfach weitere derartige 
Side-Sektoren. 


Nun möchte man aber auch wissen, wo der Sektor liegt, der den 
gewünschten Datensatz enthält. Dazu muß man nur die vorher 
errechnete Zahl der Blöcke bis zu dem Sektor, der den Datensatz 
enthält, durch 120 teilen. Auf diese Weise erfährt man, in 
welchem Side-Sektor sich die Angaben zum gesuchten Datensektor 
befinden. Der bei der Division entstandene Rest gibt die Position 
der Spur- und Sektorangaben im Side-Sektor an. 


Aus diese Weise kennen wir jetzt den Sektor, in dem der Daten- 
satz enthalten ist. Weiter kann man mit dem Rest der ersten 
Division, mit Hilfe derer wir die Zahl der Datenblöcke bis zum 
richtigen Sektor ausgerechnet hatten, die Position des Datensatzes 
im Sektor? Eventuell reicht aber ein Teil des Datensatzes bis in 
den nächsten Sektor hinein. Dies errechnet die Floppy dann noch 
durch die aktuelle Position und die Datensatzlänge. 


Bei der Side-Sektor-Methode braucht man so maximal 3, 
normalerweise sogar nur 1 bis 2 Sektorzugriffe, bis man den ge- 
wünschten Datensatz gefunden hat. Zuerst liest man den ersten 
Side-Sektor. Wenn man Pech hat, sind die Angaben des 
errechneten Datensektors nicht in diesem Siıde-Sektor enthalten. 
Deshalb werden in jedem Side-Sektor auch immer die Nummern 
der anderen Side-Sektoren vermerkt (Byte 4-15). So weiß die 
Floppy nach dem ersten Zugriff auf jeden Fall, in welchem Side- 
Sektor die richtigen Spur- und Sektorangaben enthalten sind. Da- 
nach muß man noch den Side-Sektor lesen. Aus diesem entnimmt 
man dann die Position des Datensektors. Spätestens beim dritten 
Zugriff ist der Sektor mit dem richtigen Datensatz gefunden. 


Drei Zugriffe stellen aber wirklich den ungünstigsten Fall dar. 
Normalerweise wird nämlich einer der Side-Sektoren immer im 
Puffer zwischengespeichert. Somit weiß man sofort, in welchem 
Sıde-Sektor-Block sich die gesuchten Angaben zum Datensektor 
befinden. Es sind also üblicherweise zwei Zugriffe auf die Dis- 
kette erforderlich. Wenn man Glück hat und sich schon der 
richtige Side-Sektor im Puffer befindet oder die Datei noch so 
klein ıst, daß Sie nur einen Side-Sektor umfasst, kann man sogar 
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direkt den richtigen Datensektor lesen. Dieser Fall kommt gar 
nicht so selten vor, denn um eine Datei mit mehr als einem Side- 
Sektor zu erhalten, muß sie erst einmal größer als ca. 30 KByte 
werden - und das ist gar nicht wenig. 
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KAPITEL 3 
PROGRAMMIERUNG FÜR FREAKS 
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3.1 PROGRAMME IM DOS-PUFFER 
3.1.1 MEMORY-READ UND MEMORY-WRITE 


Wie Sie schon im Vorwort gehört haben, wird die C-1570/71 von 
einem eigenen Mikroprozessorsystem gesteuert. Im weiteren Teil 
des Floppy-Buches werden wir jetzt intensiver auf diese Interna 
des Laufwerks eingehen. Es wird auch immer mehr von der Pro- 
srammierung der Floppy in 6502-Assembler, der Sprache des ein- 
gebauten Mikroprozessors, die Rede sein. Die folgenden Teile 
können Sie aber durchaus auch verstehen, wenn Sie kein 
Assembler-Profi sind. Was noch nicht ist, kann ja auch noch 
werden. Deshalb sind im Literaturverzeichnis einige Titel zum 
Thema Assembler-Programmierung angegeben. 


Wie Sie bereits wissen, hat die Floppy einen internen 
Pufferspeicher. Insgesamt handelt es sich um 2 KByte RAM, die 
im Bereich von $0000 bıs $07FF untergebracht sind. Ein Teil des 
RAMs wird zu Systemzwecken benötigt, sonst könnte der Mikro- 
prozessor gar nicht funktionieren. Der andere Teil, insgesamt 
5*256 Bytes, wird als Pufferspeicher verwendet. In diesen Puffern 
. können aber nicht nur Daten abgelegt werden. Vielmehr ist es 
auch möglich, darin Programme in 6502-Maschinensprache 
unterzubringen. Diese können dann ins Betriebssystem der Floppy 
eingebaut werden. | 


Nun brauchen wir natürlich wieder einen Befehl, mit dem man 
das Programm in den Puffer der Floppy schreiben kann. Dazu 
würde beispielsweise die Direktzugriffsmethode vollständig aus- 
reichen. Man wählt in diesem Fall einen speziellen Puffer aus und 
überträgt das Programm - wie die Daten - mit dem ’Print#’- 
Befehl. Die C-1570/71 kann aber noch mehr. Es gibt spezielle 
Befehle, die nur dazu dienen, den Inhalt einer bestimmten 
Speicherstelle des Floppy-RAMs an den Rechner zu senden. 
Dieser Befehl wird ’memory-read’ genannt. Seine Syntax sieht wie 
folgt aus: 


"m-r"+chr$(l)+chr$(h)+chr$(z) 
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1 = Low-Byte der Speicheradresse 
h = High-Byte der Speicheradresse 
z = Zahl der Bytes, die zu lesen sınd 


Die Parameter 1 und h ergeben die Adresse der gewünschten 
Speicherstelle. Mit z kann die Anzahl der Bytes, die man ab dieser 
Speicherstelle lesen möchte, bestimmt werden. Die Angabe z darf 
allerdings auch entfallen. Dann nimmt die Floppy an, daß nur ein 
Byte erwünscht ist. Der ’m-r’-Befehl wird über den Befehlskanal 
an die Floppy übermittelt. Über den gleichen Kanal werden die 
Daten dann auch eingelesen. Wenn Sie beipielsweise die Speicher- 
stelle 151 (hex. $97) lesen möchten, könnte die Befehlsfolge bei- 
spielsweise lauten: 


a= 951 Adresse festlegen 
OPEN 1,8,15 Befehlskanal öffnen 
PRINT#1,"m-r"'CHR$Ca and255)CHR$(Ca/256) Adresse an Floppy 
GET#1,a$% Byte von Floppy 
PRINT ASC(a$+CHR$(0)) Bytewert ausgeben 


In diesem Programm würde die Zahl der Sektoren p7 Spur des 
letzten IBM-34-Formats abgefragt. 


Ebenso können an die Floppy Byte-Werte übermittelt werden, die 
dann in eine bestimmte Speicherstelle geschrieben werden. Der 
dazu notwendige Befehl lautet: 


"m-w"+CHR$(I)+CHRS$(h)+CHR$(z)+CHR$(b1)+CHR$(b2)... 


Wie Sie sehen wird mit I und h wieder die Adresse der Speicher- 
. stelle angegeben. Danach folgt die Anzahl der Bytes, die ab dieser 
Speicherstelle in das Floppy-RAM geschrieben werden. Diesmal 
können Sie die Angabe z nicht weglassen. Zum Schluß folgen 
noch die eigentlichen Daten-Bytes. Dabei können bei einem ’m- 
w’-Befehl maximal 34 Bytes gleichzeitig übermittelt werden. Dies 
hängt wieder damit zusammen, daß der Eingabepuffer der C- 
1570/71 nur 41 Zeichen groß ist. Wenn Sie größere Speicherab- 
schnitte, zum Beispiel ein Maschinenspracheprogramm, ın das 
RAM schreiben wollen, müssen Sie dieses Vorhaben eben ın 
mehreren Teilschritten erledigen. 
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3.1.2 MEMORY-EXECUTE UND BLOCK-EXECUTE 


Das Einlesen eines Programms in den Puffer bringt natürlich 
nichts. Man muß dieses Programm auch irgendwie starten können. 
Das geschieht mit dem ’m-e’-Befehl. Der Befehl hat folgende 
Parameter: 


"m-e"+chr$(l)+chr$(h) 


Wieder muß eine Speicherstelle, zerlegt in Low- und High-Byte 
angegeben werden. Das Betriebssystem der C-1570/71 springt nun 
an diese Speicherstelle. Dabei muß an dieser Adresse ein sinn- 
volles Programm beginnen - ansonsten stürzt das Floppy-System 
ab. Wenn man in seinem Assembler-Programm die Anweisung 
’RTS’ erteilt, nimmt das Betriebssystem seine Arbeit auf. 


Die Spezialisten unter Ihnenwissen jetzt natürlich, daß man auch 
ganz bestimmte Unterprogramme des Floppy-Betriebssystems 
aufrufen kann. Das folgende kleine Programm würde zum Beipiel 
eine bestimmte Spur total zerstören: 


10 s = 18 

20 OPEN 1,8,15 

30 PRINT#1,'m-w"CHR$CO)JCHRSCIICHRECE) 
CHR$CZOJCHRSCIEFICHRSC2ESZICHREC76)CHRSCISO)CHRSC234) 

40 PRINT#1,"m-W"CHRSCSICHRSCOJCHRSCI)CHRECS) 

50 PRINT#1,"m-w"CHR$SCOJCHRSCOJCHRECT)CHR$C224) 

60 CLOSE1I 


Die Spur muß dabei in s angegeben werden. Verwenden Sie zu 
diesem Experiment unbedingt eine neu formatierte oder eine nicht 
mehr benutzte Diskette, denn die Daten werden nicht nur völlig 
zerstört, sondern das Betriebssystem wird bei dieser Diskette 
immer ziemlich durcheinandergeraten. Das Programm erzeugt 
nämlich einen sogenannten ’Killertrack’ (siehe 6.3.5). 


. Sicherlich vermissen Sie in diesem Beispiel den ’m-e’-Befehl. Das 
Programm wird durch eine raffinierte Methode über den ’m-w’- 
Befehl gestartet. Das soll uns nicht weiter stören. Es kam auch 
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vielmehr darauf an, zu zeigen, welche Möglichkeiten Sie mit dem 
Speicherzugriff haben - selbst von BASIC aus. 


Wenn man größere Programme in den Puffer bringen möchte, um 
sie dort auszuführen, kann das ganz schön zeitraubend werden. 
Am sinnvollsten wäre es, wenn man das Programm von Diskette 
in den Puffer einlesen würde und dann starten könnte. Genau 
gesehen müssen Sie jetzt den ’Ul’- und den ’m-e’-Befehl 
kombinieren. Dabei wird der Inhalt eines Sektors (das Programm) 
in den Puffer gelesen und dann ausgeführt. Die Entwickler der 
Floppy haben sich überlegt, daß dies auch in einem Befehl mög- 
lich sein müßte. Dieser lautet: 


"b-eklts" 
"b-e";k;l;t;s 


Dabei handelt es sich bei k und 1 um die Kanal- und Laufwerks- 
nummer, wie Sie es schon bei den Direktzugriffsbefehlen kennen- 
gelernt haben. t und s sind wieder Spur- und Sektornummer. Der 
angewählte Sektor wird bei ’b-e’ in den dem Kanal zugewiesenen 
Puffer geladen. Danach wird an den Anfang des Puffers 
gesprungen, um dessen Inhalt als Maschinenspracheprogramm 
auszuführen. 


Der Befehl bringt gegenüber einer Kombination des ’Ul’- und 
"m-e"-Befehls kaum einen Vorteil. Ausserdem wird er sowieso 
sehr selten verwendet. Wenn man nämlich Programme von Dis- 
kette ın das Floppy-RAM lesen und dort ausführen möchte, gibt 
es dafür noch einen weiteren, wesentlich besseren Befehl, den wir 
in 3.1.5 besprechen werden. 
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3.1.3 Die User-Befehle 


User-Befehle sind solche, die das Betriebssystem veranlassen, Pro- 
gramme an einer bestimmten Stelle im Speicher auszuführen. Dazu 
wird zuerst ein ’U’ angegeben, danach folgt eine Ziffer oder ein 
Buchstabe. Dieses zweite Zeichen wählt eine aus mehreren 
vordefinierten Adressen aus, die angesprungen werden können. 


Folgende User-Befehle sind vorhanden: 


User-Befehl Adresse Funktion 

UI oder UA $CD5F Block-Read-Befehl 
U2 oder UB %CD97 Block-Write-Befehl 
U3 oder UC $0500 Sprung in Puffer 2 
U4 oder UD %0503 Sprung in Puffer 2 
U5 oder UE $%0506 Sprung in Puffer 2 
U6 oder UF %0509 Sprung in Puffer 2 
U7 oder UG $050C Sprung in Puffer 2 
U8 oder UH $050F Sprung in Puffer 2 
U9 oder UI $FFO1 1540/41-Bus umschalten 
U: oder UJ $EAAO Reset 

U; oder UK $FE67 Interruptroutine 


Einige der User-Befehle springen in Puffer 2 (U3-U8). Dabei 
haben die Adressen einen Abstand von genau 3 Bytes. So kann 
man in diesem Puffer sehr einfach eine Vektortabelle einrichten. 
Dies ist eine Liste mit lauter Sprungbefehlen, die dann zu den 
einzelnen Funktionen, die mit den User-Befehlen aufgerufen 
werden, verzweigt. 


Die restlichen User-Befehle springen an verschiedene Stellen im 
Betriebssystem. Damit wurden noch einige zusätzliche Floppy- 
Funktionen eingebaut. Die Befehle Ul und U2 kennen Sie ja be- 
reits aus 2.1. 


Der U9- oder UI-Befehl dient dazu, zwischen dem 1540- und 
1541-Bus umzuschalten. Die 1540 war die Floppy zum VC-20. Da 
der VC-20 eine etwas höhere Taktfrequenz als der C-64 hat, sollte 
man mit ’UI-’ den Bus etwas schneller schalten. Die Befehlsfolge 
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’UI+ schaltet den Bus wieder auf das 1541-Zeitverhalten. Wird 
das ’+ oder ’-’ weggelassen oder ein anderes Zeichen angegeben, 
dann führt die Floppy einen Teil-Reset durch. Dabei werden 
Zeropage und Systemzeiger neu eingerichtet. Ein RAM/ROM-Test 
sowie das Anlaufen des Laufwerkmotors entfallen aber. 


Der ’UJ’-Befehl ist der Total-Reset. Dabei verhält sich die C- 
1570/71, als ob man sie einmal aus- und wieder eingeschaltet 
hätte. 


Die C-1570/71 enthält (im Gegensatz zur 1541) noch den ’UK’- 
Befehl. Mit diesem Befehl wird ein ’BRK’-Befehl angesprungen 
(siehe ROM-Listing $AA2D). Folglich wird mit ’UK’ die Inter- 
ruptroutine gestartet. Im Normalbetrieb hat das keine besondere 
Wirkung. Hat man aber in diese Routine ein eigenes Programm 
eingefügt (mehr darüber im DOS-Kapitel), dann kann dieses 
damit gestartet werden. 


Die User-Befehle haben gegenüber dem "m-e’-Befehl einen ge- 
waltigen Vorteil. Man kann sie in fast allen Situationen 
verwenden, wenn ein Programm nur eine Funktion zur Eingabe 
von Floppy-Befehlen hat - sei es die Textverarbeitung, das 
Datenbankprogramm usw. 


Der ’m-e’-Befehl hingegen kann nur in BASIC angewendet 
werden, denn man benötigt die CHR$-Funktion, um Low- und 
High-Byte der Startadresse zu übermitteln. 


3.1.4 DIE USERO-BEFEHLE 


Es ist bei COMMODORE schon fast Tradition, daß in den 
Geräten viele interessante Funktionen enthalten sind, die ım 
Handbuch schlichtweg verschwiegen werden. Und so bietet auch 
die C-1570/71 noch eine ganze Reihe von Befehlen, die 
überwiegend für die Handhabung von Disketten im CP/M-Format 
IBM System 34’ zuständig sind. 


Allen User0-Befehlen folgt eine Befehlsnummer. Diese Nummer 
setzt sich aus verschiedenen Bit-Daten zusammen. Sie wird des- 
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halb üblicherweise mit dem CHR$-Befehl in die Befehlskette 
eingebunden. Danach folgen die Parameter der einzelnen Befehle. 
Alle Befehlsnummern setzen sich aus folgenden Daten zusammen: 


BitO : Laufwerksnummer (0/1) 
Bit1-3 : Nummer der UserO-Funktion 
Bit4 : Angesprochene Diskettenseite 


0= Seite 1 1= Seite 2 
Bit5-7 : Verschiedene Steuerflags 


Die Laufwerksnummer lautet natürlich bei der C-1570/71 immer 
0. Hier sind die User0-Befehle schon auf ein eventuell einmal er- 
scheinendes Doppellaufwerk eingerichtet. Bei der C-1570 muß Bit 
4 selbstverständlich auch immer auf O bleiben, da die C-1570 nur 
eine Diskettenseite verwenden kann. 


Alle User0-Befehle funktionieren nur, wenn die Floppy im C- 
1570/71-Modus betrieben. Im 1541-Modus werden Sie ignoriert. 
Die einzige Ausnahme ist die Befehlsnummer 31. Hier werden 
unter anderem die Funktionen zur Verfügung gestellt, mit denen 
man Diskettenseiten anwählen kann u.ä. 


Schauen wir uns also zuerst diese neuen Zusatzbefehle an. Bei 
allen Befehlen muß es heißen: 


"U0O"+CHR$(31)+"aa" 
oder "U0>aa" 


Anstelle der Zeichen ’aa’? muß dann die entsprechende Zusatz- 
funktion eingesetzt werden. Es gibt dabei folgende neue Befehle: 
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aa Funktion 
M1 Schaltet die Floppy in den 1571-Modus. Dabei wird das System 
mit 2 MHz Taktfrequenz betrieben. Damit 
können die C-1571-Eigenschaften auch im C-64-Modus 
verwendet werden. 
MO  Schaltet. auf 1541-Modus mit 1 MHz Taktfrequenz. 
HO Aktiviert den Kopf auf Seite 1 
HI Aktiviert den Kopf auf Seite 2 
Der H-Befehl (Head) funktioniert nur im 1541-Modus. 
Bit 7 im steuert bei 'M' und 'H' die Disketten- 
initialisierung : 
0= Diskette wird nach Befehl initialisiert 
1= Diskette wird nach Befehl nicht initialisiert 
Befehlnummer 31 bedeutet also 'mit Initialisierung', 
Nummer 159 'ohne Initialisierung' 
Rx Setzt Zahl der Leseversuche in Zeropage-Adresse $6A. 
Der ASCII-Wert x wird direkt in $6A übernommen 
(genaue Funktion der Adresse siehe Zeropage-Listing). 


x Der ASCII-Wert x wird als neue Geräteadresse der 
Floppy übernommen. x muß im Bereich 4-15 liegen. 


Eine weitere, besonders im C-128-Modus wichtige Funktion ist 
das Datei-Schnell-Laden. Wie Sie wissen ist die Ladegeschwindig- 
keit beim C-128 wesentlich höher als beim C-64. Dieses Schnell- 
Laden wird nicht mehr über Kanal 0 organisiert, sondern nur 
durch einen Befehl über den Befehlskanal aufgerufen. Danach 
werden die Daten mit dem schnellen Busmodus an den Rechner 
übertragen. Der Befehl hat folgende Syntax: 


OPEN1,8,15,"u0"+CHR$(32)+"dateiname" 
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Auch hier steuert Bit 7 in der Befehlsnummer (32) wieder eine 
Sonderfunktion: | 


Bit 7 : 0= Dateityp wird auf PRG getestet. 
1= Dateityp wird nicht getestet. 
Alle sequentiellen Dateitypen werden geladen. 


d auf PRG getestet. 


Doch jetzt wollen wir uns mit den wichtigsten User0-Befehlen 
beschäftigen. Dies sind Befehle für den Betrieb der Floppy im 
CP/M-Modus. Dabei müssen Sıe zuerst einige Zeropage-Adressen 
kennenlernen. Diese werden zum einen beim Programmieren in 
Maschinenspache benötigt, sind aber auch in BASIC-Programmen 
anwendbar. 


Adresse Funktion 

$3C 60 logischer Sektorversatz bei Disketten im 
IBM-System-34 Format. 
Wird bei 'Sektor lesen/schreiben! 
verwendet. 


$5E 94 Bit 0-3 = Nummer der aktuellen Fehler- 
rückmeldung. Dies ist genau der Wert, der 
normalerweise von der Jobschleife in 
Zeropage-Adresse $00-$05 gesetzt wird. 
Bit 7 : 1= Diskette ist im IBM-Format 
0= Diskette ist im Commodore- 
Format 


Das große Flo buch 1571/70 121 


Bei allen CP/M-Funktionen, die die Floppy unterstüzt werden die 
Daten im schnellen Busmodus übertragen. Dieser 
Übertragungsmodus kann aber nur in Maschinensprache 
programmiert werden. BASIC-Programme sind zu langsam die 
Daten zu übernehmen. Wird eine CP/M-Funktion mit dem 
entsprechenden User-0O-Befehl aufgerufen, dann sendet die Floppy 
die Daten, ohne daß sie vom Rechner emfangen werden - sie 
gehen verloren. 


Dies ist nicht sehr tragisch, da die CP/M-Befehle folgende 
Zusatzmöglichkeiten bieten: 


Bit 5: 1= Sektor nicht in Puffer lesen/schreiben. 

0= Sektor von Diskette in Puffer lesen/schreiben. 
Bit 6: 1= Lese-/Schreibfehler nicht beachten. 

0= Lese-/Schreibfehler melden. 
Bit 7: 1= Puffer nicht an Rechner übertragen. 

0= Puffer an Rechner übertragen. 


Die Bits 5-7 der Befehlsnummer steuern verschiedene 
Sonderfunktionen. So kann auch die unter BASIC störende 
Übertragung der Daten durch Bit 7 verhindert werden. Auf diese 
Weise wird ein IBM-34-Sektor nur in den internen Floppy-Puffer 
eingelesen. Die Übertragung zum Rechner kann durch die 
Direktzugriffsbefehle geschehen. 


Dazu müssen Sie wissen, daß die Daten eines IBM-34-Sektors 
immer ab Adresse $0300 des Floppy-Speichers abgelegt werden 
(Puffer 0). Der Grund dafür liegt darin, daß IBM-34-Sektoren bis 
- zu 1024 Bytes umfassen können und somit 4 Puffer belegen. Das 
bedeutet auch, daß Sie ın diesem Fall 4 verschiedene 
Direktzugriffkanäle verwalten müssen. 


Nun ist die Frage, wie erkannt wird, welche Sektorlänge die 
eingelegte Diskette hat. Weiter ıst es bei CP/M-Disketten auch 
möglich Disketten mit unterschiedlichen Anzahlen von Sektoren zu 
beschreiben. Es muß also eine Möglichkeit geben die in das 
Laufwerk eingelegte Diskette zu analysieren, um die Daten des 
Diskettenformats zu ermitteln. 
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Dazu bietet die Floppy zwei Sonderfunktionen. Mit der einen 
kann der Header des nächsten Sektors gelesen werden. Dabei wird 
zuerst versucht einen IBM-System-34-Sektor zu lesen. Scheitert 
dies, probiert die Floppy, ob es sich um einen Sektor im 
COMMODORE-Format handelt. Das Ergebnis der Leseversuche 
ist in Zeropage-Adresse $5E a Bit 7 gibt den 
eingelegten Diskettentyp an. 


Bei IBM-34-Disketten können nun die Zeropage-Adressen $24- 
. $29 gelesen werden, die das ID-Feld des IBM-Sektors enthalten. 
Auf diese ‚Weise gibt beispielsweise s$27 Aufschluß über die 
Länge des Sektors. 


Die weiteren Daten des Diskettenformats ermittelt eine zweite 
User-0-Funktion. Diese liest alle ID-Felder einer IBM-34- 
Diskette und errechnet folgende Angaben: 


Befehlsstatusbyte ($5C). 

Zahl der Sektoren der Spur ($97). 

Nummer der Spur, die im Header eingetragen ist. 
kleinste Sektornummer der Spur ($60). 

Größte Sektornummer der Spur ($61) 
Sektorversatz. 


re 


Diese Angaben werden in der oben genannten Reihenfolge im 
schnellen Busmodus an den Rechner übermittelt. Ein BASIC- 
Programm wäre also nicht fähig die Daten zu empfangen. In 
diesem Falll müßte man sie durch Direktzugriffsbefehle (’'m-r’) 
direkt aus dem Floppy-Speicher lesen. 
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Befehlsnummern der Analyse-Befehle: 


Bit 76543210 Funktion 
000x0100 nächsten Sektor-Header lesen. 
x= Seitennummer. 
y00x1010 Spur analysieren. 
x= Seitennummer. 
'y= 1= als 4. Zeichen angegebene Spur ansteuern. 
0= Spur O0 ansteuern. 


Die Spur-Analysefunktion ist von BASIC aus nicht zu starten, da 
der User-O-Befehl fehlerhaft arbeitet. Deshalb sollten Sie dazu 
folgende Sequenz über den Befehlskanal übermitteln: 


"m-w"chr$(O)chr$(5)chr$(3)chr$(76)chr$(30)chr$(133) 


Die Funktion wird mit "u3" aufgerufen. Weitere Beispiele zum 
Analysieren fremder Formate enthält das Kapitel 4.2.3. 


Wenn Sie auf diese Weise die Floppy auf die IBM-34-Diskette 
eingestellt haben, können Sie nun mittels User-O- 
Direktzugriffsbefehlen einzelne Sektoren lesen oder schreiben. 


Bit 76543210 Funktion 
abcx0000 Sektor lesen. 
abcx0010 Sektor schreiben. 


Seitennummer 

Puffer an Rechner übertragen. 
Fehler beachten. 

Puffer schreiben/lesen. 


x 
u 


ara 


Wie Sie sehen, können bei den Sektorbefehlen die 
Zusatzfunktionen in den Bits 5-7 angegeben werden, die bereits 
besprochen wurden. Durch Bit 4 kann die gewüchnschte 
Diskettenseite bestimmt werden. Bei der C-1570 Floppy muß 
dieses Bit selbstverständlich immer den Wert O0 haben, da dieses 
Laufwerk nur eine Dskettenseite bearbeiten kann. 
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Die Parameter, der zu bearbeitenden Sektoren wird im Anschluß 
an die Befehlnummer an die Floppy über den Befehlskanal 
übermittelt. Dabei lautet ein Befehl nun: 


"u0"+chr$(befehl)+chr$(Spur)+chr$(Sektor)+chr$(Anzahl)+chr$(neu) 


Die Spur- und Sektornummer müssen als ASCIH-Wert angegeben 
werden. Der folgende Parameter ermöglicht gleich mehrere 
Sektoren hintereinander zu lesen und an den Rechner zu 
übertragen, wobei die Nummer des nächsten Sektors durch 
Addition der aktuellen Sektornummer und des Sektorversatz ($3C) 
entsteht. Diese Funktion hat nur dann einen Sinn, wenn der 
schnelle Busmodus verwendet wird. Zum Schluß kann noch eine 
Spurnummer genannt werden, die nach dem Sektor-Befehl 
angesteuert werden soll. Auf diese Weise kann die Floppy schon 
die nächste Spur ansteuern, während der Rechner noch die letzten 
Daten verarbeitet. 

Letztlich bietet die C-1570/71 noch eine Funktion, die bei vielen 
anderen Floppies nicht möglich ist, die Möglichkeit belliebige 
IBM-System-34 Formate zu formatieren. Die Syntax des User-O0- 
Befehls lautet: 


Bit 76543210 Funktion 
0iyx0110 IBM-34-Diskette formatieren. 


x= Seite bei der begonnen werden soll. 
y= Zahl der zu formatierenden Seiten. 
(0= 1 Seite; 1= 2 Seiten) - 
i= 1= Spur-Index-Marke schreiben. 
0= Index-Marke nicht schreiben. 
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Parameter: 


4.Zeichen: Bit7: 1= IBM-System-34-Format. 
O= COMMODORE -Format. 
Bit6: 1= angegebene Sektortabelle verwenden. 
0= Sektortabelle aus erster Nummer und 
Versatz erstellen. 
Bit0O-5: kleinste Sektornummer der Spur. 
5.Zeichen: Sektorversatz -1 
Bei COMMODORE -Format: ID1 
6.Zeichen: Kennzeichen für Sektorlänge [1]. 
Bei COMMODORE -Format: ID2 
7.Zeichen: letzte logische Spurnummer [39]. 
8.Zeichen: größte Sektornummer der Spur [16]. 
9.Zeichen: erste logische Spurnummer [O0]. 
10.Zeichen: erste physikalische Spurnummer [0]. 
11.Zeichen: Leer-Byte, mit dem Sektoren gefüllt werden [229]. 
ab 12.Zeichen: Hier werden, wenn Bit 6 des 4. Zeichens gesetzt ist, die 
Nummern der Sektoren genannt. 


Wie Sie sehen ist die Formatierfunktion sehr komplex, wodurch 
allerdings auch sehr umfangreiche Formatiermöglichkeiten 
gegeben sind. Es gibt kein Format, daß Sie mit dieser User-O- 
Funktion nicht erstellen könnten. Es ist sogar möglich ein 
Diskettenformat zu formatieren, daß die Floppy nicht mehr 
analysieren oder lesen kann. Dies ist beispielsweisee der Fall, 
wenn jede Spur nur einen Sektor enthält, alle Sektoren der Spur 
die gleiche Nummer haben, 0.4. 


Die vielfältigen Möglichkeiten dieses Befehls lassen sich auch in 
BASIC nützen. Dazu sollten Sie die BASIC-Programme des 
Kapitels 4.2.3 eingehender studieren, die die Anwendung der 
User-O-Befehle ausführlich demonstrieren. 
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3.1.5 AUTOSTART-FILES 


Die Autostart-Files sind im Handbuch der C-1570/71 nur kurz 
‘ erwähnt. Die Funktion und der Nutzen dieser Programmform 
wurde, wie bei COMMODORE üblich, verschwiegen. 


Eine Autostart-Datei beim täglichen Umgang mit der Floppy 
kaum zu gebrauchen. dabeı handelt es sich eine USR-Datei, deren 
Inhalt ın einen beliebigen RAM-Bereich des Floppy-Speichers 
geladen wird. Das bedeutet, daß Sie diese Dateiform nur 
benötigen, wenn Sıe eigene Programme im Floppy-Speicher 
ausführen möchten. Darüberhinaus sind die Autostart-Files nicht 
so einfach aufgebaut, wie Programmdateien. Lassen Sie sich 
jedoch nicht abschrecken, diese Floppy-Funktion einzusetzen. 


AUFBAU EINES AUTOSTART-FILE 


0/1 Startadresse im RAM 
(Low-Byte/High-Byte). 

2 Zahl der Datenbytes in 

| diesem Sektor (max. 255). 

3 - n Datenbytes für Autostart- 
Programm. 

n+1 Prüfsumme, die aus 
Byte 1 bis Byte n 
errechnet wird. 


Autostart-Programme sind auf der Diskette wie sequentielle 
Dateien organisiert. Der Dateityp muß allerdings ’USR’ lauten. Die 
User-Dateien (USR) werden genauso wie die seugntiellen Dateien 
gehandhabt, mit dem Unterschied, daß als Dateityp ’u’ angegeben 
wird. Sie können User-Dateien nur mit dem BASIC 3.0-Befehl 
eröffnen, da BASIC 7.0 diese Dateiform nicht unterstützt. 
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Der Aufbau einer Autostart-Datei ist nicht ganz einfach. Sie 
besteht aus beliebig vielen Blöcken, deren jeweilige Struktur in 
der obigen Tabelle dargestellt ist. Jeder dieser Blöcke, die in der 
User-Datei direkt aufeinander folgen, wird von der Floppy 
seperat bearbeitet. Selbstverständlich darf die User-Datei auch nur 
aus einem Autostart-Block bestehen. 


In einem Autostart-Block wird zuerst die Startadresse genannt, bei 
der die Programmdaten des Blocks im Floppy-RAM abgespeichert 
werden sollen. Darauf ist die Anzahl der Bytes angegeben, die bei 
dieser Startadresse abgelegt werden. Ab Byte 3 müßen die 
Datenbytes des Programms angegeben werden. Danach folgt noch 
eine Prüfsumme, die aus der Startadrese, der Anzahl der 
Datenbytes und den Datenbytes selbst errechnet wird, indem man 
die Werte dieser Bytes addiert. Entsteht beim Addieren ein 
_ Übertrag, so wird dieser zur Prüfsumme gezählt. 


Um größere Programme im Floppy-Speicher zu betreiben, müssen 
diese in 255 Bytes umfassende Teile zerlegt werden. Danach wird 
für jeden dieser Teile ein eigener Autostart-Block erstellt. Da dies 
sehr aufwendig ist, folgt unten ein Programm, daß diese Arbeit 
übernimmt. Es erstellt aus jeder Programmdatei eine Autostart- 
Datei. Die ersten beiden Bytes der Programm-Dateı, die 
Startadresse, werden ebenso als Startadresse des Autostart-Files 
benützt. 
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10 dim a$(255) 

20 input "programm-datei ";b$ 

30 input "user-datei ";c$ 

40 open 1,8,0,b$ 

50 open 2,8,2,c$+",u,w" 

60 gosub 280 

70 on sgn(st) goto 260: a= asc(d$) 
80 gosub 280 

90 on sgn(st) goto 260: a= atasc(d$)*256 
100 print#2, chr$(a and255)chr$(a/256); 
110 p=0 
120 for n= 110255 
130 gosub 280 
140 p= (257*(ptasc(d$) )/256)and255 
150 ifst andö4then 190 
160 if sgn(st) then 260 

170 a$(n)= d$ 

180 next 

190 print#2, chr$(n); 
200 for m= 1ton 
210 print#2, a$(m); 
220 next 
230 print#2, chr$(p); 
240 a= a+n 
250 on n/256+1 goto 270,100 
260 print "diskfehler!" 
270 close2: close1: end 
280 get#1,d$: d$= left$(d$+chr$(0),1) 
290 return 


Die Autostart-Datei wird von der Floppy geladen und automatisch 
gestartet, wenn man 


OPEN 1,8,15,"&dateiname" 


eingibt. Dabei wird das Programm im Floppy-Speicher bei der 
Adresse des ersten Autostart-Blocks gestartet. 
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KAPITEL 4 
DIE C-1570/71 und CP/M 
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4.1 Wie steuert CP/M die Floppy 


4.1.1 BDOS und BIOS 


Wenn Sie sich eingehender mit dem Betriebssystem CP/M 
beschäftigen, werden Sie sehr schnell auf die Begriffe BDOS und 
BIOS stoßen. Das BDOS, eine Abkürzung für ’Basıc Disk 
Operating System’, ist der Programmteil der Betriebssystems, der 
die Arbeit mit dem Floppylauf werk steuert. Es ist dabei für die 
Verwaltung der Datein, für die Organisation des Directory usw. 
zuständig. Der zweite Teil, das BIOS(Basic Input Output System), 
ıst für die Ansteuerung der Floppy, das Schreiben und Lesen der 
Daten auf die Diskette usw. verantwortlich. 


Selbstverständlich kann hier keine vollständige Beschreibung 
dieser CP/M-Teile erfolgen - nicht einmal eine grundlegende 
Einführung. Diese Thematik ist derartig umfangreich, daß damit 
ein Buch, wie dieses Floppybuch, spielend gefüllt werden kann. 
Aus diesem Grund werden nur einige interessante Aspekte der 
Floppy-Programmierung unter CP/M betrachtet. 


Das BDOS ist bei allen CP/M-Systemen identisch und verwaltet 
die Daten in Blöcken, die 128 Bytes umfassen. Es ist nur für die 
logische Verwaltung und die Handhabung der Daten zuständig. 
Weiter ıst das BDOS der Betriebssystemteil, der dem 
Programmierer eine Vielzahl von Funktionen zur 
Floppyhandhabung zur Verfügung stellt. 


Das Schreiben und Lesen der Datenblöcke des BDOS übernimmt 
das BIOS. Dieser Teil steuert die einzelnen Laufwerke an. Deshalb 
wird das BIOS für jedes CP/M-System neu entwickelt, denn jedes 
Computersystem ist anders aufgebaut. So ist es Sache der 
Entwickler des Computersystems, wie leistungsfähig das BIOS ist. 
Es können beispielsweise mehrere verschiedene Diskettenformate 
‚verarbeitet werden usw. 
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4.1.2 DPB - Diskparameterblock 


Zum Verwalten der Daten muß das BDOS die genauen Daten des 
Diskettenformats kennen. Schließlich ıst es wichtig, welche 
Kapazität die Diskette hat oder wieviele Directoryeinträge möglich 
sind. Weiter muß das BIOS wissen, welche der Spuren der Diskette 
für Daten, für das Betriebssystem oder für das Directory 
verwendet weden. Ausserdem sind die Angaben über die Zahl der 
Sektoren pro Spur, Sektorversatz etc. wichtig. 


Diese Daten des Diskettenformats werden in einer speziellen 
Tabelle verwaltet, die DPB (Diskparameterblock) genannt wird. 
Diese Tabelle enthält folgende Angaben: 
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Byte Abk. Funktion 


2 BSH Block-Shiftfaktor. 
Diese Zahl gibt die Größe eines 
Verwaltungsblocks des BDOS an. Die einzelnen 
Blöcke des BDOS werden zu größeren Einheiten 
zusammengefaßt. Dabei gilt folgende Formel: 


Bytes pro Verwaltungsblock = 2 hoch (7+BSH) 
Es ergeben sich daraus folgende Werte: 


BSH 0 1 2 3 4 5 

Blockgröße 128 256 512 1024 2048 4096 ... 
3 BLM Block Mask. 

Diese Zahl gibt die Anzahl der 128-Byte- 

BDOS-Blöcke pro Verwaltungsblock an. 

Der Wert ist dabei um eins vermindert, d.h. 

7 bedeutet, daß 8 Blöcke enthalten sind. 


5/6 DSM Anzahl der 128-Byte Blöcke der Diskette 
(ohne Systemspuren) -1. 


9 ALO 16-Bit-Belegungsverzeichnis, in dem fest- 

10 AL1I gelegt wird,, welche Verwaltungsblöcke vom 
Directory belegt werden. 
Der erste Block der Directoryspur wird durch 
Bit 15 repräsentiert, der zweite Block durch 
Bit 14 usw. 

11/12 CKS Zahl der Directory-Einträge, die zum Er- 

| kennen eines Diskettenwechsels geprüft 
werden sollen. 
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13/14 OFF Zahl der reservierten Systemspuren. 
13 PSH Kennzeichen für die physikalische Größe 
eines Sektors der Diskette. Dabei gilt: 


PSH eo o1223 

Bytes pro Sektor 128 256 512 1024 
16 PSM Anzahl der 128-Bytes-Blocks pro 

physikalischem Sektor -1. 


Das BIOS des C-128 CP/M+-Betriebssystems kann insgesamt 12 
verschiedene Diskettenformate verarbeiten. Neben 3 
COMMODORE-Formaten (C-64, C-128 einseitig, C-128 
doppelseitig) werden auch 9 unterschiedliche IBM-34-Formate 
erkannt. Die DPB-Tabellen sind in der Datei ’CPM+.SYS’ ab 
Adresse $1980 abgelegt, wenn man diese Datei mi einem 
Debugger, wie beispielsweise ’SID’ oder ’DDT’, einlädt. Beim 
Booten des Systems werden diese Tabellen in der ersten Bank des 
C-128 mit dem BIOS abgelegt. Aus diesem Grund können sie per 
Programm nur schwer erreicht werden, da der Programmspeicher 
. durch die zweite 64K-Bank gebildet wird. Würde man auf die 
erste Bank umschalten ($3E oder $3F in $FF00), dann hängt sich 
der Computer auf, da sich das Programm damit ausblendet und 
auf diese Weise sozusagen Selbstmord begeht. 


Jediglich die oberen 8K-Byte des Speichers werden nicht 
umgeschalten und enthalten immer den oberen Bereich der ersten 
64K -Bank. Sie können diesen Bereich allerdings nur eingeschränkt 
nutzen, da er fast vollständig vom CP/M-Betriebssystem belegt 
wird. 


Die Daten einer eingelegten Diskette, daß bedeutet die 
dazugehörige DPB-Tabelle kann mit der BDOS-Funktion $IF 
ermittelt werden. Dazu wird in A (Akku) die Nummer des 
Laufwerks angegeben und Sie erhalten nach dem Aufruf in HL 


134 Die _C-1570/71 und CP/M 


die Adresse des DPB. Die DPB-Tabellen der aktuellen Laufwerke 
liegen immer im oberen 8K-Block der Bank und können deshalb . 
auch von einem Programm aus aufgerufen oder manipuliert 
werden. 


4.2.1 MFM DATENAUFZEICHNUNG UNTER CP/M 


Dieser Abschnitt handelt davon, wie Daten auf die Diskette 
geschrieben werden. Dabei dreht es sich nicht um die 
verwaltungstechnische Organisation der Daten. Was interessiert, ist 
die Technik, mit der die Elektronik Daten auf der Diskette 
aufzeichnet. 


Dieses Aufzeichnungverfahren wird MFM genannt. Dies ist eine 
Abkürzung für "modified frequency modulation’. Der Ausdruck 
’modified’ (engl. = modifiziert) weist schon darauf hin, daß es 
auch ein ein normales Aufzeichnungsformat gibt, welches ’FM’ 
lautet. 


Zuerst werden Sie das FM Verfahren kennenlernen, obwohl es 
von der C-1570/71 gar nicht verwendet wird, denn Sie haben es 
dann leichter, das MFM Verfahren zu verstehen. 


Sicherlich wissen Sie, daß der Schreib-/Lesekopf eigentlich eine 
kleine Spule ist. Diese hat die Eigenschaft, je nach 
Stromdurchfluß, wıe ein kleiner Magnet zu wirken, dessen 
Polarität, also die Ausrichtung des magnetischen Nord- und 
Südpols, davon abhängt, wie der durchfließende Strom gepolt ist. 
Das bedeutet, daß wir einen kleinen Magneten haben, den wir 
elektronisch immer wieder umdrehen können, je nachdem, welche 
Spannungspolarität angelegt wird. 


Die Diskette besteht aus einem speziellen Material, welches 
magnetisiertt wird. Dabei nimmt die Schicht die gleiche 
magnetische Polung an, wie der Magnet. Aus diesem Grund 
schaltet man den kleinen Magneten des Schreibkopfes elekronisch 
um und schreibt somit Informationen auf die Diskette. Eigentlich 
ganz einfach! Man magnetisiert die Diskette bei allen ’0’-Bits in 
der einen Richtung und bei allen 1-Bits in der anderen. 
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Möchte man die Daten wieder lesen, erfolgt das auch mit der 
Spule des Schreib-/Lesekopfs. Sie liefert, je nach Polung der 
Magnetschicht der Diskette eine Spannung. Das passiert jedoch 
nur dann, wenn sich die magnetische Polung auf der Diskette 
ändert. Das bedeutet, ıst die ganze Spur einer Diskette 
gleichgepolt, dann geschieht überhaupt nichts. 


Deshalb geht man folgendermaßen vor: bei jedem ’1’-Bit wird die 
Polung der Spule umgedreht, bei einem ’0’-Bit nicht. Das Lesen 
ergibt dann, wenn eine ’1’ auf der Diskettte steht, einen kurzen 
Impuls am Lesekopf, da sich die Polarität auf der Diskette 
geändert hat. Geschieht nichts, dann handelt es sich um ein ’0’- 
Bit. 


Ein besonderes Problem ist der Motor des Floppylaufwerks. Dazu 
muß man wissen, das die Aufzeichnung eines einzelnen Bits auf 
der Diskette gerade einige millionstel Millimeter groß ist. Wenn 
der Motor dabei nicht äußerst ruhig läuft und aus Versehen einen 
winzig kleinen Ruck macht, ist schon ein Bit übersprungen 
worden. | 


Wenn man heute sogar Telefongespräche zum Mond leitet und 
wieder zurück, dann wird es es doch die Technik für etwas 
genauere Motoren geben? Aber natürlich! Möchten Sie aber für 
Ihre Diskettenstation mehrere hunderttausend Mark auf den 
Ladentisch legen? 


Um die Laufwerkschwankungen auszugleichen, schreibt man 
Taktbits auf die Diskette. Ein Taktbit hat immer den Wert ’1’ und 
erzeugt sojedesmal einen Impuls am Lesekopf. Tritt dieser Impuls 
auf, dann weiß die Floppy-Elektronik, daß sie jetzt das Datenbit 
erwarten muß. Wenn in einer gewissen Zeit noch ein Impuls 
gelesen wird ıst das Datenbit eine ’1’. Fehlt dieser Impuls und es 
erscheint plötzlich schon das nächste Taktbit, dann muß es sich 
bei dem letzten Datenbit um eine ’0’ handeln. 


‘ Wie werden jetzt aber Takt- und Datenbit unterschieden? Bit ist 
doch Bit? Das ıst richtig. Deshalb muß der Elektronik einmal 
mitgeteilt werden, daß es sich beim nächsten Bit um ein Taktbit 
handelt. Dann ist eine komplizierte Schaltung fähig, die Takt- und 
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Datenbits zu trennen. Wie die die Elektronik das Taktbit 
automatisch erkennt wird in 4.2.2 behandelt. 


Ein Byte sieht nach dem FM Verfahren folgendermaßen aus: 


TDTDTDTDTDTDTDTD 
1010111010101110 


Datenbyte: 
007109000 10 


 T= Taktbit. 
D= Datenbit.. 


Wenn Sıe an Kapitel 1.1.2 zurückdenken, werden Sie sich sicher 
noch errinnern, daß einfach Bytes auf die Diskette zu schreiben, 
noch nicht genügt hat, schließlich wollen Sie die gespeicherten 
Daten auch wiederfinden. Das Problem war dabei den Beginn 
eines Datenblocks, also eines Sektors, zu kennzeichnen. 


Dies macht man jetzt mit einer speziellen Markierung, die Sync- 
Zeichen genannt wird. Wie soll diese Markierung auf der Diskette 
aussehen, denn sie muß sich von den üblichen Aufzeichnungen 
unterscheiden. Dazu hat man sıch folgenden Trick ausgedacht: es 
werden einfach ein paar bestimmte Taktbits weggelassen. Aber ist 
das nicht gefährlich? Was geschieht bei Motorschwankungen? 


Aus diesem Grund wählt man als Werte für das Datenbyte zum 
Beipiel $FE. Bei diesem Wert kommen sehr viele Datenbits mit 
dem 'Zustand ’1’ vor, das bedeutet es sind auf der Diskette sehr 
viele Impulse vorhanden. Auf diese Weise findet sich die 
Elektronik beim Lesen zurecht und kann vor allem auch erkennen, 
daß das Taktbit fehlt. Um sich diese Sachverhalte klarer zu 
machen, trennt man den Wert für das Datenbyte und den für das 
Taktbyte. Denn wir könnten das Taktbit auch als Datenbit 
interpretieren und umgekehrt. Bei normalen Daten hat das 
Taktbyte immer den Wert $FF. Für jedes Bit ıst das Taktbit ’1’. 
Wird ein anderes Taktbytes verwendet, dann kann dieses 
Datenbyte anhand des Taktbytes von allen anderen Datenbytes 
eindeutig unterschieden werden. 
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TDTDTDTDTDTDTDTD 


Normalerweise werden bei FM die Daten mit einer Rate von 
250000 Bits pro Sekunde aufgezeichnet. Natürlich möchte man 
möglichst viele Daten auf der Diskette unterbringen. Der erste 
Genanke wäre, die Aufzeichnungsrate zu erhöhen, beispielsweise 
auf 500000 Bits pro Sekunde. Damit hätte sich die Kapazität der 
Diskette verdoppelt. Doch dabei gibt es physikalische Grenzen. 
Die Magnetschicht ist nicht fähig diese hohe Datenraten 
aufzunehmen. Denn bei 500000 Datenbits pro Sekunde werden 
neben den Datenbits auch noch 500000 Taktbits aufgezeichnet, 
summa summarum also 1000000 Impulse pro Sekunde. Es ist nicht 
möglich, derartig viele Impulse zu schreiben, da diese ineinander 
übergehen würden, weil Sie nicht genau genug aufgezeichnet 
werden können, sodas der zwischen zwei ’l’-Impulsen eine Lücke 
vorhanden wäre. 


Aus diesem Grund muß versucht werden, die Zahl der Impulse 
auf der Diskette zu verringern, ohne daß die Datenrate verändert 
wird. 


Die Taktbits sind im Grunde genommen der störende Faktor, 
denn sie diehnen nicht zur Datenspeicherung, benötigen allerdings 
die Hälfte der Diskettenkapazität. Die Taktbits sind besonders 
wichtig, wenn das Datenbit den Wert ’0’ hat. In diesem Fall kann 
mit Hilfe des Taktbits erkannt werden, daß ein Datenbit fehlt. 
Hat das Datenbit den Wert ’1’, so werden Takt- und Datenbit 
durch einen Impuls dargestellt, wodurch die zu hohe Impulsrate 
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zustande kommt. Daher liegt es nahe bei allen Datenbits mit dem 
Zustand ’1’ die Taktbits wegfallen zu lassen und bei ’0’-Bits die 
Taktbits zu schreiben. Mit dieser Methode entstehen zwischen den 
einzelnen Impulsen genügend große Abstände, die bei zwei 
aufeinander folgenden Takt- und Datenbits mit jeweils dem Wert 
’P’° nicht vorhanden wären, da die Elektronik eine gewisse 
Anstiegs- und Impulsabfallszeit hat. Die Datenrate hat sıch aller 
dings nicht verändert und beträgt nach wıe vor 500000 Bits pro 
Sekunde. | 


Man kann sagen, daß für jedes Datenbit auf der Diskette eine 
Bitzelle vorhanden ist. Ist der Wert des Datenbits ’0’ dann wird ein 
Impuls am Beginn der Zelle aufgezeichnet, der Wert ’1’ wird 
durch einen Impuls in der Mitte der Bitzelle dargestellt. Bei Sync- 
und Index-Markierungen enthält eine Bitzelle des Datenbytes gar 
keinen Impuls und kann so als spezielle Makierung identifiziert 
werden. 


4.2.2 DAS IBM SYSTEM 34 FORMAT 


Mit ’IBM System 34’ wird ein Diskettenformat benannt, daß sehr 
verbreitet ıst. So gut wie alle Disketten-Controllerbausteine 
zeichnen die Daten nach diesem System auf. Das ’IBM System 34’- 
Format, von nun an kurz ’IBM-34’ genannt, ist allerdings nicht 
die Art und Weise, wie die Daten auf der Diskette verwaltet 
werden, sondern die Methode, nach der auf der Diskette Spuren 
und Sektoren aufgebaut oder die Sync-Markierungen erstellt 
werden usw. 


Im IBM-34-Format können Sektoren mit 128,=256, 512 und 1024 
Bytes pro Sektor benützt werden, wobei die meisten 
Diskettenformaten Sektoren mit 256 Bytes Umfang verwenden. 
Aus diesem Grund werden wir nur den Aufbau einer Spur mit 
256-Byte-Sektoren besprechen. Bei anderen Sektorgrößen wird das 
gleiche Prinzip der Sektorenaufzeichnung verwendet. 


IBM-34-Disketten arbeiten immer mit dem Indexloch, das schon 
in Kapitel 1.1.2 erwähnt wurde. Dabei steuert diese Loch, an 
welcher Stelle die Sektoraufzeichnung auf der Spur beginnen soll. 
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Im Diagramm sehen Sie den Zustand der Indexloch-Lichtschranke 
oben eingezeichnet. Beim Auftreten des Indeximpulses werden auf 
der Spur 80 Bytes mit dem Wert $4E aufgezeichnet. Dieser Wert 
wird beim Formatieren als Füllwert für Lücken benützt. Durch 
diese Lücke nach dem Indexloch hat der Controller Zeit, die 
 Schreib-/Leseelektronik zu aktivieren. Danach folgt der ’Pre- 
Index’, eine Marke die aus 12 Bytes mit dem Wert $00 besteht. 
Bei diesem Wert werden am Schreib-/Lesekopf nur noch durch 
die Taktbits Impulse ausgelöst. Dadurch kann der Controller seine 
Leseelektronik so einstellen, daß sie bei normalen Datenbytes 
Takt- und Datenbits automatisch trennt. Die $00-Bytes dienen 
dazu dem Controller mitzuteilen, welches die Taktbits sind. Die 
Markierung mit $00-Bytes wird auch ’Sync’ genannt, da der 
Controller damit synchronisiert wird. 


Nach der Indexlücke folgt nun die sogenannte ’Index-Mark’. 
Dadurch wird dem Controller mitgeteilt, daß die vorhergehende 
Lücke zum Indexloch gehörte, da auch zwischen den einzelnen 
Sektoren Lücken vorhanden sind. Die ’Index-Mark’ besteht bei 
MFM aus drei Bytes mit dem Wert $F6, gefolgt von einem $FC- 
Byte. Beim Wert $F6 wird beim Formatieren das Taktbyte $C2 
verwendet. das bedeutet, daß zwischen dem dritten und vierten 
Datenbit das Taktbit fehlt, das an dieser Stelle normalerweise 
nötig wäre. Dadurch identifiziert der Controller die ’Index-Mark’, 
da beı Datenbytes mit dem Wert $F6 dieses Taktbit nicht fehlt. 


Im weiteren Verlauf der Spur ist nun eine Lücke mit 50 $4E- 
Bytes vorhanden. Somit hat der Controller Zeit, sich auf die 
Verarbeitung der Sektoren einzustellen. Nach dieser Lücke folgen 
12 Bytes mit dem Wert $00, die eine Sync-Markierung darstellen. 
Die nächsten 3 Bytes haben den Datenwert $F5 und sind mit dem 
Taktbyte $Al aufgezeichnet. Sie stellen zusammen mit dem darauf 
angegebenen $FE Byte, die ’ID Adress Mark’ dar. Diese 
Markierung weist darauf hin, daß nun der Header des Sektors 
folgt. Die weiteren sechs Bytes sind der Sektorheader. 


Zuerst wird die Spurnummer des Sektors genannt. Darauf folgt ein 
Byte, daß die Diskettenseite angibt. Dabei wird der Wert ’0° für 
die Vorderseite und der Wert ’1’ für die Rückseite der Diskette 
verwendet. 
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Das nächste Byte ıst die Sektornummer des nach dem Header 
folgenden Datenteils. Die vierte Angabe ist das Sektorkennzeichen, 
das die Größe des Datensektors angibt. Dabei haben die einzelnen 
Bytewerte folgende Bedeutung: 


00 128 Bytes pro Sektor. 
01 256 Bytes pro Sektor. 
02 512 Bytes pro Sektor. 
03 1024 Bytes pro Sektor. 


Der Sektorheader wird mit zwei Prüfsummenbytes, auch CRC- 
Bytes genannt, abgeschlossen. 


Dem Sektorheader folgt wieder eine 22 Bytes große Lücke mit 
dem Wert $4E, der sich 12 Bytes des Wertes $00 anschliesen, die 
eine Sync-Markierung darstellen. 


Nun folgt die ’Data Adress Mark’ die den Beginn des 
Datenbereichs kennzeichnet. Sie besteht aus 3 Bytes mit dem 
Datenwert $F5 und dem Taktbyte $Al, sowie einem Byte mit dem 
Wert $FB. Im Anschluß an die ’Data Adress Mark’ sind die 256 
 Datenbytes des Sektors aufgezeichnet. 


Zum Schluß werden zwei Prüfsummenbytes abgelegt. Diese 
werden nach dem CRC-Verfahren errechnet. CRC ist eine 
Abkürzung für ’cyclic redundancy check’. Bei dieser Methode 
wird aus den einzelnen Bits eines Datenbytes ein Polynom 
gebildet. Dieses Polynom wird durch ein Generatorpolynom, das 
G(x)=X16+X12+X5+1 lautet, dividiert. Normalerweise geht diese 
Division nicht auf und es entsteht ein Rest. Die CRC-Bytes sind 
der Wert, den man zum Polynom des Datenbytes addieren muß, 
damit sich bei der Division durch das Generatotpolynom keinen 
Rest ergibt. Dies hört sich kompliziert an, ist jedoch mit einer 
einfachen digitalen Schaltung lösbar. 


Zum Schluß folgt wieder eine Lücke mit $4E-Bytes. Die Größe 
dieser Lücke hängt von der Sektorgröße ab. Darüberhinaus werden 
bei Laufwerken mit Gleichlaufschwankungen, die bis zu 3% 
betragen dürfen, größere Lücken verwendet, als bei relativ 
gleichlaufstabilen Laufwerken. Nach dieser Lücke folgt die Sync- 
Markierung vor der ’ID Adress Mark’ des nächsten Sektors. 
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Wie eine Spur genau aufgebaut wird ist auch dem ROM-Listing 
zu entnehmen. Die Routine $8A86 formatiert eine Spur im IBM- 
34-Format. Aus ihr ist ersichtlich, wie welche Markierungen 
erzeugt werden, welchen Umfang die Lücken haben und mit 
welchen Parametern der Formatiervorgang gesteuert wird. 


4.2.3 Fremde Disketten-Formate lesen 


Eine der herausragenden Fähigkeiten der Floppy ist es fremde 
Diskettenformate zu verarbeiten. Dies wird nur im Betriebssysem 
CP/M ausgenutzt. Dabei erkennt das CP/M+ Betriebssystem des 
C-128 bereits verschiedene Formate von Epson, IBM, Kaypro und 
Osborne. 


Vielleicht ist Ihr Anliegen ein anderes Format zu implementieren. 
Dazu gibt es mehrere Möglichkeiten. Sie können die Daten des 
Formats im BIOS verwerken und Ihr CP/M+ wird das Format 
immer automatisch erkennen. Die andere Möglichkeit wäre, das 
Diskettenformat durch Direktzugriffsbefehle (siehe 3.1.4) zu 
bearbeiten. 


Bei beiden Anwendungen müssen allerdings die Daten des Formats 
bekannt sein. Dazu gehören Sektorlänge, Anzahl der Sektoren usw. 
Diese Angaben können mit den Analysefunktionen, die in 3.1.4 
besprochen wurden, ermittelt werden. Da die Ermittlung des 
Aufzeichnungsverfahrens sehr umständlich ıst, folgt nun ein 
kleines BASIC-Programm, das diese Arbeit übernimmt. 

Achten Sie beim Eingeben darauf, die Leerzeichen und 
Steuerzeichen richtig zu setzen. Dadurch werden beim 
Programmablauf für die Eingabeparameter Standartwerte 
angegeben und Sie müssen jeweils nur die Return-Taste drücken, 
um einen Parameter zu übernehmen. 


Zuerst fragt das Analyseprogramm nach der Geräteadresse und 
der Laufwerksnummer. Darauf kann die Nummer der Spur 
angegeben werden, die untersucht werden soll. Nach diesen 
Eingaben erfolgt die Analyse der eingelegten Diskette. 
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Zuerst wird festgestellt, ob es sich um ein IBM-34- oder ein 
COMMODORE-Format handelt. Das IBM-34-Format wird vom 
Programm einwandfrei erkannt. Ist jedoch kein IBM-Format und 
auch kein COMMODORE-Format vorhanden, die Diskette ist 
beispielsweise unformatiert, dann meldet sich das Programm 
trotzdem mit ’COMMODORE’. Sie sollten die Angabe eines 
COMMODORE-Formats grundsätzlich mit Vorsicht geniesen. 
Prüfen Sie in diesem Fall immer, ob sich auch ein ganzer Sektor 
oder das Directory lesen läßt. 


Im Grunde genommen dient das Programm auch nur dazu IBM- 
34-Disketten zu untersuchen. Dabei werden zuerst einige Angaben 
aus dem Sektorheader aufgelistet. Das ist die ım Sektorheader 
eingetragene Spurnummer, die Angabe über die Diskettenseite und 
das Sektorkennzeichen. Letzteres gibt an, wie lang die Sektoren 
der Spur sind. 


Darauf folgen einige Daten, die die Floppy beim Lesen aller 
Sektor-ID-Felder errechnet hat. Dies ist die Anzahl der Sektoren 
der Spur und die kleinste und größte Sektornummer. Zum Schluß 
werden noch alle Sektornummer in der Reihenfolge aufgelistet, in 
der sie auf der Spur stehen. Mit dieser Liste können Sie den 
physiklischen Sektorversatz erkennen oder Unregelmäßigkeiten in 
der Sektorverteilung ausmachen. 


Ebenso reizvoll wie die Analyse eines fremden Formates ist 
natürlich, Disketten in diesem Format zu formatieren. Dazu dient 
folgendes Programm: 


Das Programm ermöglicht Ihnen die unterschiedlichsten IBM- 
System-34-Formate zu erstellen. Dazu müssen Sie zuerst 
Geräteadresse und Laufwerksnummer angeben. Danach folgen die 
Eingaben, die das Format festlegen. ! 


Als erstes wırd nach der Anzahl der zu formatierenden Spuren 
gefragt. Darauf muß die Nummer der Spur, die in die 
Sektorheader eingetragen werden soll, angegeben werden. Die 
nächste Eingabe legt fest, ab welcher physikalischer Spur 
formatiert werden soll. Damit können auch nur bestimmte 
Spurbereiche neu angelegt werden, sei es zur Reperatur einer 
beschädigten Stelle oder zur Verwirrung des Controllers. 
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SENPUBOhN- 


10 
11 


26 


——— 
auf 


28 
247 


re 


dimnmth2) 

print"SIRBM System 34 Formatif 
input"Unit SEM" ; Lu 
anl+tu>4)3- (u>ld)goator 


input"Side ZI" ss: 5cd=(s/2dandl:ıs=sandi 
input"=Number of Tracks 0EREMI" : nt 
input"log. Track-Start OB": tl 
input"pys. Track-Start  GOliBkl";tp 
input"Sector-Size SER Si 
input"Number of Sectors Sum s sn 


print"Define Sequenz {(y/n)" 

getafsonasc (af)andigotol,17:gotol 
sq=l:fora=ltosn 

printa'il, Sector "rightF(istr&(ta) „2a 

input "ERBB" nen (a)=nandSi 

next:gotolY 

sq=ÖO:input "First Sector I1ERMi' : Fsı Fs=efsand>i 


input "Sector Skew OB Ss sk sk=( (50) %-sk) 
andıl 
input "Fill Byte ZZ7ERABRI' by 


bE="un'"+chr# (6+s#1lö+sd#32) +chrF (128+sq#644+fs) 
bf=b#f+chr# (sk) +chr# (si ) +chr# (nt+tl-1) +chr# (sn) 
bE=hbf+chr&ttl)+chr#ttp) +chr#ftbyandZ23 
tora=ltosnıbF=ebF+chrHt in (a)dsınext 
print"SFormatting..." 

openl,u,1S,b#F:closel 

ıFJs=O0then28 | 

print "SEiFormat Error 

print"#ßlüne More Disk (y/n}" 

getatfıonasc (af)and3goto24 ,Zıgatoz2?7 


acy. 
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i print"=Format Analyser" 

2 input "sEUnit SEMME" ; u 

a onl+(u>4)- (u>15)goto2 

4 input"Drive OB: d:d=dandi 

> input"STrack OSB": tt 

& openl,u,13 

7 print"=$Side 1  "aes=üsgosubin 
8 print"sBßide 2 :"s:s=lsgosubi] 
7 


print#il,"uj' 

10 closel 

11 print" next disk / Z end" 

i2 getafionval (af) +igatol2,Ssend 

= print#1,"uö'chr#{158) "mi" 

14 print#1,"uöß'chr#{1389+s#16) 

15 a3=94: gosubl4: 1b 128then2Y7 

15 print#1l,"m-w’chr#(O)chr#‘(S)chr#ftä)chr#(76) 
chr#F{I30)chrF {133 

17 print#1 ,"u3-"+chr# (tt) 

18 print" IBM System 24 Format" 

17 a=Fö:gosubi4sprint"Tracknumber:"b 

20 a=37:ıgosubä4:eprint"Side-EBit :"Db 

21 a=}9:gosubäS>4:print"Sector Size:"by 

22 printtab (19 "("2T(7+b) "Bytes/Sektor 2" 

23 a=1lSl:gosubS4in=b:print'nb. of Sec.:"b 

24 a=96:9g0osub>4:print"min. Sectors"b 

25 a=97:sgosub4:print"max. Sector:"b 


26 print"Sequenz a 
7 fora=I2ıtodzstrn:gosubä4:printb; rnextrprint 
28 gotons 


297 print" COMMODORE Format" 

0 a=24:gosub34: print "ällfracknumber:s'b 

R 0, print"IDil {DEC.) :"b 

a2 a=8i:gosubäd4:sprint"IDEZ (DEC.) :"b 

=5S return 

>34 print#l, "mer "chr&(aand255)chr#(a/256)chr#(1) 
so get#il,afıb=zasc (af+tchr#i(ö)) 

6 return 


ready. 
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Jetzt wird das Kennzeichen für die Sektorgröße verlangt, das 
Werte zwischen 0 und 3 haben darf. Die darauf folgende Frage 
erlaubt es die Abfolge der Sektornummern "von Hand" einzugeben 
und festzulegen. Wenn Sie dies nicht möchten müssen Sie hier mit 
’n’ antworten. 


Sollte keine Sektor-Sequenz eingegeben worden sein, dann möchte 
das Programm nun die Nummer des ersten Sektors und den 
Sektorversatz wissen. Beim Sektorversatz handelt es sich um die 
Anzahl der Sektoren, die zwischen zwei aufeinander folgenden 
Sektoren eingebaut werden soll. Das Programm prüft nicht, ob 
die hier eingegebenen Werte einen Sinn ergeben. Dies stellt erst 
die Floppy fest und reklamiert eventuell mit dem Blinken der 
Fehleranzeige. 


Zum Schluß können Sie noch das Byte definieren, mit dem die 
Sektoren gefüllt sind. Normalerweise ist die der Wert $E5 (229), 
wobei Sie darauf achten müssen, daß Sie hier keine Werte über 
$FO (250) angeben, da diese beim Formatieren Steuerfunktionen 
haben. | 


Nun wird die Diskette formatiert. Wenn Sie bei der nach dem 
Formatieren folgenden Frage mit ’y’ antorten, können Sie auf 
diese Weise weitere Disketten im gleichen Format EISIE EN. ohne 
die dazu nötigen Parameter neu einzugeben. 


Die beiden BASIC-Programme sind nicht besonders umfangreich 
und nützten auch bei weitem noch nicht alle Möglichkeiten der 
Floppy aus. Sie sollen Ihnen vielmehr zeigen, wie die 
Floppyprogrammierung mit IBM-34 Disketten durchgeführt wird. 
. Sie können dabei aus den BASIC-Programmen sicherlich einige 
Anregungen für Ihre eigenen Anwendungen entnehmen. 
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4.2.4 Der Controller WD 1770 - Programmierung. 


Die Steuerung der IBM-34-Aufzeichnung wird in der C-1570/71 
von einem eigenständigen Controller-Baustein ausgeführt - der 
WD 1770 von WESTERN DIGITAL. 


In diesem Kapitel geht es darum, wıe dieser Baustein 
angesprochen und programmiert wird. Dies kann allerdings nur ın 
Mashinensprache und das auch nur im Floppy-Speicher erfolgen. 
Weitere Informationen über den technischen Aufbau des 
Controllers enthält das Kapitel 5.2.4. 


Zur Steuerung des Controllers sind folgende Register vorhanden: 


Adresse Lesefunktion Schreibfunktion 


$2000 Status Befehl 
$2001 Spur Spur 

$2002 Sektor Sektor 
$2003 Daten Daten 


Wie Sie sehen hat das Register $2000 beim Lesen und beim 
Beschreiben unterschiedliche Funktionen. Wird ein Wert in diese 
Speicherstelle geschrieben, dann wird dieser als Kommando 
interpretiert. Beim Len des Registers erhält man allerdings nicht 
das Kommando, sondern eine Statusangabe, die den 
 Betriebszustand des Controllers anzeigt. Die weiteren Register 
dienen dazu die Parameter der Kommandos festzulegen und Daten 
an den Controller zu übergeben oder vom Controller zu 
übernehmen. 
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Der Controller kennt folgende Kommandos: 


Typ Kommando Kommandowert: 
Bit 76543210 


1 Restore 0000hvxy 
1 Seek 0001hvxy 
1 Step 001uhvxy 
1  Step-in 010uhvxy 
1  Step-out 011uhvxy 

Read Sector 100mhe0O00O 
2 Write Sector 101mhepa 
3 Read Adress 1100he00 
3 Read Track 1110he00 
3 Write Track 1111hepO®O 
4 Force Interrupt 1101 ij Kl 


Bedeutung spezieller Bits: 


h:  0= Motor einschalten 

1= Motor ausschalten 
v:  0= Spur überprüfen 

1= Spur nicht überprüfen 
x/y: Stepprate 0 0 = 6ms 


0 1 = 12ms 
10 = 20ms 
1 1 = 30ms 


u:  Spurregister nach Spur in Sektorheader setzen 
0= nein 1= ja 
m: 0= nur ein Sektor lesen 
1= mehrere Sektoren lesen 
a: 0= Data Marke für 'Sektor gültig' setzen 
1= Data Marke für 'Sektor gelöscht! setzen 
e:  0= keine Kopfberuhigungszeit 
1= 30ms Kopfberuhigungszeit. 
p:  0= Precompensation einschalten 
i= Precompensation ausschalten 
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i-L: Interruptbedingung 
iz: nicht beachten 
j: nicht beachten 
k: Interrupt beim Auftreten des Index-Lochs 
L: Sofortiger unbedingter Interrupt 
bei i-L = O0 Befehl ohne Interrupt beenden. 


Statusregister: 


BitO: Busy-Flag. Zeigt an, daß Kommando ausgeführt wird. 
Biti: Data Request/Index. 


Bei allen anderen Kommandos signalisiert dieses Bit, 
daß Daten aus Register $2003 entnommen oder 
.. in das Register geschrieben werden können. 

Bit2: Lost Data/TrackO0. 
Bei Kommandos vom Typ 1 gibt dieses Bit an, 
daß der Kopf auf Spur O0 steht. 
Bei allen übrigen Kommandos wird durch dieses Bit 
angezeigt, daß die Daten des Registers $2003 vom 
Programm nicht rechtzeitig gelesen oder 
geschrieben wurden. 

Bit3: CRC Error. Die Prüfsummenbytes des Headers oder des 

| Datenblocks haben einen Fehler dekodiert. 

Bit4: Record not found. Die angegebene Spur oder der Sektor 
wurde nicht gefunden. 

Bit5: Spin-up/Record type. 
Bei Kommandos des Typs 1 wird durch dieses Bit 
angegeben, daß 6 Diskettenumdrehungen stattgefunden 
haben. Bei Kommandos des Typs 2 und 3 hat dieses 
Bit den Wert der 'Data Mark'. 

Bit6: Write Protect. Diese Bit zeigt beim Schreiben an, 
wenn der Schreibschutz angebracht ist. 

Bit7: Motor on. Dieses Bit gibt den Zustand des Motors an. 
0= Motor aus 1= Motor an. 


Wie Sie sehen sind die Befehle des Controllers in verschiedene 
Kommandotypen unterteilt. Die verschiedenen Kommandotypen 
haben eine unterschiedliche Handhabung des Statusregisters und 
. geben an, welche Parameterregister in welcher Art und Weise 
benutzt werden. 
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Einige Befehle oder Befehlsbits haben die Aufgabe den Stepper- 
und den Laufwerksmotor zu steuern. Diese Arbeit wird bei der C- 
1570/71 nicht vom IBM-34 Controller sondern vom 
Floppybetriebssystem erfüllt. Deshalb sind die Befehle des Typs 1 
. bei der COMMODORE-FIloppy bedeutungslos. 


Die Befehle des Typs 2 dienen zum Schreiben und Lesen einzelner 
Sektoren. Bevor einer dieser Befehle an das Befehlsregister 
übergeben werden kann, muß in Register $2002 zuerst die 
Nummer des gewünschten Sektors angegeben werden. Ist der 
gesuchte Sektor nicht vorhanden, so versucht der Controller 
fünfmal, den Sektor zu finden. Ist dies erfolglos, dann wird im 
Statusregister Bit4 gesetzt. Das Sektorregister $2002 gibt die 
Nummer des nächsten verfügbaren Sektors an. 


Die Kommandos der Gruppe 3 dienen zum Berarbeiten gesamter 
Spuren und zum Analysieren der Spur. Das erste Kommando, der 
’Read Adress’ Befehl, liest den nächsten auftretenden Sektorheader 
und gibt in über das Datenregister $2003 aus. Dabei werden auch 
die beiden CRC-Bytes übermittelt. Das Statusbit 3 gibt an, ob 
diese Bytes richtig sind oder ob ein Prüfsummenfehler aufgetreten 
ist. 


Das ’Read-Track’ Kommando dient zum Lesen einer gesamten 
Spur, einschließlich der Adressmarken, der Lückenbytes usw. Die 
Luckenbytes können allerdings den falschen Wert haben, wenn sie 
zur Synchronsierung des Controllers dienen. Mit dieser Funktion 
kann eine gesamte Spur gelesen und analysiert werden. 


Das Gegenstück dazu ist die ’Write Track’ Funktion, die eine 
gesamte Spur beschreibt. Dieser Befehl wird zum Formatieren der 
Spur verwendet. Aus diesem Grund werden auch nicht alle Byte- 
Werte als Datenbytes auf die Diskette geschrieben. Die Werte von 
$F5 bis $F7 haben besondere Steueraufgaben: 
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$F5 ID Adress Mark. Schreibt $F5 mit Taktbyte $A1 
(fehlendes Taktbit zwischen Bit 4 und 5). 

$F6 Index Mark. Schreibt $F6 mit Taktbyte $C2 
(fehlendes Taktbit zwischen Bit 3 und 4). 

$F7_ Schreibt anstatt des Bytes zwei CRC-Bytes auf die 
Diskette. Die Prüfsumme wurde mit den Daten seit der 
letzten Adress Marke errechnet. 


Die Spurfunktionen beginnen das Lesen oder Schreiben beim 
Auftreten des Index-Lochs. Die Spur wird solange bearbeitet, bis 
das Index-Loch wieder auftritt und somit die Diskette eine 
Umdrehung vollzogen hat. | 


Leider ist es nicht möglich mit diesen beiden Befehlen gesamte 
Spuren einer Diskette auf eine andere Spur oder eine andere 
Diskette zu kopieren. Der Grund dafür liegt darın, daß beim 
Lesen bei den Lücken- und Synchronisationsbytes Fehler 
auftreten. Darüber hinaus, und das ist das schwerwiegendere 
Problem, würden die Datenbytes $F5-$F7 nicht als Datenbytes 
geschrieben, sondern als Kennzeichen für Adress- und 
Identifizierungsmarken verwendet. 


Der Interruptbefehl dient zum Unterbrechen der aktuellen 
Funktion. Durch die Bits i-1 kann die Bedingung festgelegt 
werden, bei der der Befehl unterbrochen werden soll. Nach 
diesem Befehl muß mindestens 32 Mikrosekunden gewartet 
werden, bevor der Controller das nächste Kommando erhalten 
darf. Ansonsten würde er das aktuelle Kommando nicht 
unterbrechen. 
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KAPITEL 5 
PROGRAMMIERUNG FÜR PROFIS 


152 | | Programmierung für Profis 
5.1 Wie Die Bytes auf der Diskette ausssehen... 


5.1.1 Der Aufbau eines Sektors 


Schon im Kapitel 1.1.2 wurde der prinzipielle Aufbau einer 
Diskette besprochen. Dabei haben Sıe auch den Begriff des Sek- 
tors kennengelernt. Genau dieser Teil der Diskette wird im fol- 
senden eingehender behandelt. 


Wie schon bekannt ist, wird bei COMMODORE-Disketten der 
Beginn eines jeden Sektors mit einer speziellen Markierung verse- 
hen. Dadurch kann die Elektronik die Lage der Sektoren auf der 
Spur erkennen. Diese Markierung heißt Synchronisationsmarke, 
kurz ’Sync’. 


- Sync - Header - Lücke - Sync - Daten - Lücke - 


Die Abbildung zeigt die grundsätzliche Struktur eines Sektors. Der 
Sektor beginnt mit einer Sync-Markierung. Danach folgt der Sek- 
torheader, der nachstehende Angaben enthält: 


- $08 - Prüfsumme - Sektor - Spur - ID2 - ID1 - $OF - $OF - 


Das erste Byte des Headers dient zur Identifizierung des Headers 
und hat den Wert $08. Dadurch stellt die Floppy fest, ob nach 
einer Sync-Markierung ein Header oder ein Datenfeld folgt. Der 
Datenteil beginnt mit dem Kennzeichen $07. 


Nun folgt die Prüfsumme des Headers. Um sie zu errechnen wer- 
den Spur- und Sektornummer sowie die beiden ID-Zeichen 
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addiert. Die nächsten beiden Bytes des Headers enthalten Spur- 
und Sektornummer des Sektors. Mit dieser Angabe findet die 
Floppy einen gesuchten Sektor. 


Zuletzt enthält jeder Sektorheader noch die beiden ID-Zeichen, 
die Sie beim Formatieren der Diskette angegeben haben. Diese 
Zeichen werden bei jedem Zugriff übernommen und geprüft. 
Haben sich die ID-Zeichen geändert, dann nimmt die Floppy an, 
daß die Diskette gewechselt wurde. 


Die beiden Byte-Werte $0F haben keine Steuer-Funktion. Sie 
ergeben auf der Diskette die Bitfolge ’0101010101’, wodurch die 
Leseelektronik synchronisiert wird. 


Dem Sektorheader folgt eine Lücke mit 9 Bytes Länge, bevor der 
eigentliche Datenteil beginnt. Diese Lücke dient dazu, daß man 
beim Schreiben genug Zeit hat, den Kopf auf Schreibbetrieb 
umzuschalten und zu aktivieren. 


Darauf folgen die Daten des Sektors. Um deren Beginn exakt zu 
erkennen, geht dem Datenteil eine Sync-Markierung vorraus. Das 
erste Byte nach der Sync-Markierung hat den Wert $07. Damit 
kann der Datenteil vom Sektorheader unterschieden werden. Nach 
dem Datenkennzeichen sind die 256 Datenbytes des Sektors 
abgelegt. Zum Schluß ist wieder eine Prüfsumme angegeben, die 
sich aus der Summe der Datenbytes ergibt. 


Nach jedem Sektor ist wiederrum eine Lücke vorhanden. Deren 
Länge hängt von der Zahl der Sektoren der Spur und der Spur- 
nummer ab. Sie wird aufgrund der Spurkapazität errechnet. 
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5.1.2 Die Sync-Markierungen 


Wie Sie wissen, arbeitet die C-1570/71 Floppy beim Erkennen der 
Sektoranfänge bei COMMODRE-Formaten nicht mit dem In- 
dexloch, sondern verwendet spezielle auf der Diskette aufgezeich- 
nete Markierungen, die Sync genannt werden. 


Diese Marken bestehen aus 5 Bytes mit dem Wert $FF, also 40 
Bits mit dem Wert ’1’. Die Leseelektronik erkennt, wenn mehr als 
10 Bits mit dem Zustand ’1’ folgen und löst das Sync-Signal aus. 
Dieses Signal wird zum einen vom Betriebssystem der Floppy 
genutzt, wenn es auf den nächsten Sektor wartet, zum anderen 
weiß die Leseelektronik durch diese Markierung, wann die Daten- 
bits eines Bytes beginnen, indem sie wartet, bis die ’l’-Sıgnale der 
Sync-Markierung vorüber sind. 


Diese Sync-Markierung bereitet allerdings bei der C-1571 einige 
Probleme. Sicherlich haben Sie schon bemerkt, daß beim Booten 
des zum Computer mitgelieferten CP/M+ Betriebssystem die 
Floppy eine Zeit lang blinkt. Ausserdem geht der Vorgang gute 30 
Sekunden schneller vor sich, wenn Sie das Betriebssystem auf eine 
neue Diskette kopieren, deren Rückseite unformatiert ist. 


Der Grund für dieses Verhalten, daß beim Initialisieren der 
Diskette immer die Laufwerksanzeige blinkt und der Vorgang sehr 
lange dauert, sind die Sync-Markierungen der Rückseite. Die C- 
1571 versucht nämlich nach jedem Einlegen einer neuen Diskette 
zuerst festzustellen, ob beide Diskettenseiten beschrieben sind. 
Dazu führt sie auf beiden Seite Leseversuche durch. Beim Lesen 
orientiert sich die Floppy selbstverständlich an den Sync- 
Markierungen. Wenn Sie eine Diskette einlegen, die auf beiden 
Seiten beschrieben wurden, indem Sie die Diskette einseitig for- 
matieren und dann umdrehen, geschieht folgendes: die Floppy 
liest auf der Rückseite, bis eine Sync-Markierung auftritt. 
Geschieht dies nicht innerhalb einer gewissen Zeit, dann geht die 
Floppy davon aus, daß die Rückseite unformatiert ıst. Nun sind 
bei dem geschilderten Diskettentyp allerdings Sync-Markierungen 
vorhanden. Daß dabei die Diskette auf der Rückseite verkehrt 
herum läuft, da sie normalerweise gewendet wird, spielt keine 
Rolle, denn eine Folge von ’l’-Werten, die Sync-Markierung, hat 
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vorwärts oder rückwärts gelesen die gleiche Wirkung. Nur die da- 
rauf folgenden Daten ist nicht der Sektorheader oder der Daten- 
block, sondern sind die Bytes einer Lücke. 


Deshalb meldet die Leselogik einen Lesefehler. Der Haken ist 
nun, daß die Floppy nun eine Fehlerbehandlung einleitet. dabei 
wird das Lesen nochmals versucht, wobei der Kopf auch ein klein 
wenig neben der Spur positioniert wird. Genau dieser Vorgang, 
benötigt aber sehr viel Zeit. 


Es ist also empfehlenswert, doppelseitig bespielte Disketten, die 
im "Wendeverfahren" benützt werden, auf ein einseitiges Format 
umzukopieren. Diejenigen C-64 oder VC-1541 Besitzer unter 
Ihnen, die auf diese Weise die Disketten besser ausnützen 
“ möchten, müssen bei der C-1571 in Kauf nehmen, daß der Ini- 
tialisierungsvorgang etwas länger dauert. 


Eine Lösung des Problems wäre auch mit dem User-0-Befehl 
’U0>ra’ möglich. Dieser setzt die Anzahl der Leseversuche, die bei 
einem Fehler durchgeführt werden sollen auf den Wert 1. Somit 
unterbleibt die aufwendige Fehlerroutine. 


5.1.3 GCR-Kodierung, was ist das? 


Sicherlich werden Sıe sich schon gefragt haben, wie die Daten- 
bytes bei COMMODORE-Formaten aufgezeichnet werden, denn 
Datenbytes mit dem Wert $FF würden unter Umständen als Sync- 
Markierung interpretiert. 


Deshalb ist die Frage, wie die Daten bei COMMODORE-Disket- 
ten aufgezeichnet werden. Das Aufzeichnungsformat ist etwas 
exotisch, da auf unterschiedlichen Spuren verschiedene Aufzeich- 
nungsraten verwendet werden. Das COMMODORE-Format ist 
somit weder in die Sparte der Single-Density-Formate, bei dehnen 
250000 Bits pro Sekunde geschrieben werden, noch in die Reihe 
der Double-Density-Verfahren, die mit 500000 Bits pro Sekunde 
arbeiten, einzuordnen. Es wird nämlich eine Aufzeichnungsrate 
verwendet, die zwischen 250000 und 307692 Bits pro Sekunde 
schwankt. Dadurch das die äußeren Spuren einen größeren Um- 


156 Programmierung für Profis 


fang haben als die Inneren, kann man auf ihnen auch mehr Daten 
unterbringen. Deshalb gibt es bei COMMODORE-Disketten vier 
Spurzonen: 


Spurnummer Aufzeichnungsrate Sektoren pro Spur 
1-17 38461 Bytes/sec 21 

18 - 24 35714 Bytes/sec 19 

25 - 30 33333 Bytes/sec 18 

30 - 35 31250 Bytes/sec 17 


Zum Aufzeichnen der Daten wird das GCR-Verfahren verwendet, 
was soviel wie Group Code Recording bedeutet. Bei dieser 
Methode werden 4 Datenbits in 5 GCR-Bits umgewandelt. Ein 
Datenbyte, das 8 Bits umfaßt, wird somit durch 10 GCR-Bits 
dargestellt. Dazu zerlegt man das Datenbyte in zwei Hälften, den 
niederwertigen Teil (Bits 0-3) und den höherwertigen Teil (Bits 4- 
7). Die Bits jedes dieser Teile werden dann nach folgender Tabelle 
umgewandelt: 


Dezimal Binärbyte GCR-Code 


0 0000 01010 
1 0001 01011 
2 0010 10010 
3 0011 10011 
4 0100 01110 
5 0101 01111 
6 0110 10110 
7 0111 10111 
8 1000 01001 
9 1001 11001 
10 1010 11010 
11 1011 11011 
12 1100 01101 
13 1101 11101 
14 1110 11110 
15 1111 10101 


Diese GCR-Werte sind so gewählt, daß nach maximal 4 Bits mit 
dem Wert ’1’ eine Null geschrieben wird. Dadurch können Daten- 
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bytes auf der Diskette nach der Umrechnung in GCR-Bytes 
niemals eine Folge von mehr als 6 Einsen ergeben und somit auch 
nicht als Sync-Markierung interpretiert werden. Außerdem kom- 
men bei den GCR-Werten niemals mehr als 2 Bits mit dem 
Zustand °0’ hintereinander vor. Dies ist sehr wichtig, da die 
Leseelektronik anhand der ’1’-Bits Laufwerksschwankungen aus- 
gleicht. | 


Das Umrechnen der Daten wird mit Disketten-Betriebssystem 
immer in Gruppen zu jeweils vier Datenbytes vorgenommen. In 
diesem Fall besteht das Ergebnis aus genau 5 Bytes mit den 
entsprechenden GCR-Werten. Das Umwandeln der Daten 
geschieht aber nicht automatisch, sondern muß von einem Pro- 
gramm durchgeführt werden. Das DOS enthält dazu Routinen, die 
die Umwandlung mitels eines Algoritmus oder mit Hilfe von 
Tabellen vornehmen. Die erste Methode hat den Nachteil, daß das 
Programm aufwendiger ist und nur langsam arbeitet, die 
Tabellenmethode hingegen benötigt viel Speicherplatz, ist dafür 
aber etwas einfacher und schneller. 


Diese Umrechnung der Binärdaten in GCR-Werte und umgekehrt 
ist übrigens ein Grund, warum die Floppy ein eigenes Mikro- 
prozessorsystem mit Pufferspeicher benötigt. Die Daten können 
nämlich nicht so schnell umgewandelt werden, wie sie auf die 
Diskette geschrieben werden müssen (siehe Aufzeichnungsrate). 
Die Daten werden zwischengespeichert, umgewandelt und danach 
auf die Diskette transferiert. 


Zum Schluß noch einige Beipiele, wie 4 Binärbytes in GCR-Werte . 
umgerechnet werden: 


Datenbytes $01 $02 $03 $04 
 Binärwert 0000 0001 0000 0010 0000 0011 0000 0100 
GCR-Wert 0101001011010101001001010100110101001110 
GCR-Bytes $%52 $c5 $25 $4C $4E 


Datenbytes $A1 $FC $65 $9D 
Binärwert 1010 0001 1111 1100 0110 0101 1001 1101 
GER-Wert 1101001011101010110110110011111100111101 
GCR-Bytes %D2 $EA $DB $3F $3D 
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5.2. Wer die Bytes auf die Diskette bringt ... 
5.2.1. 1570/71 Schaltschema 


Die folgenden Kapitel behandeln das Steuersystem der Floppy. 
Dabei geht es aber vorwiegend darum, wıe bestimmte elektro- 
nische Bausteine bei der C-1570/71 eingesetzt sind und welche 
Aufgaben sie erfüllen. Eine allgemeine Einführung in die Mikro- 
prozessortechnik können diese Kapitel selbstverständlich nicht 
bieten. Auch können die in der C-1570/71 verwendeten Bausteine 
nur in Bezug auf Ihre Tätigkeit in der Floppy besprochen werden. 
Die grundsätzliche Programmierung und Beschaltung dieser 
Bauelemente müssen Sie entsprechenden Datenblättern entnehmen. 


Das Schaltschema der Floppy kann natürlich keinen vollständigen 
Schaltplan ersetzen, es soll Ihnen nur den Aufbau einiger 
wichtiger Elemente der Floppy verdeutlichen. Der Kern des 
Mirkocomputers ist ein Prozessor vom Typ 6502B. Dieser kann 
mit einer Taktrate von bis zu 2MHz betrieben werden. Bei der C- 
1570/71 kann zwischen IMHz und 2MHz Takt umgeschalten wer- 
den. Im 1541 Modus benützt die Floppy die langsamere Prozes- 
sorfrequenz, da die C-1541 auch mit dieser Frequenz arbeitet. Ist 
die Floppy im C-1571 Modus, dann wird der Prozessor mit 2MHz 
getaktet. Der Grund für die unterschiedlichen Taktfrequenzen 
sind die Busroutinen. Bei diesen Programmteilen kommt es auf 
den zeitlichen Ablauf der Bussignale an, daß die Floppy schnell 
genug reagiert, und daß die Daten in den richtigen Abständen 
ausgegeben werden. 


Die höhere Taktfrequenz von 2MHz hat einige Vorteile. Die 
Daten, die von der Diskette gelesen werden, können schneller ver- 
arbeitet werden. Dies betrifft beispielsweise die GCR-Umwand- 
lung, denn nun ist es möglich ein Byte sofort nachdem es gelesen 
wurde von GCR nach Binär umzurechnen. Darüberhinaus kann 
der Bus nun mit einer maximalen Übertragungsrate von 500000 
Baud betrieben werden. Bei dieser Geschwindigkeit ist es 
durchaus möglich eine gesamte Spur sofort während des Lesens an 
den Rechner zu übertragen. Daß diese hervoragenden Fähigkeiten 
der Floppy-Elektronik nicht genutzt werden liegt allein am Be- 
triebssystem der C-1570/71. 
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An den Prozessor sind drei Ein-/Ausgabebausteine, ein IBM-34- 
Format-Controler, 2KByte RAM und 32KByte ROM 
angeschlossen. Diese einzelnen Komponenten belegen folgende 
Adressbereiche: 


Bereich Belegung 


$1800 - $180F 6522 (VIA) 
Steuert Bus und 1571-Elektronik 
$1C00 - $ICOF 6522 (VIA2) 
Steuert Aufzeichnungselektronik, Motor usw. 


$2000 - $2003 WD 1770 


$4000 - $400F 6526 (CIAI) 

Steuert schnellen Bus-Modus 
$8000 - $FFFF 32KByte ROM 

Betriebssystem 


5.2.2 Die Interfacebausteine 


Dieses Kapitel behandelt die Interfacebausteine der Typen 6522 
und 6526. Zum besseren Verständnis dieser Schaltkreise werden 
die Datenblätter zum 6522, die von vielen Halbleiterhändlern er- 
hältlich sind, empfohlen. Zum 6526 gibt es im freien Handel lei- 
der keine Unterlagen, da dieser Baustein eine Eigenentwicklung 
von COMMODORE ist. Ausführliche Informationen uber den 
6526 finden Sie in den INTERN-Büchern zum C-64 und C-128. 
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Zuerst soll auf den 6522-Baustein eingegangen. Dieser wird auch 
VIA (Versatile Interface Adapter) genannt. Die 1570/71 hat zwei 
derartige Bausteine eingebaut. Das VIA hat 40 Anschlüße, die fol- 
gendermaßen belegt sind (nur die wichtigsten): 


Anschluß Name Funktion 

Pin 2-9 PA 8-Datenleitungen, die frei programmiert 
werden können. 

Pin 10-17 PB  8-Datenleitungen, die frei programmiert 
werden können. 


Pin 18 CB1 Steuerleitung. 


Pin 39 CA1I Steuerleitung. 


Die einzelnen Steuer- und Datenleitungen des VIA werden vom 
Computer angesteuert. Dazu hat das VIA 16 Register, die im 
Speicherbereich des Prozessors liegen, über die der Prozessor den 
Ein-/Ausgabebaustein steuern kann, indem er bestimmte Werte in 
diese Register schreibt. Darüber hinaus sind in dem VIA auch 
noch zwei Zähler eingebaut. Diese Zählen die Taktimpulse des 
Prozessors. Haben die Zähler einen bestimmten Wert. erreicht, 
können verschieden Aktionen ausgelöst werden. Im Grunde 
genommen kann man auf diese Art und Weise eine bestimmte 
Zeitspanne programmieren, nach der ein Signal erzeugt werden 
soll. Deshalb werden diese Zähler meistens Timer (engl. = Zeitge- 
ber) genannt. Ä 
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Registerbelegung des VIA 6522 


Adresse Funktion 
n Datenregister für PB. 
n + $01 Datenregister für PA mit Handshaking. 
n + $02 Datenrichtungsregister für PB. 
n + $03 Datenrichtungsregister für PA. 
n + $04 Low-Byte Timer 1. 
n + $05 High-Byte Timer 1. 
n + $06 Ausgangswert von Timer 1 (Low-Byte). 
n + $07 Ausgangswert von Timer 1 (High-Byte). 
n + $08 Low-Byte Timer 2. 
n + $09 High-Byte Timer 2. 
n + $0A Serielle Ein-/Ausgabeleitung. 
n + $0B Hilfs-Steuer-Register. 
n + $0C Peripheres Steuer-Register. 
n + $0D Unterbrechungs-Flag-Register. 
n + $0OE Unterbrechungs-Maske. 
n + $OF Datenregister für PA (ohne Handshaking). 
n= für VIA1: $1800 
für VIA2: $1C00 


Das VIA hat zweimal 8 Ein-/Ausgangsleitungen. Welche Leitung 
als Ausgang und welche als Eingang verwendet wird, wird im 
Datenrichtungsregister festgelegt, wobei jedes Bit des Registers 
einer Leitung entspricht. Hat ein Bit den Wert ’0’, dann wird die 
dazugehörige Leitung als Eingang verwendet, beim Wert ’1’ 
fungiert der Anschluß als Ausgang. Beim Eingangsbetrieb wird 
das anliegende Signal in das entsprechende Bit des Datenregisters 
übernommen. Ist die Datenleitung als Ausgang geschlaten, wird 
der Pegel des entsprechenden Bits im Datenregister ausgegeben. 


Die zwei Ausgangsports (port= 8 Datenleitungen) werden PA und 
PB genannt. Der Port PA hat zwei. verschiedene Datenregister. 
Arbeitet man mit dem Datenregister in $01, dann werden immer 
beim Schreiben eines neuen Wertes in dieses Register die Steuer- 
. leitungen beeinflußt. So kann beispielsweise über die Steuerleitung 
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ein Impuls ausgegeben werden, womit die angeschlossene Logik 
erkennt, daß ein neues Signal am Port anliegt. Diese Funktion 
wird aber bei der C-1570/71 nicht benutzt. Es ist also unerheb- 
lich, welches der beiden Datenregister Sie benützen. 


Neben den Ein-/Ausgabeleitungen gibt es noch die Steuerleitun- 
gen CA und CB. Diese haben zum einen, wie schon erwähnt 
wurde, Steuerfunktionen beim Beschreiben des Datenregisters. Auf 
der anderen Seite können CA und CB auch als normale Ein- 
/Ausgabeleitungen benutzt werden. Dies ist deren Aufgabe in der 
C-1570/71. In welchem Modus die Steuerleitungen betrieben wer- 
den oder welchen Pegel sie haben wird im Peripheren Steuerre- 
gister festgelegt: 


Peripheres Steuerregister: 


Bit0O : O0 = CA1 Eingang Interrupt bei fallender Flanke. 

1 = CA1 Eingang Interrupt bei steigernder Flanke. 
Bit1-3: 110= CA2 Ausgang mit Low-Pegel. 

111= CA2 Ausgang mit High-Pegel. 
Bit4 : O0 = CB1 Eingang Interrupt bei fallender Flanke. 

1 = CB1 Eingang Interrupt bei steigernder Flanke. 
Bit5-7: 110= CB2 Ausgang mit Low-Pegel. 

111= CB2 Ausgang mit High-Pegel. 


Die Steuerleitungen der beiden VIAs der Floppy werden zu fol- 
genden Zwecken verwendet: 


Leitung Funktion 

VIA1 CA1 Eingang für ATN Signal des seriellen Busses. 
Erzeugt Interrupt bei steigender Flanke von ATN. 

VIA1 CB1 Write Protect Signal. Flag im Interruptregister 
wird bei fallender Flanke gesetzt. Das bedeutet, 
daß die Schreibschutzlichschranke unterbrochen 
und die Diskette gewechselt wurde. 
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VIA2 CA1 Eingang. Setzt Flag im Interruptregister bei 
negativer Flanke des Byte-Ready-Signals, das 
anzeigt, daß ein Byte gelesen oder geschrieben 
wurde. 

VIA2 CA2 Ausgang für SOE-Signal (Seriell Output Enable). 
1= Schreib-/Leseelektronik wird aktiviert und 
das Byte-Ready-Signal angefordert. 

VIA2 CB2 Kopfmodus. 
0= Daten schreiben. 

= Daten lesen. 


Die Steuerleitungen werden besonders in VIA2 benutzt. Dabei 
durch sie die Schreib-/Leseelektronik gestetzt oder es werden 
Rückmeldungen angenommen. Das wichtigste Signal dieser Art ist 
der Byte-Ready-Eingang. Dieses Signal zeigt an, wenn die 
Schreib-/Leselogik ein Byte verarbeitet und auf die Diskette 
geschrieben hat oder wenn ein Byte von Diskette gelesen wurde 
und nun zur weiteren Verarbeitung Verfügung steht. Das Byte- 
Ready-Signal wird auch noch an den Eingang PA7 des VIAI und 
an den Eingang SO (Set Overflow) des Prozessors geleitet. Diese 
beiden letzten Eingänge werden vom Betriebssystem der Floppy 
benützt und abgefragt. Im 1571-Modus ıst es PA7, im 1541- 
Modus wird SO verwendet. Ein High-Pegel an SO hat zur Folge, 
das das Overflow-Flag des Prozessors gesetzt wird. Auf diese 
Weise kann mit den 6502-Befehlen ’BVC’ oder ’BVS’ das Byte- 
Ready-Signal sehr komfortabel verarbeitet werden. 


Die wichtigsten Aufgaben der beiden VIA-Bausteine werden je- 
doch nicht mit den Steuerleitungen, sondern mit den Ports PA und 
PB erledigt. Deshalb nun die Belegung dieser Ein- 
/Ausgabeleitungen: 
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Leitung E/A Funktion 

E Data Eingang vom seriellen Bus. 

A Data Ausgang auf seriellen Bus. 

VIA1 PB2 E Clock Eingang vom seriellen Bus. 

A Clock Ausgang auf seriellen Bus. 

A 0= ATN wird automatisch beantwortet. 
1= ATN wird erzeugt keine autom. Antwort. 
VIAlI PB5S E DIP-Schalter 1 (links). 

VIAlI PB6 E DIP-Schalter 2 (rechts). 

VIA1 PB7 E ATN Signal vom seriellen Bus. 

- VIA PAO E Zustand der SpurO-Lichtschranke: 
0= Kopf ist auf Spur 0. 
1= Kopf ist nicht auf Spur 0. 

VIA1 PAI A 1570/71-Bus Datenrichtung. 
0= 1570/71 Bus ist auf Eingang. 
1= 1570/71 Bus ist auf Ausgang. 

VIA1 PA2 A aktiver Kopf (nur bei 1571). 

VIA1 PAS A Floppy-Modus und Takt des Prozessors. 
0= 1541-Modus mit 1MHz Taktfrequenz. 
1= 1571-Modus mit 2MHz TAktfrequenz. 

VIAlI PA7 E Byte-Ready-Signal 

VIA2 PBO A STP1. 

2. Bit der Steppersteuerung. 

VIA2 PB1 A STPO. 

1. Bit der Steppersteuerung. 


VIA2 PB2 A 0= Laufwerksmotor aus. 
1= Laufwerksmotor ein. 
VIA2 PB3 A 0= Laufwerksanzeige (LED) aus. 


1= Laufwerksanzeige (LED) ein. 

VIA2 PB E Zustand des Write Protect 
0= Diskette ist schreibgeschützt. 
1= Diskette ist beschreibbar. 

VIA2 PB5S A DSO. 

VIA2 PB6 A DSi. 
Die Signale DSO und DS1 steuern die 
Aufzeichnungsrate auf der Diskette. 
(Funktion siehe ROM-Listing $9409) 
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VIA2 PB7 E Sync-Signal 
1= Sync-Markierung ist aufgetreten 

VIA2aPA A Daten, die an Schreib-Elektronik übergeben 
werden. 

VIA PA E Daten, die von Lese-Elektronik gelesen 
wurden. 


Ein weiterer Interface-Baustein, der in der Floppy verwendet 
wird, ist die CIA 6526. Diese Ein-/Ausgabeeinheit wird auch im 
C-64 und C-128 verwendet. Der CIA-Baustein ist dem 6522 sehr 
ähnlich. Er enthält allerdings noch zusätzlich eine Echteituhr mit 
Alarm. 


In der C-1570/71 werden nur der serielle Ein-/Ausgang (SP) und 
die dazugehörende Taktleitung CNT verwendet. Diese beiden 
Leitungen sind für die Übertragung der Daten im schnellen Bus- 
modus zuständig. Darüber erfahren Sie mehr in Kapitel 5.2.6. 


Selbstverständlich hat auch die CIA 6526 zwei 8-Bit große Aus- 
gangsports, die allerdings nicht verwendet werden. Sie haben 
somit die Möglichkeit, diese Leitungen für eigene Anwendungen 
und Basteleien zu verwenden. 


5.2.3 Der Controller WD 1770 - Technik 


Der WD 1770 wird von WESTERN DIGITAL hergestellt und ist 
softwarekompatibel zur WD 179X-Reihe, die auch von anderen 
Herstellern produziert wird. Dieser 28-polige Baustein enthält 
alles, was zur Steuerung eines Diskettenlaufwerks nötig ist. Dies 
ist beispielsweise eine Logik, die den Steppermotor und somit den 
Schreib-/Lesekopf bewegt. Darüberhinaus sind bereits alle Kom- 
ponenten, die zum Lesen und Schreiben der Daten nötig sind, im 
WD 1770 intergriert. 
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Pın-Belegung des WD 1770: 


Pin Name Funktion 

1 cs Chip Select. Ein Low-Signal an diesem Pin 
adressiert den Baustein. 

2 RW 0= Register schreiben. 
1= Register lesen. 

3/4 A0/1 Adressleitungen, die bei CS=O das gewünschte 

| Register auswählen. 

5-12 DO-7 Datenbus zum Prozessor 

13 MR Ein Low-Pegel führt den Reset durch. 

14 GND Masseanschluß. 

15 Vcc +5 V Spannung 

16 STEP Ausgang für Steppimpulse für Kopfmotor 

17 DIRC Direction. 
0= Kopf bewegt sich nach außen. 
1= Kopf bewegt sich nach innen. 

18 CLK Eingang für Betriebstakt von 8MHz. 

19 RD _ Read Data. Impulse von der Diskette. Diese 
Infomationen enthalten sowohl die Takt- als 
auch die Datenbits. 

20 MO Motor On. Ausgang um Motor anzuschalten. 

21 WG Write gate. Dieser Ausgang wird High, wenn auf 
die Diskette geschrieben wird. 

22 WD Dies sind die Daten zusammen mit den Takt- 
bits, die auf die Diskette geschrieben werden. 

23 TROO Track0-Eingang: O= Kopf ist auf Spur 0 

1= Kopf ist nicht auf Spur 0. 
24 IP Index-Puls: O= Index-Lichtschranke wurde unter- 
brochen. 
1= Lichtschranke ist nicht unter- 
brochen. | 

25 NWPRT Write Protect: 0= Diskette ist schreibgeschützt. 

| 1= Diskette ist beschreibbar. 

26 DDEN Double Density. O= Double Densitiy 

1= Single Sensity 
27 DRQ Data Request. 1= Datenregister ist bereit. 
28 INTRQ Interrupt Request. 1= Kommando beenden. 
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Die Steppersteuerung des WD 1770 wird in der C-1570/71 Floppy 
nicht verwendet. Dies übernimmt die Betriebssoftware über VIA2. 
Jediglich die Signale für Write Protect und Track0 werden auch 
an den WD 1770 geleitet. Dadurch wird beispielsweise das 
Beschreiben geschützter Disketten verhindert, auch wenn die Be- 
triebssoftware den Write Protect nicht prüfen würde. 


Selbstverständlich wäre es mit einigen kleinen Basteleien möglich, 
den Steppermotor durch den WD 1770 ansteuern. Wenn man das 
Betriebssystem entsprechend ändert hätte das den Vorteil, daß das 
DOS nicht mehr beschäftigt ist und während der Kopf positioniert 
wird andere Aufgaben erledigen kann. 


Eine weitere kleine Bastelanwendung ist, Pin 26 aufzutrennen. 
Dieses Signal ist auf Masse gelegt und es wird somit immer mit 
dem MFM-Aufzeichnungsverfahren gearbeitet. Verwenden Sie 
nun Disketten, die mit Single Density, also dem FM-Verfahren, 
beschrieben sind, können Sie den Controller darauf einstellen, 
indem Sie Pin 26 an 5V legen (möglichst mit 1KOhm-Widerstand). 
Sie können sich auch einen Umschalter einbauen, mit dem Sie 
. Single und Double Density wechseln können (je nachdem ob an 
Pin 26 der Wert ’0’ oder ’1’ anliegt). Die Betriebssoftware der C- 
1570/71 merkt davon nichts und selbst das Betriebssystem CP/M+ 
arbeitet problemlos mit Single Density Disketten. | 


5.2.4 Die Technik des COMMODORE-Controllers 


Bei COMMODORE-Formaten wird die Aufzeichnung über einen 
weiteren Controller gesteuert. Das Wort Controller ist allerdings 
etwas hoch gegriffen. Genau genommen handelt es sich nur um 
eine digitale Logikschaltung, an die ein gesamtes Byte übergeben 
wird, das diese dann seriell auf die Diskette schreibt. Diese 
Schaltung ist ın einem Gate Array untergebracht, das 
COMMODORE in eigener Produktion fertigt. Aus diesem Grund 
fehlt hier die übliche Beschreibung der Pin-Belegung, da 
COMMODORE keine Unterlagen über diesen Baustein zur 
Verfügung stellt. Wer sich trotzdem für die Innereien des Gate 
Arrays interessiert, sollte sich mit den älteren Floppy-Modellen 
von COMMODORE beschäftigen. Denn das Gate Array wird 
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nicht verwendet, damit man die Schaltung nicht nachbauen oder 
analysieren kann, es ist vielmehr billiger als eine handvoll nor- 
maler diskreter Bauelemete. 


Der Aufbau der COMMODORE-Hardware hat sich im Laufe der 
Jahre nur unwesentlich geändert. Aus diesem Grund kann beson- 
ders die Lektüre der CBM 4040 und der VC-1540 Unterlagen 
empfohlen werden, da diese Geräte die selben Grundfunktionen 
enthalten, wie die C-1570/71 - nur eben nicht in einem Gate 
Array. 


Das Gate Array besteht aus zwei wesentlichen Baugruppen: einem 
Parallel-Seriell-/Seriell-Parallel-Wandler und einem BCD Zähler. 
Das zu schreibende Datenbyte wird von PA des VIA2 in ein 
Schieberegister übernommen. Von dort aus wird es mit dem Takt 
CLK, der durch einen programmierbaren Teiler und die Signale 
DSO und DS1 (siehe VIA2) erzeugt wird, an die Schreibelektronik 
weitergegeben, die die Impulse verstärkt und die Kopfspule 
ansteuert. 


Beim Lesevorgang geschieht dasselbe, nur in umgekehrter Rei- 
henfolge. Darüber hinaus wird mit dem Eintreffen jedes ’0’-Bits 
ein Zähler zurückgesetzt. Dieser Zähler beginnt beim Eintreffen 
von Bits mit dem Wert ’1’ zu arbeiten. Das geschieht solange, bis 
wieder ein ’0’°-Bit auftritt. Hat der Zähler den Wert 10 erreicht, 
dann wird das SYNC Signal ausgelöst, da bei normalen GCR- 
Daten nie mehr als 6 Einsen aufeinander folgen. Ä 


5.2.5 Der 1541 und 1570/71 Modus 


Die Floppy kann in zwei verschiedenen Modi betrieben werden. 
Das ist zum einen der 1541-Modus und zum anderen der C- 
1570/71 Modus. Im 1541-Modus soll die Floppy zur VC-1541 
kompatibel sein. Aus diesem Grund wird Sie in diesem Modus mit 
einer Taktfrequenz von IMHz betrieben. Das DOS benützt dabei 
hauptsächlich die ROM-Routinen $C000 bis $FFFF, die mit dem 
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VC-1541 ROM identisch sind. Jediglich die Diskcontroller-Rou- 
tine wird nicht benützt, da die neuen technischen Einrichtungen 
wie beispielsweise die Track0-Kennung nur vom 1571-ROM 
erkannt werden. 


Ein weiterer gravierender Unterschied ist, daß Disketten nur ein- 
seitig beschrieben werden können, auch wenn es sich um beid- 
seitig formatierte C-1571 Disketten handelt. Dieser Modus hat 
allerdings den Vorteil, daß die in 5.1.2 besprochenen Probleme 
mit beidseitigen Disketten, die im "Wendeverfahren" formatiert 
sind, nicht mehr auftreten. 


Jedoch können im 1541-Modus die Zusatzfunktionen über User-O 
nicht ausgeführt werden. Die einzige Ausnahme sind die Head- 
und Mode-Befehle, die teilweise im 1570/71-Modus nicht funk- 
tionieren, da sie da nicht erlaubt sind. 


Der Bus kann im 1541-Modus nur den normalen C-64 Algorith- 
mus bedienen Im 1570/71-Modus sind sowohl der alte Busmodus, 
als auch der neue, schnelle Busmodus möglich. Dies hängt vom 
Gerät ab, mit dem die Floppy kommuniziert und wird bei jeder 
Übertragung neu festgelegt. 


Nach dem Einschalten ist die Floppy immer im 1541-Modus. Der 
1571-Modus kann nur durch Umschalten mit dem ’u0>m1’-Befehl 
erreicht werden. Dies führt der C-128 immer beim Reset-Vorgang 
durch. 
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5.2.6 Der serielle Bus - Technik und Funktion 


Der serielle Bus stellt die Verbindung zwischem dem Computer 
und den angeschlossenen Peripheriegeräten her. Über diese Über- 
tragungsstrecke wird die Floppy angesteuert und werden Daten 
übertragen. Dieser Bus wird in diesem Kapitel sehr ausführlich 
besprochen. Auf diese Weise erfährt nicht nur der Einsteiger, wie 
die Datenkommunikation zwischen Floppy und Computer abläuft, 
sondern erhält auch der Profi handfeste Informationen für den 


Umgang mit dem Bus. 


Der Bus 


besteht aus sechs Leitungen, deren Bedeutung nun 


detaillierter besprochen wird: 


Pin Name 


2 GND 
3 ATN 
4 CLK 
5 Data 
6 Reset 


Funktion 

Serial Request. Diese Leitung dient als Takt- 
leitung beim schnellen Busmodus. 
Masseanschluß. Stellt zwischen allen an- 
geschlossenen Geräten ein gemeinsames 
Null-Potential her. 

Attention-Signal. Identifiziert Controller 
Befehle. 


Reset-Signal des Computers. Wird der Computer 
zurückgesetzt oder eingeschalten, so werden 
über diese Leitung auch alle: angeschlossenen 
Periheriegeräte zurückgesetzt. 
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Die Leitungen GND (Pin2) und Reset (Pin6) können vom 
Computersystem nicht beeinflußt werden. GND ist das Massepo- 
tential des Computers. Über diese Leitung der Masseanschluß aller 
Peripheriegeräte verbunden, womit ein einheitliches OV-Potential 
hergestellt wird, da sich Differenzen ausgleichen würden. Auf 
diese Weise entspricht der logische Pegel ’0’ bei allen Geräten der 
gleichen Spannung. 


Die Reset-Leitung gibt den Impuls, der beim Einschalten oder 
durch den Reset-Knopf entsteht, an die Peripehriegeräte weiter. 
Diese verhalten sich dann so, als hätten sie den Reset-Impuls, der 
beim Einschalten des Peripheriegeräts entsteht, erzeugt und wer- 
den ın den Ausgangszustand versetzt. Wird ein an den Computer 
angeschlossenes Gerät angeschaltet, darf kein Impuls auf der 
Reset-Leitung entstehen. Es gibt allerdings hin und wieder 
mangelhaft konstruierte Geräte, die dieses Verhalten aufweisen. 
Das hätte dann zur Folge, daß der Computer zurückgesetzt wird, 
wenn Sie ein angeschlossenes Gerät dazuschalten. Zuletzt ein Tip: 
schalten Sie zuerst immer alle benötigten Peripheriegeräte ein und 
danach den Computer. Dadurch können Sie sichergehen, daß alle 
Geräte im ordnungsgemäßen Ausgangszustand sind. 


Die restlichen Leitungen des seriellen Busses werden vom 
Computer gesteuert. Der Computer ist dabei der sogenannte 
Controller, der die Aktion auf dem seriellen Bus steuert. Er legt 
fest, welche Geräte miteinander kommunizieren, welches Daten 
sendet und welches die Daten empfängt. Das diese Kommunika- 
tion meistens zwischen Computer und angeschlossenem 
Peripheriegrät stattfindet, ıst zwar der Normalfall, aber keine 
zwingende Festlegung. Es können durchaus auch einmal zwei 
Floppy-Laufwerke miteinander Daten austauschen - die Buslogik 
wird dadurch nicht durcheinander gebracht. Nur werden derartige 
Übertragungen vom COMMODORE-Betriebssystem nicht unter- 
stüzt. 


Beim seriellen Bus muß beachtet werden, daß nur ein Gerät Daten 
senden darf, wobei dieses Talker genannt wird. Zuhören dürfen 
auch mehrere Geräte gleichzeitig, die Listener genannt werden. 
Welches Gerät als Talker und welches als Listener fungiert legt 
der Controller fest. | 
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Nun werden Sie sicherlich verstehen, aus welchem Grund Sie zwei 
Computer nicht mit dem selben Peripheriegerät verbinden dürfen. 
In diesem Fall wären zwei Controller vorhanden, die beide 
gleichzeitig Anweisungen erteilen könnten, wer mit wem 
kommunizieren darf - ein heilloses Chaos wäre die Folge. Darüber 
gibt es eine Leitung, die nur von einem Controller gesteuert 
werden darf. 


Das Problem, daß zwei Computer nicht verbunden werden dürfen, 
liegt nicht an der Buslogik, sondern an der Software, dem Be- 
triebssystem. Sie können selbstverständlich ein Programm ent- 
werfen, daß den Computer wie ein Peripheriegerät erscheinen 
läßt, welches nun an ein weiteres Computersystem angeschlossen 
werden kann. 


Zur Übertragung der Daten stehen insgesamt vier Leitungen zur 
Verfügung, deren Funktion nun eingehender behandelt wird. da 
die Vorgänge auf dem Bus teilweise sehr kompliziert sind, werden 
wir die Methode der "schrittweisen Verfeinerung" anwenden. Das 
bedeutet, daß Sie zuerst die groben, grundlegenden Zusammen- 
hänge kennenlernen. Später werden dann die einzelnen Grobab- 
läufe detaillierter untersucht - bis zur Analyse des Schlatplans der 
Buselektronik. 


Die zentrale Steuerung der Busvorgänge übernimmt der Controller. 
Dazu ist eine spezielle Leitung, ATN (Attention engl.= Achtung, 
Vorsicht) genannt, vorhanden, die vom Controller aktiviert wird, 
wenn er an die angeschalteten Peripheriegeräte ein Kommando 
richten möchte. Alle Daten, die bei aktiver ATN-Leitung (High- 
Zustand) gesendet werden, sind Kommandos. Diese bestehen nor- 
malerweise aus zwei Bytes, wobei das erste Byte folgendermaßen 
aufgebaut ist: 


BitO-4: Geräteadresse des angesprochenen Geräts. 

Bit5: 1= Adressierung als Listener. 

Bit6: 1= Adressierung als Talker. 

Bit7:  0= Kennzeichen für Primäradresse (1.Befehlsbyte). 
1= Kennzeichen für Sekundäradresse. 
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Bit 7 der Kommandobytes zeigt an, ob es sich um das erste Byte, 
die Primäradresse, oder das zweite Byte, die Sekundäradresse han- 
delt. Beim Aufruf eines Gerätes wird zuerst das 1. Kommando- 
byte gesendet. Die Bits 5 und 6 geben dabei an, ob das Gerät als 
Talker oder als Listener agieren soll. Durch diese beiden Bits wird 
also gesteuert, ob das angesprochene Gerät Daten senden oder 
_ Daten empfangen oder senden soll. Es darf immer nur eines der 
beiden Bits gesetzt sein, da ein Gerät nicht gleichzeitig Daten sen- 
den und empfangen kann. 


Die Bits 0-4 des Primärbytes geben die Nummer des Geräts an, 
für welches das Kommando bestimmt ist, die zwischen O0 und 30 
liegen darf. Aus diesem Grund muß jedes Gerät, immer wenn die 
ATN-Leitung im aktiven Zustand ist, die Vorgänge auf den Bus 
mitverfolgen um zu erkennen, wenn es angesprochen wird. 


Die Geräteadresse 31 hat eine Sonderfunktion und dient dazu den 
Datenverkehr auf dem Bus wieder einzustellen. Wird diese Adresse 
angesprochen, dann setzen alle Peripheriegeräte ihre Buslogik zu- 
rück und beenden die aktuelle Talker- oder Listener-Funktion. 
Üblicherweise ist davon nur ein Gerät, nämlich das, daß mit dem 
Computer kommuniziert, betroffen. Doch es gibt auch die Mög- 
lichkeit, daß zwischen zwei Peripheriegeräten Daten ausgetauscht 
werden oder mehrere Geräte gleichzeitig im Listener-Betrieb sınd. 
In diesem Fall werden durch die Geräteadresse alle Geräte 
gleichzeitig zurückgesetzt. Bei dieser Rucksetz-Funktion haben die 
Bits 5 und 6 wieder die gleiche Beduetung wıe bei den normalen 
Geräteadressen. Auf diese Weise können Listener und Talker ge- 
trennt zurückgesetzt werden, wobei diese Buskommandos dann die 
Bezeichnungen Unlisten oder Untalk erhalten. 


In den meisten Fällen reicht die Adressierung des Peripheriegeräts 
nicht aus, da man spezielle Funktionen des Geräts ansteuern 
möchte, was durch die Sekundäradresse bewirkt wird. Soll eine 
Sekundäradresse angesprochen werden, dann wird im ATN-Kom- 
mandomodus ein weiteres, zweites Steuerbyte gesendet. Dieses 
kann amm gesetzten Bit 7 erkannt werden. Die Bits 5 und 6 haben 
beim Sekundärbyte immer den Wert ’1’. Bit4 gibt an, ob der Se- 
kundärkanal geöffnet oder geschloßen werden soll. Die Nummer 
des gewünschten Kanals muß in Bit 0-3 angegeben werden. 
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Nun nochmals die verschiedenen Steuerbytes im Überblick: 


Steuerbyte Funktion 


O10xxxxx Talker-Aufruf. 
01011111 Untalk. 
001xxxxx Listener-Aufruf. 


00111911 Unlisten. 

1111yyyy Sekundäradresse eröffnen. 

1110yyyy Sekundäradresse schließen. 

0110z2zzz - Sekundäradresse für Listener- und 
Talker-Betrieb übermitteln. 


m nun 0 02m En nm nn m a m m m Sm m m m a m a m m a a nam m 


Wie Sie schon wissen, muß im ATN-Modus jedes Peripheriegerät 
die Kommandobytes analysieren um festzustellen, ob es von dem 
Befehl betroffen ist. Was passiert nun, wenn ein Gerät gerade be- 
schäftigt ist? Stellen Sie sich vor, die Floppy formatiert eine Dis- 
kette oder der Drucker gibt gerade eine Zeile aus. In dieser Phase 
ist das Prozessorsystem des Periepheriegerätes umfassend mit der 
auszuführenden Arbeit beschäftigt und hat keine Zeit, den Bus- 
verkehr zu beobachten. 


Aus diesem Grund wurde ein Verfahren, daß ’Handshaking’ ge- 
nannt wird, entwickelt, mit dessen Hilfe der Datenfluß gesteuert 
wird. Genauso wie Sie nicht einfach in das Büro Ihres Chefs hin- 
einstürmen, sondern erst einmal anklopfen und auf das ’Herein’ 
_ warten, werden die Bytes nicht sofort auf den Bus ausgegeben, 
sondern erst einmal festgestellt, ob alle Geräte zuhören. 


Die dazu nötigen Steuersignale werden über die Clock- und die 
Daten-Leitung gesendet und haben folgende Bedeutung: 


Data 0O= alle Peripheriegeräte bereit. 
Peripheriegerät(e) nicht bereit. 
Clock O= Controller bereit. 

1= Controller sendet noch keine Daten. 


BERN 
u 
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Soll ein Gerät adressiert werden geschieht folgendes: 


. Zuerst wird die ATN-Leitung aktiviert, womit signalisiert wird,, 
daß nun ein Kommando folgt. Darauf setzt der Controller die 
Clock-Leitung auf den Wert ’l’ um mitzuteilen, daß das Daten- 
byte noch nicht übertragen wird. Gleichzeitig sorgt er dafür, daß 
auf der Data-Leitung der Wert ’0’, also kein Signal, anliegt. Durch 
eine elektronische Schaltung wird an jedem Peripheriegerät auto- 
matisch die Daten-Leitung auf den Zustand ’1’ gesetzt. 


Nun haben die Peripheriegeräte Zeit, sich auf den Empfang der 
Steuerbytes vorzubereiten. Ist das Peripheriegerät bereit das Steu- 
erbyte zu verarbeiten, dann setzt es seinen Daten-Ausgang wieder 
auf den Wert ’0’. Hat das letzte Peripheriegerät die Datenleitung 
zurückgesetzt, geht der Pegel der Datenleitung auf den Wert ’0’ 
zurück, wodurch dem Controller signalisiert wird, daß alle Geräte 
bereit sind. 


Ob überhaupt ein Gerät angeschlossen ist, wird vom Controller zu 
Anfang dieser. Adressierungphase festgestellt. Dazu prüft er, ob 
die Daten-Leitung innerhalb einer Millisekunde auf den Wert ’1’ 
gestetzt wird. So hat auch ein Peripheriegerät, das keine 
automatische Schaltung zum setzen der Daten-Leitung hat, 
genügend Zeit, auf den Controller-Aufruf zu reagieren. Bleibt das 
Hochsetzen der Daten-Leitung aus, dann gibt der Computer die 
Fehlermeldung ’Device not present’ aus. 


Sind alle Peripheriegeräte bereit, dann setzt der Controller die 
Clock-Leitung auf den Zustand ’°0°”. Dies ıst für die 
angeschlossenen Geräte das Signal, daß nun die Übertragung 
beginnt. Nun erfolgt kein Handshaking mehr. Die Peripheriegeräte 
müssen nun alle schnell genug sein, um die Daten zu verarbeiten. 
Mit jedem Low-Impuls auf der Clock-Leitung wird ein Datenbit 
auf der Daten-Leitung ausgegeben. In der Zeitspanne zwischen 
zwei Datenbits nimmt die Clock-Leitung den Zustand ’1l’ an, wo- 
durch den angeschlossenen Geräten mitgeteilt wird, daß sıe sich 
nun melden sollen, ob sie das Datenbit emfangen haben. dazu setzt 
der Talker, der in diesem Fall der Controller ist, die Daten- 
Leitung auf den Wert °’0’°. Hat das Peripheriegerät das Datenbit 
empfangen, muß es dies dem Talker mitteilen, indem es auf der 
Daten-Leitung einen High-Pegel ausgibt. Dabei beachtet der 
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Talker immer nur das erste Gerät, das sıch auf diese Weise 
meldet. Sınd weitere Zuhörer vorhanden, dann werden die 
Meldungen dieser Geräte ignoriert. Für den Talker ist es nur 
interessant ob überhaupt ein Listener vorhanden ist. Erfolgt die 
Quittierung des Datenbits nicht, dann erfolgt eine ’Time out’- 
Fehlermeldung im Statusbyte des Computers,. 


Die grundlegenden Vorgänge auf dem seriellen Bus sind im 
Grunde genommen nicht sehr kompliziert, trotzdem können Sie 
nun, besonders in 6502-Maschinensprache, noch keine eigenen 
Bussteuerroutinen entwerfen. Dazu müssen Sie nämlich auch die 
Hardware des seriellen Busses kennenlernen. 


Wenn Sie allerdings die Routinen des Betriebssystems verwenden, 
ist die Busprogrammierung nicht schwer. Es ist für jede 
Busfunktion, wie Talk oder Untalk, eine eigene Routine 
vorhanden, die in Maschinensprache nur aufrufen müssen. Dabei 
müssen in einigen Zeropagestellen und den Prozessor-Registern, 
die Parameter für den Busaufruf übergeben werden. 


Hier nun eine Zusammenstellung der wichtigsten Betriebssystem- 
Routinen, die auf dem VC-20, C-64 und C-128 identisch sind: 


Name Adresse Funktion/Parameter 


Parameter in Zeropageadressen, die immer gesetzt sein 


müssen: 

$B8 Logische Dateinummer 

$BA Geräteadresse 

$B9 Sekundäradresse + Steuerbits 4-7 

$BB/BC Adresse des Dateinamens bei Open 

$B7 Länge des Dateinamens 

OPEN $FFCO Eröffnet Datenkanal (wie in BASIC) 
CLGSE $FFC3 Schließt Datenkanal (wie in BASIC) 
CKOUT  $FFC9Y Gibt Zeichen aus A auf Bus aus 
CHKIN $FFC6 Holt Zeichen vom Bus nach A 

TALK $FFB4 ruft Talker-Funktion auf 


LISTEN $FFB1 ruft Listener-Funktion auf 
SECTALK $FF96 Sendet Sekundäradresse nach Talk 
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SECLISTEN $FF93 Sendet Sekundäradresse nach Listen 
UNTALK $FFAB Sendet Untalk-Kommando 
UNLISTEN $FFAE Sendet Unlisten-Kommando 


Die Assembler-Profis unter Ihnen möchten selbstverständlich 
nichts dem Betriebssystem überlassen, sondern alles selbst pro- 
grammieren. Sicherlich haben Sie deshalb schon die Belegung der 
Ein-/Ausgabe-Bausteine der Floppy und des Computers studiert. 


INPUT 4 


BUS 
OUTPUT 


Dabei fällt auf, daß für ein und die selbe Busleitung zwei Ver- 
schiedene Bits des Ein-/Ausgabeports verwendet werden. Das eine 
Bit dient zur Ausgabe der Daten und das andere Bit ist als Ein- 
gang geschaltet. Um zu verstehen, was hinter dieser merkwürdigen 
Belegung steckt, müssen Sie den Schaltplan der Buslogik zu Rate 
ziehen. 

Wie Sie sehen, werden die beiden Anschlüße des Ein-/Ausgabe- 
Bausteins über zwei Inverter mit der Busleitung verbunden. Der 
Inverter gibt immer genau den entgegengesetzten Pegel aus, wie 
am Eingang des Inverters anliegt. Auf diese Weise haben die Pegel 
auf den Leitungen des seriellen Busses immer den entgegenge- 
setzten Wert wie das Bit im Ein-/Ausgabe-Register. 


Der Grund dafür ist elektrotechnischer Natur. Es ist nämlich 
physikalisch nicht möglich auf eine Leitung den ’0’-Pegel zu 
setzen und dann die Leitung durch einen anderen Ausgang, bei- 
spielsweise am Peripheriegerät, mit dem Wert ’1’ ansteuern. Die 
Leitung würde nie den Zustand ’l’ annehmen, da der Null-Pegel 
wie ein Kurzschluß wirkt. 


Also muß die ganze Handhabung der Signale invertiert werden. 
Soll die Leitung den Wert ’°0’ haben, wird nun der Pegel ’1’ 
ausgegeben. Dieser liegt solange an, bis an irgend einem ange- 
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schlossenen Gerät der Pegel ’0’ gesetzt wird. Dadurch entsteht ein 
Kurzschluß und die Spannung auf der Leitung bricht zusammen. 
_ Dies entspricht dann dem Null-Pegel. 


Die Geräte, die am seriellen Bus angeschlossen sind, haben nun 
immer eine Ausgangsleitung und eine Eingangsleitung. Durch die 
Ausgangsleitung wird ein bestimmter Pegel am Bus angelegt. Wenn 
es sich dabei um einen ’1’ Pegel handelt, also der Wert ’0’ auf den 
Bus gegeben wird (beachte Inverter), kann es durchaus 
vorkommen, das dieser Spannungspegel von einem anderen ange- 
schlossenen Gerät auf den Zustand ’0’ gebracht wird. Aus diesem 
Grund hat jedes Gerät eine Eingangsleitung, mit der der wirklich 
anliegende Buspegel abgefragt werden kann. 


Im Grunde genommen ist diese spezielle Hardware-Organisation 
für die Programmierung nicht interessant, da die Elektronik durch 
die Inverter immer wieder die richtigen logischen Werte herstellt. 
Doch es gibt leider eine Ausnahme. Dies ist der Eingang am 
Rechner, dem C-64 oder dem C-128. Dieser Eingang hat keinen 
Inverter vorgeschaltet. 


Das muß bei der Programmierung beachtet werden. Sollen die 
Werte der Buseingänge am Rechner abgefragt werden, müssen 
diese immer durch das Programm invertiert werden. Soll gewartet 
werden, bis ein bestimmter Pegel an einer Busleitung anliegt, dann 
müssen Sie darauf achtgeben, daß Sie auf den entgegengesetzten 
Wert warten müssen. 


Der Sachverhalt, daß die physikalischen Pegel im Gegensatz zu 
den logischen Werten invertiert sind, führt besonders in ROM- 
Listings immer wieder zu Verwirrungen. Suchen Sie deshalb 
immer zuerst die Routinen, die die Daten- oder die Clock- 
Leitung auf einen bestimmten Wert setzen. Daran können Sie er- 
kennen ob das Setzen einer Leitung auf den Wert ’1’, mit dem 
physikalischen oder mit dem logischen Pegel kommentiert wird. 
Im DOS-Listing im Floppy-Buch werden immer die logischen 
Pegel kommentiert. Besondere Vorsicht ist bei ROM-Listings zum 
C-64 oder C-128 geboten. Darin wird nämlich meistens überse- 
hen, daß die Eingänge nicht invertiert werden und somit die 
physikalischen Buspegel anliegen. Dies führt dann zu einem 
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munteren Kommentar-Wirrwarr, daß mit den eigentlichen Vor- 
gängen am seriellen Bus nichts mehr zu tun hat. 


Wie Sie wissen kann die C-1570/71 im schnellen Busmodus be- 
trieben werden. Zu diesem Modus wird die SRQ-Leitung benötigt. 
Über diese Leitung werden die Taktsignale übertragen, die das 
CIA 6526 bei der Ausgabe des Datenbytes erzeugt. Mit diesen 
- Taktsıgnalen wird das Datenregister des empfangenden Geräts ge- 
steuert. 


Über die SRQ-Leitung wird auch festgestellt, ob das 
angesprochende Peripheriegerät im schnellen Busmodus 
angesprochen werden kann. Dazu sendet das aufgerufene Gerät 
beim Zurücksetzen des Pegels auf der Daten-Leitung, womit es 
seine Emfangsbereitschaft signalisiert, acht Taktimpulse auf der 
SQR-Leitung. Diese Impulse setzen ein Flag im Interruptregister 
des Computers. Wenn der Controller das Zurücksetzen der Daten- 
Leitung erlkennt, prüft er nun gleichzeitig, ob die das Flag im 
Interruptregister gesetzt ist. Somit weiß der Bus-Controller, daß 
das angeschlossene Gerät im schnellen Busmodus betrieben werden 
kann. In diesem Fall sendet der Controller beim Setzen des Clock- 
Signals, ebenfalls acht Taktimpulse über die SRQ-Leitung. Da- 
durch wird dem Peripheriegerät mitgeteilt, daß es die Daten ım 
schnellen Busmodus senden oder empfangen soll. 


Beim Schnellmodus werden die Datenbits und die Taktbits nicht 
invertiert, da dies das CIA nicht verarbeiten würde. Nur die 
eigentliche Datenübertragung wird im schnellen Busmodus durch- 
geführt. Dabei wird ein Byte in genau 64 Mikrosekunden 
übertragen, wobei eine Übertragungsrate von 15625 Bytes pro Se- 
kunde möglich wäre. 


Wie Sie aber schon bemerkt haben, werden im Schnell-Modus 
gerade 3500 Bytes geladen. Dies liegt an den Verwaltungsroutinen 
der Floppy und des Computers, die beide nicht besonders ausge- 
klügelt sind und deshalb die Übertragung bremsen. 


Dies war auch schon beim C-64 der Fall. Der Übertragungsalgo- 
rithmus des C-64 Bus ist durchaus fähig bis zu 1200 Bytes pro 
Sekunde zu senden oder zu empfangen. Die umständlichen Ver- 
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waltungsroutinen der Betriebssysteme bremsen die 
Busgeschwindigkeit auf magere 400 Bytes pro Sekunde. 


Aus diesem Grund ist der C-128 beim Speichern von Programmen 
nicht schneller als der C-64, obwohl der schnelle Bus verwendet 
wird. Denn es ist unwichtig, ob die Daten zum Übertragen eine 
Millisekunde oder einige Mikrosekunden benötigen, wenn das Be- 
triebssystem nur alle 2.5 Millisekunden ein Byte übernehmen 
kann. 


Die Schnell-Lade-Systeme sind vorwiegen nur deshalb schneller, 
weil die Verwaltungsarbeit (Datei eröffenen, Pointer verwalten...) 
drastisch gekürzt wurde. 


Ä Theoretisch ist es sogar möglich mit der Technik des C-128 Fast- 
Bus Übetragungsraten mit bis zu über 60000 Bytes pro Sekunde zu 
realisieren. 


Das große Floppybuch 1571/70 181 


PB4/’UIAL 
ECA1’UIni 


PBB/ 
vIal 


PB3’UIA1 


182 Programmierun 


5OR 


119 


AaTN FPAS’UIn1 


PB4.’UIA1 


DATA 


Enli/ulni 
PBT’UIAI 


ür Profis 


Das_große Floppybuch 1571/70 183 


5.2.7 Der Steppermotor 


Der Steppermotor ist eine besondere Antriebseinheit. Ein 
normalen Motor beginnt zu laufen, sobald er mit Strom versorgt 
wird. Ein derartiger Motor ist zum Beipiel der Laufwerksmotor, 
der die Diskette in Rotation versetzt. 


Dieser Laufwerksmotor hat auf seiner Achse einen Tachogenator, 
eine kleine Komponente, die die Umdrehungszahl des Motors 
feststellt. Aufgrund dieser Messung wird die Stromzufuhr des 
Laufwerksmotors gesteuert, sodaß der Motor konstant läuft. 


Der Stepper dagegen ist ein Spezialmotor, der nicht mit einem 
gleichmäßigen Strom sondern mit Impulsen angesteuert wird. Bei 
jedem Impuls bewegt sich der Motor um einen ganz bestimmten 
Winkel. Beim Steppermotor der C-1570/71 sind das geanau 1.8 
Grad. Das bedeutet, daß der Motor nach genau 200 Impulsen eine 
Umdrehung vollzogen hat. 


Den Drehwinkel eines Steppermotors nennt man auch Schritt oder 
Step, womit nun auch die Namensgebung verständlicher wird. Bei 
jedem Impuls bewegt sich der Motor um einen Schritt. Der Vorteil 
des Steppermotors ıst, daß er sowohl vorwärts als auch rückwärts 
gedreht werden kann. Die Drehrichtung wird bei der C-1570/71 
durch die Signale STPO und STPI1. Diese beiden Bits müssen als 2- 
Bit-Wert betrachtet werden. Erhöht man den Wert, dann bewegt 
sich der Motor so, daß der Kopf nach außen fährt, wird dieser 
Wert erniedrigt, so bewegt sich der Kopf nach innen. 


Bei der C-1570/71-Floppy wird der Kopf durch zwei Schritte um 
eine Spur weiterbewegt. Diese Schrittimpule dürfen selbstver- 
ständlich nicht zu schnell erfolgen, denn der Steppermotor 
benötigt eine gewisse Zeit, bis er den Schritt ausgeführt hat. Wie 
Sie sicher schon bemerkt haben bewegt sich der Kopf im 1571- 
Modus wesentlich schneller, als im 1541-Modus. 


Dadurch, daß im 1571-Modus die Taktfrequenz doppelt so hoch 
ist, werden die Schrittimpulse auch doppelt so schnell erzeugt. 
Allerding sollten Sie bei eigenen Experimenten bei der Stepper- 
programmierung sehr behutsam vorgehen und am Besten die 
Betriebssystemroutinen verwenden. 
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KAPITEL6. 
1571-PRAXIS 
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6.1 Spitzen-Diskmonitor 


6.1.1 Die Befehle des Diskmonitors 


Der Diskmonitor ist ein Diskettenwerkzeug, wie Sie es in anderen 
Publikationen nicht finden werden. Auch auf dem Markt der 
professionellen Programme werden Sie etwas Ähnliches vergeblich 
suchen. Das Listing des Diskmonitors ist allerdings so umfang- 
reich, daß ein Abtippen sehr aufwendig wäre, zumal es fast 20 
Seiten dieses Buches in Anspruch nehmen würde. Aus diesem 
Grund ist der Diskmonitor auf einer zum Buch erscheinenden 
Diskette enthalten. 


Allgemeine Bedienungshinweise : 


Der Diskmonitor hat einen eigenen Bildschirm-Editor. Dieser läßt 
den Cursor nur in Bildschirmteile springen, die Daten enthalten. 
Verläßt man mit dem Cursor ein Datenfeld, so wird der in diesem 
Datenfeld eingetragene Wert übernommen. Mit der Returntaste 
springt der Cursor an den Anfang der nächsten Zeile. Ein Druck 
auf die ’Home’-Taste läßt den Cursor auf das erste Datenfeld 
springen. Drückt man die ’Home’-Taste zweimal, dann kommt 
man zum Kopf der Anzeige, wo die Parameter der Spur oder des 
Sektors eingegeben werden. 


Das Programm ist in verschiedene Module unterteilt, die jeweils 
Sektoren, Spuren usw. bearbeiten. Diese Module werden über ein 
Menü angewählt. Die ’Stop’-Taste bewirkt den Rücksprung zum 
übergeordneten Menü. Mit ’Stop’ und ’Restore’ versetzt man den 
Diskmonitor in den Ausgangszustand. Laufende Operationen 
werden sofort abgebrochen. 


Der Aufruf der einzelnen Befehle des Monitors erfolgt über die 
Tastatur. Zuerst muß die Control-Taste (CTRL) gedrückt werden. 
Dann ist die Anzeige CTRL in der Bildschirmzeile, in der alle 
Befehle aufgelistet sind, revers dargestellt. Nochmaliges Drücken 
der CTRL-Taste macht dies wieder rückgängig. Ist das Programm 
ım CTRL-Modus, dann werden die Funktionen des Diskmonitors 
einfach durch Tastendruck aufgerufen. 
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Allgemeine Steuerfunktionen : 


CTRL 1/2/3 : 

Mit diesen Tasten koennen Schrift-, Hintergrund- und Rahmen- 
farbe des Bildschirms nach eigenem Geschmack eingestellt 
werden. | 


CTRL >: 

Dies erlaubt die Eingabe der 1571/1541 DOS-Befehle. Diese 
Befehle werden dann vom DOS, ohne Eingriff oder Modifikation 
durch den Diskmonitor ausgefuehrt. Es ist immer wieder 
nuetzliich, um zu sehen, wie das DOS auf bestimmte 
Monitormanipulationen reagiert. Sollen Zeichen gesendet werden, 
die nicht über die Tastatur erreichbar sind, dann kann nach dem 
’»_Zeichen der ASCII-Wert des Zeichens dezimal angegeben 
werden. Nach der Dezimalzahl muß unbedingt ein Leerzeichen 
folgen. 


CTRL x: 

Dieser Befehl fuehrt einen Rechner-Reset aus und kehrt zum 
Basic zurueck. Vorher wird mit ’Are you sure’ nachgefragt, ob der 
Anwender dies auch wirklich moechte. 


CTRL +/-: 

Damit laesst sich der Kopf des Laufwerks um eine Halbspur nach 
außen oder nach innen bewegen. Dies ist bei dejustierten Lauf- 
werken oder Disketten, die auf einem derartigen Laufwerk be- 
schrieben wurden, besonders wichtig. Dieser Befehl hat eine 
- Autorepeat-Funktion, wenn die Taste laenger gedrueckt wird. Hat 
sich der Kopf auf eine unformatierte Spur ’verirrt’ und findet 
nicht zurück, kann er mit diesem Befehl ’von Hand’ gesteuert 
werden. 


CTRLO: 
Setzt den Kopf auf Spur Null zurueck. 


CTRL 8/9: 

Waehlt Laufwerk 8 oder 9 als aktives Laufwerk. Welches Lauf- 
werk ausgewaehlt ist, wird meistens in der CTRL-Zeile mit ’D:$’ 
angezeigt. 
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Wenn Sie den Diskmonitor starten, erscheint zuerst das Haupt- 
menü mit folgenden Menüpunkten : 


DIRECTORY 
BAM 
TRACK 
SECTOR 
MEMORY 
CP/M 


Der Aufruf CP/M führt zu einem ähnlichen Menü, nur daß CP/M 
Disketten bearbeitet werden. Die anderen Menüpunkte rufen das 
entsprechende Modul auf. Diese werden jetzt besprochen. 
Beginnen wir mit dem 


DIRECTORY MODUL 


Sie sehen nun folgendes Bildschirmbild (Ausschnitt) : 


CIRL:abInrstvw=>* D:8 
EELEEIZEIZ Ze [DIRECTORY] - -------------- 
NR NAME T BL TRSE 
001 test p< 023 17 01 
002 test2 s 010 19 03 


In diesem Programmteil dreht sich alles um das Directory. Nun zu 
obigem Bildschirmausschnitt. Zuerst wird die Nummer des 
Directoryeintrags angezeigt (NR). Danach folgt der Name der 
Datei. Sind im Namen Steuerzeichen enthalten, die im normalen 
Directory nicht sichtbar sind, werden diese invers dargestellt. 
" Genauso werden auch invers eingegebene Zeichen nachher in 
Steuerzeichen umgewandelt. Die Spalte ’T’ gibt den Dateityp an, 
wobei p/s/r/u/d für PRG/SEQ/REL/USR/DEL stehen. Rechts 
von der Spalte werden noch die Bits 6 und 7 der Dateitypen 
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angezeigt. Dabei ist die Bedeutung von ’°* und ’<’ mit dem 
normalen Directory identisch. 


Nun folgen die Spalten TR und SE, die für Track (Spur) und 
Sektor stehen. Es handelt sich dabei um Spur- und Sektornummer 
des ersten Datenblocks des Directory-Eintrags. Kommt man mit 
dem Cursor an den rechten Rand der Spalte SE und betätigt 
nochmal ’Cursor rechts’, dann wird auf eine weitere Anzeige um- 
geschaltet. Es erscheint folgendes Bildschirmbild (Ausschnitt) : 


NR NAME T START END 
001 test1 p $0801 $4c23 
002 test2 5 

003 test3 


Bevor diese Spalten erscheinen, läuft die Floppy an und der 
Diskmonitor liest die Sektoren aller Directoryeinträge. So wird bei 
Programmen die Start- und Endadresse ermittelt. Diese Daten 
dürfen auch geändert werden. Schreibt man das Directory wieder 
auf die Diskette zurück, dann werden auch alle geänderten 
Startadressen ın die ersten Sektoren der Programmdateien einge- 
tragen. Natürlich gibt eine Start- und Endadresse bei Dateien 
keinen Sinn. Deshalb erfolgt hier keine Angabe. 


Aber auch zu den Dateien liefert der Diskmonitor weitere Infor- 
mationen. Dazu muß man wieder mit dem Cursor über den 
rechten Rand hinausfahren. Dann erhält man untenstehende An- 
zeige. Zuerst werden Spur (TR) und Sektor (SE) des ersten Side- 
Sektorblocks genannt. Darauf die Länge eines Datensatzes (LE). 
Diese Angaben sind natürlich nur bei relativen Dateien möglich. 
In der Spalte REC ist die Zahl der ın der Datei enthaltenen 
Datensätze (Records) aufgeführt. Diese müssen immer durch 
CHR$(13) voneinander getrennt sein. Die Zahl dient nur zur 
Information und kann nicht geändert werden. Das ist nur durch 
entsprechende Dateiverwaltungsprogramme, wie sie in den 
Kapiteln 1.4 und 1.5 besprochen werden, möglich. 
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Die Bildschirmanzeige für Dateien : 


NR NAME T TR SE LE REC 
001 test1 p 

002 test2 s 01260 
003 test3 r 19 10 120 00370 


Nun die CTRL-Befehle des Directorymoduls : 


CTRL a (alphasort): 

Sortiert alle Einträge eines Bereichs oder des ganzen Directories 
alphabetisch. Der Dateityp kann dabei als Sekundärmerkmal 
beachtet werden. 


CTRL b (blanks/noblanks): 

Entfernt bei allen Einträgen des Directories Leerzeichen, die nach 
dem Dateinamen stehen, oder fuellt alle Eintraege mit Leerzeichen 
auf. 


CTRL 1 (links): 
Zeigt alle Verkettungszeiger (Links) der Datei an, in dessen Zeile 
der Cursor steht. 


CTRLn (new): 

Rettet Disketten nach ’new’. Dabei werden die Linkbytes jedes 
Sektors in den Rechner eingelesen (Dauer etwa 20 sec.). Danach 
sucht der Monitor alle Sektoren die als Link ’00° enthalten. Dies 
Sektoren stellen den letzten Sektor einer Sektorverkettung dar. Im 
weiteren werden die Sektoren, die auf diese Endsektoren zeigen 
gesucht. Auf diese Weise erstellt die Funktion aus den 
Verkettungen der Sektoren ein Directory und die BAM. 


CTRL r (read): 
Liest Directory in den Speicher ein. 
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CTRL s (sort): 

Dateieintrage werden mit dem Cursor ’angeklickt’ und dann an 
eine andere Stelle im Directory verschoben. Damit kann das 
Directory nach eigenen Wünschen sortiert werden. 


CTRL t (trace): 

Liest alle Dateieintrage, um die Zusatzinformationen der 
erweiterten Darstellung (siehe oben) zu gewinnen. Diese 
Informationen bleiben bis zum nächsten ’CTRL r’ im Rechner 
gespeichert. Alle Zusatzinformationen (ausser REC) koennen 
editiert und mit ’CTRL w’ auf Diskette geändert werden. 


CTRL v (validate): | 

Liest alle Linkbytes der Diskette ein und erstellt dann, anhand des 
Directory, eine neue BAM. Der Gesamtvorgang dauert etwa 30 
Sekunden - eine gewaltige Geschwindigkeitssteigerung gegenueber 
dem DOS-Validate (Collect). 


CTRL w (write): 

‘ Schreibt alle Daten zurück. Zuvor wird zur Sicherheit der 
Benutzer gefragt, ob er das alte Directory und die BAM wirklich 
überschreiben will. 


CTRL =: 

Fügt einen Trennstrich in das Directory eın. Der Filetyp ıst dabei 
DEL. Dies ermöglicht die übersichtliche Gestaltung des Inhalts- 
verzeichnisses. 


CTRL >: 
Setzt oder löscht Bit 6 ım Dateitypbyte. Bit 6 kennzeichnet die 
Datei, daß sie nicht mehr gelöscht oder umbenannt werden kann. 


CTRL*: 
Setzt oder löscht Bit 7 im Dateitypbyte. Durch Bit 7 wird die 
Datei als ordnungsmässig geschlossen und lesbar oder als unlesbar 
markiert. 


DEL / INST: 
Eintrag löschen oder Leereintrag einfügen. 
TRACK MODUL 


SEID: oo ehe denn mn ns ie an Ze IZISPFONIS. 


Dieses Modul verarbeitet gesamte Spuren (Tracks). Dabei werden 
alle Bytes und Informationen, selbst die Sync-Markierungen, an- 
gezeigt. Die Daten werden immer ab dem Beginn des Indexlochs 
gelesen. Da die Spuren unterschiedliche Längen haben, wird das 
Einlesen einfach bis zum Indexloch durchgeführt. Die Darstellung 
der Spur kann in GCR-Code oder in Binär erfolgen. Wird die 
Binärdarstellung gewählt, dann sind alle Sync-Bytes durch ’SS’ 
ersetzt. Wird statt eines Binärwerts an irgendeine Stelle ’SS’ ge- 
schrieben, dann erzeugt der Diskmonitor beim Zurückschreiben 
der Spur an dieser Stelle eine Sync-Markierung. Neben der Hexa- 
dezimal-Darstellung sind auch die den Byte-Werten 
entsprechenden ASCII-Zeichen angegeben. 


Nun die Bildschirmmaske des Track-Moduls: 


CIRL:rwnifscel D:8 
ERFEIRSE SER [TRACK] 3a 95er 
GER : O TRACK : 01 SIDE : O 

0000 40 41 42 43 00 00 00 00 dabc.... 
0008 00 00 00 00 31 39 38 35 ....1985 
0010 00 00 00 SS SS SS SS 08 „nu... 
0018 12 04 01 41 42 OF OF 00 ...ab... 
0020 00 00 00.00 00 00 00 SS .uuunun 
0028 SS SS SS 07 01 02 03 04 .„..unn.. 


Das Datenbyte in der linken oberen Ecke wird mit ’Home’ er- 
reicht. Betätigt man die ’Home’-Taste zweimal, dann fährt der 
Cursor auf die Track-Angabe. Nochmaliges Betätigen von ’Home’, 
also insgesamt dreimal, setzt den Cursor auf die Angabe ’GCR’- 
Modus. Eine 0 bedeutet, daß die Bytes der Spur als Binärwerte 
angezeigt werden. Die Ziffer 1 schaltet hierbei auf die GCR-Dar- 
stellung. 


Befehle des Trackmoduls : 
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CTRL r (read): Liest die Spur in den Rechner ein. 
CTRL w (read): Schreibt die Spur auf die Diskette zurück. 


 CTRLn (new): 

Formatiert eine Spur neu. Damit können Disketten in Mischfor- 
maten (Commodore + CP/M) hergestellt werden. Es müßen unbe- 
dingt zwei ID Zeichen angegeben werden. Diese werden in die 
Sektorheader geschrieben und sollten auf der ganzen Diskette 
identisch sein. Ansonsten erfolgt ein ’Disk ID Mismatch’ Fehler. 


CTRL i (id-change): 

Die ID einer Diskette ist nicht, wie immer noch gemeint wird, in 
Sektor 18/01 gespeichert. Diese ID-Zeichen dienen nur nur zur 
Anzeige im Directory. Das DOS orientiert sich an der ID, die in 
jedem Sektorheader gespeichert ist. Diese Funktion ändert die ID- 
Zeichen in jedem Sektorheader der Diskette oder eines Disketten- 
Bereichs. 


CTRL £ (fill): 

Beschreibt die gesamten Spur oder einen Teil der Spur mit einem 
beliebigen Wert. Damit können zum Beispiel sogenannte Killer- 
tracks gelöscht oder hergestellt werden (Kopierschutz). 


CTRL s (sectors): 
Sektoren einer Spur oder eines Spurbereichs mit einem Wert 
füllen. 


CTRL c (copy): 
Kopiert einen Teil der Spur an eine andere Stelle auf der Spur. 


CTRL 1 (location): 

Damit kann man den physikalischen Beginn der Spur festlegen. 
Der Cursor muß auf dem Byte stehen, das nach dem Indexloch 
geschrieben werden soll. 
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SEKTOR MODUL 


Vorweg eine besondere Eigenschaft, die das Sektormodul 
gegenueber anderen Diskmonitoren hat. Es gibt für den Monitor 
keine Lesefehler, außer er findet die Sync-Markierung und damit 
den Sektor nicht (dabei hilft eventuell das Trackmodul). Der 
Grund dafür liegt darin, daß alle Informationen eines Sektors an- 
gezeigt werden - auch die Prüfsummen usw. 


CRL:rwsfhetznp#$"! D:8 
-...... [SECTOR] ---------- ---- + -- 
DS: O0 TR: 24 SE: 10 POS: 000 

HE: 008 CKS: 021 TR: 24 SE: 10 ID: ab 
BL: 007 CKS: 122 

00 40 41 42 43 00 00 00 00 Aakc.... 

08 00 00 00 00 31 39 38 35 ....1985 

10 00 00 00 00 00 00 00 00 ........ 


HE: 008 CKS: 021 TR: 24 SE: 10 ID: ab 
BL: 007 CKS: 122 

024 123 231 233 133 123 123 222 312 
032 123 231 233 133 123 123 222 312 
040 123 231 233 133 123 123 222 312 


Die Darstellung des Sektorinhalts kann dezimal oder hexadezimal 
erfolgen. Ist die hexadezimale Anzeige ausgewählt, dann werden 
alle Bytes zusätzlich im ASCII-Code wiedergegeben. Anstatt der 
ASCII-Anzeige kann die Anzeige auch im Bildschirmcode 
erfolgen. Nicht druckbare Zeichen (Steuerzeichen) sind durch 
einen Punkt ersetzt. 
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Die einzelnen Angaben der Headeranzeige haben folgende 
Bedeutung : 


DS: 

Diese Ziffer gibt die Aufzeichnungsrate der Spur an. Die Zahlen 
1,2,3 und 4 stehen dabei für 31250,33333,35714 und 38461 Bytes 
pro Sekunde. Diese Rate ist auf den äußeren Spuren größer als 
auf den Inneren, da diese länger sind (größerer Umfang). 


TR/SE : 

Nummer der ausgewählten Spur (Track) und des Sektors. Die Ein- 
gabe eines Wertes in der Zeile mit POS wählt einen Sektor aus. 
Dabei kann es sich entweder um die Nummer aus dem 
Sektorheader handeln oder die Angabe gibt an der wievielste 
Sektor nach dem Indexloch gelesen werden soll. Die Angabe in 
der darunter liegenden Zeile gibt die im Sektorheader BESDSIEHET- | 
ten Werte wieder. 


HE: Zeigt Kennzeichen für Header an (normal 8). 
BL: Zeigt Kennzeichen für Datenblock an (normal 7). 


CKS: Gibt den Wert der Prüfsumme des Sektorheaders und des 
Datenblocks an. 


ID: Hier werden die zwei ID-Zeichen, die im Sektorheader ver- 
merkt sind aufgeführt. 


POS: Bezeichnet die Stelle im Datenblock, an der der Cursor steht. 


Die Handhabung der Byterate (DS) ist etwas kompliziert. Wird 
eine Spur und ein Sektor angegeben und dieser gelesen (CTRL r), 
dann wird die auf dieser Spur normalerweise verwendete Byterate 
gebraucht. Die DS (Density) Auswahl erreicht man durch 
dreimaliges Drücken der ’Home’-Taste. Wenn man den gleichen 
Sektor nochmal liest, geschieht dies mit der neuen Byterate. Man 
muß also beachten, daß jedesmal, wenn die Spur- oder Sektor- 
nummer geändert wird, automatisch die Byterate feststeht. Soll 
sofort mit einer anderen Byterate gearbeitet werden, muß man 
. eben den DS-Parameter ändern - aber immer erst nach Spur- und 
Sektoreingabe. 


196 1571-Praxis 


Befehle des Sektormoduls : 
CTRL r (read): Sektor in den Rechner einlesen. 
CTRL w (write): Schreibt Sektor auf die Diskette zurück. 


CTRL s (sum): | 
Berechnet Prüfsumme des Sektorheaders und des Datenblocks. 


CTRL £ (fill): 
Füllt einen Sektor oder einen Teilsektor mit einem Wert. 


CTRL h (hire): 
Sucht einen Wert oder String in einem Sektor oder einem Diskbe- 
reich. 


CTRL c (copy): 
Kopiert einen Sektor oder einen Teilsektor in einen anderen Sek- 
tor oder einen anderen Sektorteil. 


CTRL t (trace): 

Liest die Verkettungsbytes jedes Sektors ın den Rechner ein 
(Dauer ca. 15 Sekunden). Mit den Befehlen ’CTRL n’ und ’CTRL 
p’ lässt sich der nächste oder der vorangehende Sektor der Ver- 
kettungsliste aufrufen. 


CTRL z (zero): 
Sucht nächsten Sektor, dessen Inhalt nicht Null ist, d.h. den 
nächsten Sektor, der Informationen enthält. 


CTRL #: Schaltet die Ausgabe auf dezimal. 

CTRL $ : Schaltet die Anzeige auf hexadezimal. 

CTRL': 

Waehlt bei hexadezimalem Ausgabemodus die ASCII-Darstellung 


aus. Ä 


CTRL’°: 
Wählt statt ASCII-Zeichen Bildschirmcode an. 
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Nun handelt es sich um die BAM, die Blockbelegungstabelle der 
Diskette. Hier das Bildsschirmbild : 


BLOCKS FREE: 0496 DISK TYPE: 1541 


1: Seren 21 0 
DE u re 18 1 
03 rer 0 3 


Die Sektoren jeder Spur sind in jeweils einer Zeile aufgeführt. 
Ein Stern bedeutet dabei, daß der Sektor belegt ist. Der Punkt 
steht für einen unbelegten Sektor. Ist ein Sektor mit ’s’ markiert, 
dann signalsiert das, daß dieser Sektor frei ist, aber Daten enthält. 
Es handelt sich vermutlich um einen gelöschten Sektor. Die letzten 
beiden Spalten geben die Anzahl der freien Sektoren der Spur und 
die Zahl der gelöschten Sektoren an. Soll ein Sektor in der BAM 
belegt oder freigegeben werden, genügt es an die entsprechende 
Stelle einen ’* oder einen ’. zu setzen. Nun noch die übrigen 
Befehle : 


CTRL r (read): Liest BAM in den Rechner ein. 
CTRL w (write): Schreibt BAM auf Diskette. 


CTRL t (track): 
_ Belegt oder gibt gesamte Spur frei, auf der Cursor steht. 


CTRLa (all): Belegt oder gibt gesamte Diskette frei. 


CTRL s (scratched): 
Analysiert alle Spuren nach gelöschten Sektoren. 
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MEMORY MODUL 


Das Memory Modul erlaubt den direkten Eingriff ins Disk-CPU- 
System. So können Programme im DOS-Puffer geschrieben 
werden. Weiter können Sie die Zeropage oder die I/O-Adressen 
ansprechen. Damit haben Sıe völlige Gewalt über die Floppy. Aus 
diesen Möglichkeiten entsteht natürlich auch ein gewisser 
Anspruch an das Wissen des Benützers. Daher wendet sich diese 
Funktionsgruppe hauptsächlich an die Maschinensprache-Pro- 
grammierer. 


CTRL:sIifhrg D:8 
a a Zn SS [MEMORY] >= == ++ 
LOC: $c100 

c100 78 sei 

c101 a9 f7 Ida #%f7 

c103 2d 00 1c and $1c00 

c106 48 pha 

c107 a5 Tf Ida $7f 

c109 fO 05 beq $c110 

c10b 68 pla 

c10c 09 00 ora #$00 

c10e dO 03 bne $c113 

c110 68 pla 

c111 09 08 ora #508 

c113 8d 00 ic sta $1c00 

c116 58 cli 

c117 60 rts 

c118 78 sei 

c119 a9 08 Ida #$08 


In das Feld LOC kann man eine beliebige Speicheradresse 
eintragen. Ab dieser Stelle wird dann der Speicher angezeigt. 
Auch hier wird wieder das Scroll-Prinzip angewandt. Stößt man 
mit dem Cursor an den oberen oder unteren Rand, dann wird 
einfach in die entsprechede Richtung weitergelistet. Die 
Darstellung des Speichers orientiert sich dabei an der 6502- 
Assembler-Schreibweise. Der Diskmonitor versucht den Speicher- 
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inhalt als Opcode zu interpretieren und gibt die Speicherstellen 
entsprechend aus. Darüberhinaus werden die Speicherinhalte noch 
eine hexadezimal und als ASCII-Zeichen angezeigt. Jede dieser 
Ausgabeversionen kann editiert werden. Danach werden die ent- 
sprechenden anderen Ausgaben automatisch korregiert. 

BEFEHLE des Memory Moduls : 


CTRL s (save): 

Speichert einen beliebigen Disk-CPU-Speicherbereich als Auto- 
start-Datei auf der Diskette ab. Dies vereinfacht das Erstellen von 
DOS-Programmen erheblich. 


CTRL 1 (load): 
Lädt Autostart-Datei in den DOS-Speicher ohne diese zu starten. 


CTRL £ (fill): 
Füllt einen Speicherbereich mit einem bestimmten Wert. 


CTRL h (hire): 
Sucht in einem Speicherbereich einen Wert oder einen String. 


. CTRL t (transfer): 
Kopiert den Inhalt eines Speicherbereichs in einen beliebigen 
anderen Bereich. 


CTRL g (go): 
Startet Maschinenspracheprogramm im DOS-Speicher. 
CP/M TRACK MODUL 
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enanennenennn [TRACK] ------- +... -- 

TRACK : 01 SIDE : O 
0000 40 41 42 43 00 00 00 00 Aabc.... 
0008 00 00 00 00 31 39 38 35 ....1985 
0010 00 00 00 SS SS SS SS OB anne. 
0018 12 04 01 41 42 OF OF 00 ...ab... 
0020 00 00 00 00 00 00 00 85 .nnnen 
0028 SS SS SS 07 01 0203 06 zenenen 


Das Datenbyte in der linken oberen Ecke wird mit ’Home’ er- 
reicht. Betätigt man zweimal die ’Home’-Taste, dann gelangt der 
Cursor auf der Track-Angabe. 


Die Byte-Werte $F5, $F6 und $F7 erzeugen beim Schreiben der 
Spur Bytes mit speziellen Taktbytes. Enthalten die Sektoren einer 
Spur Daten, die diesen speziellen Byte-Werten entsprechen, 
werden an deren Stelle Markierungen für die ’Index Mark’ usw. 
geschrieben. In diesem Fall entspricht die geschriebene Spur nicht 
. mehr der eingelesenen. Das Schreiben von Spuren unter CP/M ist 
also immer mit Vorsicht durchzuführen. 


Befehle des Trackmoduls»: 


CTRL r (read): Liest die Spur in den Rechner ein. 
CTRL w (read): Schreibt die Spur auf die Diskette zurück. 
CTRLn (new): 


Formatiert eine Spur neu. Die dazu nötigen Angaben, wie Sektor- 
zahl, Sektorgröße usw. werden vom Diskmonitor erfragt. 
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CTRL £ (fill): 

Beschreibt die gesamten Spur oder einen Teil der Spur mit einem 
Wert. Damit können zum Beispiel sogenannte Killertracks gelöscht 
oder hergestellt werden (Kopierschutz). 


CTRL s (sectors): 
Sektoren einer Spur oder eines Spurbereichs mit einem Wert 
füllen. 


CTRL c (copy): 
Kopiert einen Teil einer Spur an eine andere Stelle auf der Spur. 


CTRL | (location): 
‘ Damit kann man den Beginn der Spur festslegen. Der Cursor muß 
dabei auf dem Byte stehen, das nach dem Indexloch liegen soll. 


CP/M SEKTOR MODUL 


anannenennennn [SECTOR] +++. -- 
TR: 24 SE: 10 POS: 000 


HE: 008 CKS: 021 TR: 24 SE: 10 ID: ab 
BL: 007 CKS: 122 


00 40 41 42 43 00 00 00 00 Aabc.... 
08 00 00 00 00 31 39 38 35 ....1985 
 BBS5 BB BEBES EB »:46.r 


Befehle des CP/M Sektormoduls : 
CTRL r (read): Sektor in den Rechner einlesen. 
CTRL w (write): Schreibt Sektor auf die Diskette zurück. 


CTRL £f (fill): 
Füllt einen Sektor oder einen Teilsektor mit einem Wert. 
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CTRL h (hire): 
Sucht einen Wert oder String ın einem Sektor oder einem Diskbe- 
reich. 


CTRL c (copy): 

Kopiert einen Sektor oder einen Teilsektor in einen anderen 
Sektor oder einen anderen Sektorteil. 

CTRL z (zero): 

Sucht naechsten Sektor, dessen Inhalt nicht $E5 ist, das bedeutet 
den nächsten Sektor, der Informationen enthält. 

CTRL # : Schaltet die Ausgabe auf dezimal. 

CTRL $ : Schaltet die Anzeige auf hexadezimal. 


CTRL " = Wählt die ASCII-Darstellung im Hexmodus. 


CTRL '! : Wählt statt ASCII-Zeichen Bildschirmcode an. 
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6.2 Der C-64 und die C-1570/71 - kein Problem 
6.2.1 1570/71 Bus für den C-64 selbstgebastelt. 


Sicherlich sind Sıe als C-64 auf all die C-128 neidisch, weil diese 
die C-1570/71 mit dem schnellen Busmodus nützen können, der 
beim C-64 nicht vorhanden ist. Wenn es sich lediglich um ein 
Softwareproblem handeln würde, wäre es keine Schwierigkeit das 
System zu implementieren. Doch der neue Bus benötigt auch noch 
einige zusätzliche Hardware-Einrichtungen. 


DbaTn 


"COMPUTER 
SOR “ 


USERPORT 


Der Clou ist allerdings, daß die Voraussetzungen für den schnellen 
Busmodus bereits im C-64 vorhanden sind. Das ist ein serielles 
Ein-/Ausgaberegister und die dazugehörige Taktleitung. Diese 
beiden Anschlüsse sind am User-Port des C-64 herausgeführt. 
Dabei sınd diese Datenleitungen sowohl für CIAI als auch CIA2 
vorhanden. 


Es ıst am Besten, den seriellen Port des CIAl, das die Basisadresse 
$DC00 hat, zu verwenden. Somit ist die Ansteuerung des seriellen 
Registers genauso vorzunehmen wie beim C-128. Um nun die 
selbe Hardware, wie am C-128, zu erhalten, muß man nur die 
zwei Leitungen SRQ und Data mit den Pins 4 und 5 des User- 
Ports zu verbinden. Schon haben Sie einen seriellen Bus, der den 
C-128.Schnellmodus bedienen kann - eine Bastellösung für ein 
paar Mark. 1 
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6.2.2 Der Diskmonitor für den C-64 


Der Diskmonitor aus Kapitel 6.1.1 kann auch in Zusammenhang 
mit dem C-64 benützt werden. Die einzige Einschränkung ist, daß 
die Spur-Schreiboperationen nicht funktionieren, da der C-64 
dazu mit 2MHz Taktfrequenz betrieben werden müßte. 


Alle anderen Funktionen des Diskmonitors stehen Ihnen auch mit 
einem C-64 und der C-1570/71 zur Verfügung, wenn Sie den ım 
vorherigen Kapitel erläuterten Bus zusammenbasteln. 


Die Diskette zum Buch enthält bereits eine fertig an den C-64 an- 
gepaßte Version des Diskmonitors. 


6.2.3 Neues Turbo-Betriebssystem für den C-64 


Das nachfolgende Programm ist eine Schnell-Lade-Routine, mit 
der Mit dem C-64 Programme genauso schnell geladen werden, 
wie mit dem C-128. Dabei ist dieses Programm in das 
Betriebssystem des C-64 eingebaut, wobei die Kassettenroutinen 
überschrieben werden und somit nicht mehr benutzt werden 
können. Das disassemlierte Listing zeigt die Funktion des Bus. 
Dabei muß Das Flag für den schnellen Busmodus in $033C gesetzt 
werden. Dies kann "von Hand" geschehen, wenn Sie immer eine 
C-1570/71 angeschlossen haben. Ist allerdings auch noch eine 
1541-Floppy vorhanden, dann muß dieses Flag durch ein Pro- 
gramm gesetzt werden, das feststellt, ob das angesprochene Lauf- 
werk im Schnellmodus laden kann. Einen derartigen Programmteil 
enthält beipielsweise das C-128 Kernal an der Stelle $E387. 


Der Basic-Loader des Programms erstellt nach dem Start mit ’Run’ 
eine spezielle Betriebssystem-Version im RAM des C-64, das die 
Fast-Load-Funktion enthält. Dafür ist der Kassettebetrieb abge- 
schalten. 
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Fast Load für C-64 (Kernal-Routine) 


F72C 85 93 STA $93 Load-/Verify-Flag setzen 

F7r2E A9 00 LDA #00 Statusbyte 

F730 85 90 STA $90 Löschen 

F732 A5 BA LDA $BA Geräteadresse holen und auf 
F734 C9 04 CMP #804 1EC-Bus Adresse testen 

F736 BO 03  BCS $F73B ist IEC-Gerät angesprochen? 
F738 4CA7 F4  JMP $F4A7 nein, zurück zum normalen Load 


Fast-Load vorbereiten 


F73B A4 B7 LDY $B7 Länge des Dateinamens holen 

F73D B1 BB LDA ($BB),Y Zeichen aus Dateinamen holen 
F73F C9Y 24 CMP #824 mit '$! vergleichen 

F741 FO 05 BEQ $F748 soll Directory geladen werden? 
F743 88 DEY nein, nächstes Zeichen anwählen 
F744 10 F7 BPL $F73D schon ganzer Name überprüft? 
F746 30 03 BMI $F74B ja, immer Sprung nach $F74B 

F748 4C BB FA JUMP $F4B8 zurück zur normalen Load-Routine 
F74B A4 B7 LDY $B7 Länge des Dateinamens holen 

F74D DO 03 BNE $F752 ist Name angegeben? 

F7T4F 4C 10 F7__JMP $F710 nein, 'Missing Filename!' ausgeben 
F752 A5 BA LDA $BA Geräteadresse holen 

F754 20 0C ED JSR $EDOC und LISTEN senden 

F757 A9 6F LDA #$6F Sekundäradresse für Befehlskanal 
F759 20 BY ED JSR $EDBY Sekundäradresse senden 

F’SC A5 90 LDA $90 Busstatus holen 

F7SE 10 06 BPL $F766 ist Floppy angeschlossen? 

F760 20 2A F8 JSR $FB2A nein, Kanal wieder schließen 
F763 4C 07 F7__JMP $F707 ıDevice Not Present! ausgeben 
F766 AO 05 LDY #$05 Länge des Befehls für 1571-Modus 
F768 B9 TE F8 LDA $FB7E,Y Zeichen aus Befehls-String holen 
F76EB 20 DD ED JSR $EDDD auf IEC-Bus ausgeben 

F76E 88 DEY nächstes Zeichen anwählen 

F76F DO F7 BNE $F768 schon ganzer Befehl übertragen? 
F771 20 54 F6 JSR $F654 ja, UNLISTEN senden | 
F774 AS BA LDA $BA Geräteadresse der Floppy holen 
F77& 20 OC ED JSR $EDOC und LISTEN senden 

F779 A9 6F LDA #%6F Sekundäradresse für Befehlskanal 
F77B 20 B9 ED JSR $EDBY Sekundäradresse an Floppy senden 


F’T’TE AO 03 LDY #03 Länge des Fast-Load Befehls 


BY 
20 
88 
DO 
B1 
20 
c8 
C4 
DO 
20 


TB F8 
DD ED 


F7 
BB 
DD ED 


B7 
F6 
54 F6 


LDA 
JSR 
DEY 
BNE 
LDA 
JSR 
INY 
CPY 
BNE 
JSR 


$F87B,Y 
$EDDD 


$F780 
($BB),Y 
$EDDD 
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Zeichen aus Befehls-String holen 
und auf IEC-Bus ausgeben 

Zeiger auf nächstes Zeichen richten 
schon ganzer Befehl gesendet? 

ja, Zeichen aus Dateiname holen 
und auf IEC-Bus ausgeben 

Zeiger auf nächstes Zeichen setzen 
auf Länge des Dateinamens prüfen 
schon ganzer Name übertragen? 

ja, UNLISTEN senden 

Flag für !Fast-Bus Modus! testen 
ist Fast-Bus möglich? 

nein, Kanal schließen 

Programm normal laden 


Fast-Load 


78 
20 
A9 
8D 


85 EE 
88 
0D DC 
DE DC 
80 


0E DC 
0D DC 
68 FB 
71 F8 


2A FB 
04 F7 


68 F8 
71 F8 


E4 F7 


Routine 


SEI 
JSR 
LDA 
STA 
LDA 
AND 
ORA 
STA 
BIT 
JSR 
JSR 
CMP 
BNE 
JSR 
JMP 
PHA 
CMP 
BNE 
JSR 
JSR 
TAX 
NOP 
JMP 
CMP 
BCC 


$EE85 
#388 

$DCOD 
$DCOE 
#80 

#808 

$DCOE 
$DCOD 
$F868 
$F871 
#802 

$F7C7 
$FB2A 
$F704 


#S1F 

$F7D7 
$F868 
$F871 


$F7E4A 
#02 
$F7E4 


Interruptroutine abschalten 
Clock-Ausgang auf High setzen 
Flag für 'serielles Register voll! 
initialisieren 

Kontrollregister holen 
Taktfrequenz für Echtzeituhr holen 
Timer für Baudrate 

initialisieren 

Flag für 'SP voll! zurücksetzen 
Clock-Ausgang umschalten 

Byte von 1571-Bus holen 

auf Code für 'File Not Found! prüfen 
identisch? 

ja, Kanal schließen 

ıFile Not Found! ausgeben 
Status-Code merken 

mit 'letzter Block! vergleichen 
hat Datei nur einen Block? 

ja, Clock-Ausgang umschalten 

Byte vom 1571-Bus holen 

Zahl der Datenbytes merken 

2 Taktzyklen Verzögerung 

Block laden 

Rückmeldung der Floppy prüfen 

ist ein Fehler aufgetreten? 
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F7DB 
F7DC 
F7DF 
F7EI 
F7E4 
F7E7 
F7EA 
F7EC 
F7EF 
F7F2 
F7F& 
F7F6 
F7F8 
F7FA 
FTFC 
F7FE 
F800 
F801 
F803 
F805 
F807 
F8OA 
F80D 
F8OF 
F811 
F813 
F815 
F817 
F819 
F81B 
F8IE 
F821 
F822 
F825 
F827 
F&ZA 
. F82D 
F82F 


F832 


F835 
F837 


68 

20 2A 
AO 00 
4C 2B 
20 68 
20 71 
85 AE 
20 68 
20 71 
85 AF 
A5 B9 
DO 08 


F8 
Fi 
F8 
F8 


F8 
F8 


F& 
F8 


F8 
F8 


F8 


FE 
EE 


DC 
DC 


PLA 
JSR 
LDY 
JMP 
JSR 
JSR 
STA 
JSR 
JSR 
STA 
LDA 
BNE 
LDA 
STA 
LDA 
STA 
PLA 
CMP 
BEQ 
LDX 
JSR 
JSR 
CMP 
BCC 
CMP 
BEQ 
BNE 
LDX 
BNE 
JSR 
JSR 
TAX 
JSR 
LDA 
JSR 
JSR 
LDA 
STA 
LDA 
AND 
DRA 
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Ja, Stack wieder herstellen 
$FE2A Kanal schließen 
#00 Nummer für '1/O Error"! 
$F12B Fehlermeldung ausgeben 
$F868 Clock-Ausgang umschalten 
$F871 Byte von 1571-Bus holen 
$AE Low-Byte der Startadresse setzen 
$F868 Clock-Ausgang umschalten 
$F871 Byte von 1571-Bus holen 
$SAF High-Byte der Startadresse setzen 
$59 Sekundärangabe holen 
$F800 Programm relativ laden? 
$C3 ja, Low-Byte des Basic-Speicher- 
$AE Beginns übernehmen 
$C4 High-Byte des Speicherbeginns 
$AF setzen 
letzte Floppy-Rückmeldung holen 
AS1F auf "letzter Sektor' prüfen 
$F822 war das der letzte Block? 
#SFC Zahl der Datenbytes setzen 
$F845 Block laden 
$F871 Byte von 1571-Bus holen 
#502 Rückmeldung der Floppy prüfen 
$F817 ist Fehler aufgetreten? 
#S1F nein, auf 'letzter Block' prüfen 
$F81B folgt nun letzter Block? 
$F7DC nein, immer Sprung nach $F7DC 
#SFE Zahl der Datenbytes setzen 
$F807 immer Sprung nach $F807 
$F868 Clock-Ausgang umschalten 
$F871 Byte von 1571-Bus holen 
und als Anzahl der Datenbytes setzen 
$F845 Block laden 
#540 Wert für 'EOF'! 
$FEIC Flag in Statusbyte setzen 
$EE85 Clock-Ausgang auf High schalten 
#581 Interruptregister wieder 
$DCOD einrichten 
$DCOE Steuerregister holen 
#580 Frequenz der Echtzeituhr holen 
#811 Timer für Interrupt 


0E DC 


A9 F5 


68 F8 


00 DD 
OC DC 


STA $DCOE 
CLI 

LDA $B8 
JSR $F654 
JMP $F5A9 
JSR $F868 
LDY #800 
LDA #808 
BIT $DCOD 
BEQ $F84C 
LDA $DDOO 
EOR #810 


: STA $DDOO 


LDA $DCOC 


STA ($AE),Y 


INC $AE 
BNE $F864 
INC $AF 
DEX 

BNE $F84A 
RTS 
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setzen 

Interrupt wieder einschalten 
Logische Kanalnummer 

Kanal schließen 

Load beenden 

Clock-Ausgang umschalten 

Zeiger löschen 

Flag für 'SP voll! auswählen 

Flag testen 

ist serielles Register voll? 

ja, Bussteuerregister holen 

und Clock-Ausgang 

umschalten 

Wert aus seriellem Register holen 
und in Speicher schreiben 

Zeiger auf nächste Speicheradresse 
ist ein Übertrag entstanden? 

ja, High-Byte korregieren 

Zahl der Datenbytes 

schon ganzer Block übertragen 

ja, zurück zur aufrufenden Routine 


Signal am Clock-Ausgang umschalten 


F868 


= ma an 0 5 u m 5 5 5 m m a m a m a m m m a a m m m ma mn rn a m m a a 5 m mn m nn m a m m nn a a 5 a m m nn a a mn m m nn nm 


AD 


00 DD 


00 DD 


LDA $DDOO 
EOR #$10 

STA $DDOO 
RTS 


vom 1571-Bus holen 


AD 
29 
FO 
AD 
60 


0D DC 
08 
F9 
0C DC 


LDA $DCOD 
AND #08 
BEQ $F871 
LDA $DCOC 
RTS 


Bussteuerregister holen 

und Clock-Ausgang 

umschalten 

zurück zur aufrufenden Routine 


Interruptregister holen 

und Flag für 'SP voll! testen 
ist Byte übertragen? 

ja, Byte von Bus lesen 

zurück zur aufrufenden Routine 
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Basic-Loader des Fast-Loads für C-64: 
C-64 Fast-Load Loader 


0800 00 0B 08 00 00 9E 32 30 36 31 00 00 00 78 A2 AO: 
0810 86 AF AO 00 84 AE Bi AE 91 AE C8 DO F9 EB 86 AF 
0820 EO CO DO F2 A2 EO 86 AF B1 AE 91 AE C8 DO F9 EB 
0830 86 AF DO F4 A9 08 8D 87 F3 A9 F7 8D B7 F4 8D FB 
0840 F5 A9 7B 8D 5C 08 A9 08 8D 5D 08 A2 F7 8E 4D FD 
0850 8E 60 08 A9 2C 8D 4C FD 8D 5F 08 B9 00 00 99 00 
0860 00 C8 DO F7 EE 5D 08 E8 8E 60 08 EO F9 DO EC A9 
0870 05 85 01 8D D6 FD 20 15 FD 58 60 85 93 A9 00 85 
0880 90 A5 BA C9 04 BO 03 4C A7 F4 A4 B7 Bi BB C9 24 
0890 FO 05 88 10 F7 30 03 4C B8 F4 A4 B7 DO 03 4c 10 
08AO F7 A5 BA 20 OC ED A9 6F 20 B9 ED A5 90 10 06 20 
0880 2A F8 4C 07 F7 AO 05 B9 TE F& 20 DD ED 88 DO-F7 
08C0 20 54 F6 A5 BA 20 0C ED A9 6F 20 B9 ED AO 03 B9 
0800 7B F& 20 DD ED 88 DO F7 B1 BB 20 DD ED C8 C4 B7 
08E0 DO F6 20 54 F6 2C 3C 03 10 06 20 2A F&8 ACA7 F& 
08F0 78 20 85 EE A9 88 8D OD DC AD OE DC 29 80 09 08 
0900 8D OE DC 2C OD DC 20 68 F& 20 71 F8 C9 02 DO 06 
0910 20 2A F& 4C 04 F7 48 C9 IF DO OB 20 68 F8 20 71 
0920 F8 85 A5 4C E4 F7 C9 02 90 09 68 20 2A F8 AO 00 
0930 4C 2B Fi 20 68 F8 20 71 F8 85 AE 20 68 FB 20 71 
0940 F& 85 AF A5 B9 DO 08 A5 C3 85 AE A5 C4 85 AF 68 
0950 C9 IF FO 1D A2 FC 20 45 F8 20 71 F8 C9 02 90 06 
0960 C9 IF FO 06 DO C5 A2 FE DO EC 20 68 F& 20 71 FB 
0970 AA 20 45 F8 A9 40 20 IC FE 20 85 EE A9 81 8D OD 
0980 DC AD OE DC 29 80 09 11 8D OE DC 58 A5 BB 20 54 
0990 F6 4C A9 F5 20 68 F8 AO 00 A9 08 2C OD DC FO FB 
O9AO AD 00 DD 49 10 8D 00 DD AD OC DC 91 AE E6 AE DO 
09B0 02 E6 AF CA DO E3 60 AD 00 DD 49 10 8D 00 DD 60 
09CO AD OD DC 29 08 FO F9 AD OC DC 60 9F 30 55 31 4D 
0900 9E 30 55 00 00 00 00 00 00 00 00 00 00 00 00 00 
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KAPITEL 7 
DAS DISK-OPERATING-SYSTEM (DOS) 


212 Die DOS-Routinen 


7.1 Die DOS-Routinen 
7.1.1 Das DOS - eine Einführung 


Zuerst ein wenig Geschichte. Der Großvater des C-1570/71-DOS 
war das Betriebssytem der CBM 4040 Floppy. Diese Floppy war 
eine Doppelstation mit zwei Laufwerken. Dazu hatte die CBM 
4040 eine Mikrocomputersteuerung mit zwei Prozessoren. Der eine 
Prozessor war für die Verwaltung der Daten und der andere für 
die Steuerung der Laufwerke zuständig. Diese Arbeitsteilung sollte 
das System schneller machen. 


Als der VC-20, der erste Homecomputer von COMMODORE, auf 
den Markt kam, mußte dieser natürlich eine Floppy im Zube- 
 hörangebot haben. Das Entwicklung eines vollig neuen Systems 
wäre aufwendig gewesen und wozu soll man das Rad zweimal er- 
finden, wenn man bereits eine lauffähige Floppystation, die CBM 
4040, zur Verfügung hat. Kurzum wurde eine Steuerelektronik mit 
einem Prozessor für ein Einzellaufwerk entwickelt. Die Software 
des 4040-Laufwerks, das DOS, wurde nur modifiziert. Die Ver- 
waltungsroutinen sind die selben wie bei der CBM 4040. Nur den 
zweiten Prozessor für die Laufwerkssteuerung gab es beim neuen 
Einzellaufwerk nicht mehr. Also mußte der Prozessor des VC- 
1540-Laufwerks zusätzlich noch die Aufgaben des 
Steuerprozessors übernehmen. Das die VC-1540 dadurch nicht 
schneller wird braucht nicht erwähnt zu werden. Ein weiterer 
wichtiger Aspekt ist die Tatsache, daß die Verwaltung des Ein- 
zellaufwerks für ein Doppellaufwerk entworfen wurde. 


Das DOS der VC-1541 ist mit dem der VC-1540 fast identisch. 
Hier wurden jediglich die Busroutinen geändert, da der C-64 eine 
etwas kleinere Taktfrequenz hat wie der VC-20 und deshalb die 
Bussteuerrung etwas langsamer abläuft. 


Das C-1570/71 DOS besteht aus 16KByte-ROM der VC-1541 und 
weiteren 12 KByte neuen Betriebsystemteilen. Wieder hat die 
Faulheit gesiegt und COMMODORE hat einfach eine bereitsvor- 
handene DOS-Version etwas erweitert und zurechtgebogen. Das 
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dadurch die Leistungsfähigkeit der Floppy nicht gesteigert wird 
ist einsichtig. 


Daüberhinaus ist mit dem C-1570/71-DOS V3.0 das Chaos per- 
fekt. Dieses DOS enthält einen Verwaltungsteil, der für zwei 
Laufwerke und ein Multiprozessorsystem ausgelegt ist. Dazu 
kommt eine Laufwerksverwaltung, die für auch für 
Multiprozessor-Betrieb geeignet ist, allerdings nur ein Laufwerk 
ansteuern kann. 


Dieser Teil des 1541-ROMs wurde komplett in das C-1570/71- 
ROM übernommen. Jediglich einige Routinen wurden etwas mo- 
difiiziert. Dabei wurden einfach neue Programmteile, die die 
zweite Diskettenseite verwalten usw. eingebaut. Dazu kommt eine 
neue Laufwerks-Controller-Routine, auch Jobschleife genannt. 
Zusätzlich zum VC-1541-ROM werden noch eine Reihe neuer 
Funktionen implementiert, die vorallem die Steuerung des Con- 
trollers WD 1770 übernehmen. 


Summa summarum besteht das 1570/71 DOS aus einem Sammel- 
surium verschiedenster Programmteile, die irgendwie miteinander 
verknüpft sind. Das Traurige daran ist, daß aus diesem Grund die 
. Floppy nicht besonders leistungsfähig ist, obwohl sie vielfältige 
technische Möglichkeiten bietet. Die langsame Übertragungs- und 
Laderaten sind nicht etwa die Schuld irgendwelcher Busverfahren, 
sondern alleinıg das Produkt der langsamen DOS-Verwaltung. 


7.1.2 Die wichtigsten DOS-Routinen 


Das DOS besteht aus einer Unzahl verschiedener Routinen. Viele 
davon können Sie nicht benutzen, da sie nicht als Unterpro- 
gramme ausgelegt sind. Hier nun eine kleine Aufstellung einiger 
interessanter ROM-Routinen: 
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$8162 1571-Bus-Elektronik auf Eingang schalten. 
$8ICE 1571-Bus-Elektronik auf Ausgang schalten. 


$85F9 Byte auf 1571 Bus ausgeben. 
Das Byte muß in $46 gespeichert sein. 


$8648 Job ausführen. 
$F9 muß die Nummer des Puffers enthalten, für den 
der Job ausgeführt werden soll. Die Jobtabelle 
$00-$05 enthält den Jobcode. Nach der Ausführung 
des Jobs enthalten X und A die Rückmeldung der 
Jobschleife. 
Tritt bei der Ausführung ein Fehler auf, dann 


versucht die Routine noch einige mal den Job 
fehlerfrei auszuführen. 


$8764 Laufwerksmotor einschalten. 
$8770 Laufwerksmotor ausschalten. 
$877C LED am Laufwerk einschalten. 
$878B LED am Laufwerk ausschalten. 
$883C Fehlerrückmeldung von WD 1770 holen. 
A und X enthalten die Fehlernummer. 
$884E Kommando in A an WD 1770 Befehlsregister übergeben. 
$8861 Warten bis WD 1770 Befehl ausgeführt hat. 
$89EF Kopf auf SpurO zurückstellen. 


$89FD Write Protect prüfen A= $10: kein Schreibschutz. 
A= $00: Schreibschutz aktiv. 


$9032 Auf 1541-Modus schalten. 


$904E Auf 1571-Modus schalten. 
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$93F3 Kopf auf der aktuellen Diskettenseite aktivieren. 
C=0: Seite 1 C=1: Seite2 


$980D9 5 GCR-Bytes in 4 Binärbytes umrechnen. 
$F6D0O 4 Binärbytes in 5 GCR-Bytes umrechnen. 
$FE0OO Kopf auf Lesen umschalten. 


$FEOE Spur löschen (mit $55 beschreiben) 
7.1.3 Die Zeropage 


Die Zeropage ist der Speicherbereich $0000 bis $00FF, der von 
bestimmten 6502-Assembler-Befehlen besonders schnell ange- 
sprochen werden kann. Deshalb werden in diesem Bereich die 
wichtigsten Parameter und Daten, die das DOS zum Arbeiten 
benötigt zwischengespeichert. 


Eine besondere Bedeutung haben die Adressen $00 bis $11. Diese 
Speicherstellen werden dazu benützt an die Jobschleife, der Pro- 
grammteil des DOS, der das Laufwerk steuert, Befehle und Para- 
meter zu übergeben. Dabeı ist für jeden Datenpuffer eine Spei- 
cherstelle reserviert, die das Kommando aufnimmt, welche Aktion 
für diesen Datenpuffer durchgeführt werden soll. Darüberhinaus 
meldet sich die Jobschleife mit einer Rückmeldung in diesen 
Speicherstellen, die darüber Aufschluß gibt, ob der Befehl fehler- 
frei ausgeführt wurde. 


Ein großer Teil der Zeropage wird für die Verwaltung der 
Dateien verwendet. Dabei wird dadurch, daß das DOS immer von 
zwei Laufwerken, also einer Doppelstation, ausgeht, sehr viel Platz 
für das zweite Laufwerk verschenkt, das gar nicht vorhanden ist. 


' Einige Zeropagestellen enthalten für den Betrieb der Floppy 
wichtige Konstanten. Dies sind zum Beipiel: 
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57 $39 Kennzeichen für Datenblock (8) 
104 $68 Flag für Initialisierungsmethode. 
106 $6A Zahl der Leseversuche. 


Diese Speicherstellen werden einmal beim Einschalten der Floppy 
gesetzt. Danach arbeitet das DOS immer mit den hier angegebenen 
Werten. Wenn Sie beispielsweise das Kennzeichen für den Daten- 
block verändern und auf diese Weise eine Diskette formatieren, 
kann die später mit dem normalen Kennzeichen nicht gelesen 
werden. Eine andere Möglichkeit ist, die Zahl der Leseversuche, 
sowie das Verhalten der Floppy bei Lesefehlern in Adresse $6A 
festzulegen. 


Das ausführliche Zeropage-Listing enthält Kapitel 8. Sie müssen 
so nicht das ganze Buch nach dem Zeropage-Listing durchsuchen, 
sondern haben es immer am Ende des Buches griffbereit. 


7.1.4 Das DOS V3.0 im Detail 


Das DOS ist, wie schon in 7.1.1 erwähnt wurde, teilweise zum 
Handhaben von zwei Laufwerken oder für den 
Multiprozessorbetrieb geeignet. Da es nun aber auf einem System 
mit nur einem Laufwerk und nur einem Prozessor läuft, werden 
die Fähigkeiten des Systems bei weitem nicht ausgenutzt. Zum 
anderen ist für zwei Laufwerke eine aufwendigere Verwaltungsar- 
beit nötig, die bei dem Einzellaufwerk, der C-1570/71, nur zu- 
sätzliche Arbeitszeit benötigt, ohne einen Nutzen zu haben. 


Besonders die Art und Weise der Pufferverwaltung, stammt noch 
aus den 4040-Doppellaufwerken. Dabei werden je nach Dateityp 
l, 2 oder gar drei Puffer benötigt. 


Da die Floppy bis zu 5 Dateien gleichzeitig verwalten kann, wird 
jede Datei einem internen Kanal zugewiesen. Diesem Kanal 
wiederum werden die benötigten Puffer zugeteilt. Darüberhinaus 
gibt es noch Verzeichnisse, dıe darüber Auskunft geben, welche 
Puffer gerade benötigt werden, welche Daten noch nicht 
bearbeitet sind usw. 
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Wie Sie sehen ist schon für den kleinsten Floppyzugriff eine 
enorme Verwaltungsarbeit nötig, die die Geschwindigkeit der C- 
1570/71 stark mindert. 


Was beim DOS beachtet werden muß ist seine Entstehungsge- 
schichte. Dabei fällt besonders ins Gewicht, daß das DOS nicht in 
einem Zug entwickelt und durchdacht wurde, sondern immer nur 
aus den Versionen der Vorgänger-Floppies entstand und für die 
neue Floppy modifiziert wurde. 


Mittlerweile ist diese DOS-Version drei- bis viermal verändert, 
ergänzt und erweitert worden. Dadurch steigt die Fehlerrate, die 
Zahl der unötigen Verwaltungsarbeiten und vorallem sinkt 
dadurch die Leistungsfähigkeit der Floppy. 


7.1.5 Fehler im DOS 


Selbstverständlich geht auch die Entwicklung eines Betriebssystems 
nicht fehlerfre vor sich. Und so hat der Fehlerteufel auch im 
1570/71 DOS zugeschlagen. Das sind zum einen einige Funktionen 
und Befehle, die nicht in der gewünschten Art und Weise funk- 
tionieren, wie beispielweise der Block-Allocate-Befehl, die 
Replace-Funktion usw. 


Darüberhinaus gibt es auch noch einige Stellen, an dehnen das 
ROM Befehle enthält, die im Zusammenhang fehlerhaft sind. Die 
umfangreichste Gruppe sind dabei. die Assembler-Anweisungen, 
die keinen Sinn ergeben, überflüssig sind o.ä. Derartige Kon- 
struktionen enthalten beispielsweise die Adresse: 


$85DA 9396 SIE90 $A605 $E853 SE9YDA $EAA7 $F258 $FF13 


Einige weitere DOS-Stellen sind allerdings fehlerhaft. Diese Fehler 
sind allerdings oft so geringfügig, daß sie sich nicht sofort in ' 
einem Floppy-Systemzusammenbruch äußern. Hier nun eine kleine 
Aufstellung einiger geheimnisvoller DOS-Stellen: 


$8056: Hier werden aus $37 einige Flags ausgeblendet, die über- 
haupt keine Steuerfunktion haben. Das weißt darauf hin, daß 
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eigentlich ganz andere Flags ausgeblendet werden sollten, wobei es 
dann ’And $BE’ heißen müßte. 


$8124/$826F: Hier wird das Flag für die Echtzeituhr aktiviert, das 
im DOS überhaupt nicht verwendet wird. Da diese Aktion in 
Zusammenhang mit Busaktionen durchgeführt wird, liegt die 
Vermutung nahe, das eigentlich das danebenliegende Flag für das 
serielle Ein-/Ausgaberegister gemeint ist. 


$BF57/BF75: Dies ist ein Jump an eine Stelle wo überhaupt kein 
Programm exisitiert. 


: $E69B: Bei dieser Routine wird der ’SED’-Befehl verwendet, ohne 
den Interrupt zu verhindern. So kommt es dann vor, das die Job- 
steuerschleife aufgerufen wird, während BCD-Arithmetik akiti- 
viert ist. Das dabei natürlich nicht die richtigen Steuerparameter 
errechnet werden, braucht nicht erwähnt zu werden. 


7.2.1 Wie wurde kommentiert? 


Das ROM-Listing in diesem Buch unterscheidet sich in einigen 
Punkten von vielen anderen ROM-Listings. Sicherlich werden 
Ihnen schon die merkwürdigen hochgestellten Zahlen nach der 
Speicheradresse aufgefallen sein, oder Sie haben sich schon 
gewundert, was die in eckigen Klammern angegebenen Zahlenko- 
lonnen bedeuten. Bei diesen Dingen handelt es sich um eine soge- 
nannte Cross-Referenz. Auf deutsch bedeutet das soviel wie 
Querverweise. 


Die Angaben über jeder Routine des ROMs, die in eckigen 
Klammer stehen, nennen alle Stellen im ROM, beı dehnen an 
diese Routine aufgerufen wird. Wird dabei die Stelle aufgerufen 
an der die Werte in eckigen Klammern aufgeführt sind. Wird eine 
andere Stelle der Routine angesprungen, dann wird diese Ein- 
sprungadresse genannt, gefolgt von einem Doppelpunkt. Darauf ist 
die Adresse der Aufrufsstelle angegeben. Hierzu nun einige Bei- 
piele: 
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[1234/5678] Die ROM-Routine wird von 1234 und 5678 
angeprungen. 
[EEEA: 1652) ‘Die Adresse EEEA der ROM-Routine wird 


von 1652 angesprungen. 
[5527:78ED ‚,5652] Die Adresse 5527 wird von 78ED und 5652 
angesprungen. 


Neben diesen Querverweisen sind oft auch Kommentare angege- 
ben, wenn die Stelle über einen Vektor oder eine Programm-Rou- 
tine angesprungen wird. Genauso kommt auch hin und wieder der 
Kommentar ’Routine wird nicht verwendet’ vor. Darüberhinaus 
werden bei einigen Routinen Vergleichsadressen angegeben, bei- 
spielsweise in der Form ’vgl. 1234’. Diese deuten darauf hin, daß 
diese selbe Routine oder eine Routine, die die gleiche Funktion 
hat an einer anderen Stelle im ROM vorkommt. Sie sollten diesen 
Hinweisen auf jeden Fall mit Interesse folgen. Sind zwei Routinen 
doppelt vorhanden, sind diese meistens nicht identisch kommen- 
tiert. Dadurch können Sie mit beiden Kommentarversionen 
arbeiten und haben so eine bessere, umfangreichere Erläuterung 
der ROM-Routine. | | 


Eine andere Art von Querverweisen stellen die hochgestellten 
Zahlen, die hinter manchen Adressen angegeben sind, dar. Diese 
Ziffern geben an, daß an diese Stelle eingesprungen wird. Dabei 
handelt es sich meistens um relative Sprungbefehle. das bedeutet, 
die Stellen von dehnen diese gekennzeichnete Stelle aus ange- 
sprungen wird sind 128Bytes weiter vorne oder weiter hinten zu 
finden, was etwa einer Seite vor oder zurück entspricht. Die Zahl 
gibt dabei an, wieviele derartige Stellen existieren. Sollten Sie 
trotzdem den Einsprungpunkt nicht finden, kann es sein, daß die 
Daten dieser Adresse in der Kopfzeile in den eckigen Klammern 
angegeben ist. Prüfen Sie deshalb immer zuerst die Kopfzeile. 


Was nützen diese Querverweise? Betrachten Sie dazu einmal die 
Adresse $93F3 im ROM-Listing. An dieser Stelle beginnt eine 
Routine mit einer Entscheidung. Nun stellt sich die Frage, wlichen 
Wert das Carryflag beim Einsprung hat. Die angegebenen 
Adressen erlauben die Stellen ausfindig zu machen, von dehnen 
aus die Routine $93F3 angesprochen wird. Somit kann auch fest- 
gestellt werden, welchen Wert das Carry-Flag hat. 
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Desweiteren zeigen Ihnen diese Querverweise, welche Routinenen 
sehr oft verwendet werden. Dabei werden Sie feststellen, daß die 
Hälfte aller DOS-Routinen nur einmal aufgerufen werden. Es 
handelt sich dabei im Grunde genommen nicht um Unterroutinen, 
sondern nur um Teilprogramme. Die hochgestellten Querverweis- 
zahlen haben meistens den Wert 1. Diese Fälle sind aber nicht 
besonder interessant. Sie sollten Ihre Aufmerksamkeit auf alle 
Stellen lenken, die von mehr als einem Punkt aus angesprungen 
werden. Auf diese Weise können Sie den Programm-Ablauf einer 
Routine schneller erfassen. 


Zum Schluß noch einige Worte zu den Kommentaren selbst. Es 
wurde versucht, alle Zeilen des ROM-Listings zu kommentieren. 
Bei einigen Stellen ist das problematisch, schließlich kann man 
keine spannenden Kommentare schreiben, wenn das Programm 
nicht spannender ist. An anderen Stellen wiederum reicht eine 
Zeile bbei weitem nicht aus, um die Routine zuu kommentieren. 
In diesen Fällen wurde öfters ein kleiner Abschnitt mit 
detaillierteren Erklärungen eingebaut. 


Der Autor hat versucht, im gesamten ROM-Listing nur deutsche 
Kommentare zu benutzten. Dadurch soll das ROM-Listing ver- 
ständlicher werden. Ein Fachjargon-Kauderwelsch hat keinen 
Nutzen, wenn es vom größten Teil der Leser nicht verstanden 
wird. Diejenigen, die dies verstehen würden, die Profies unter 
Ihnen, benötigen die ausführlichen Kommentare sowieso nicht, 
um das Betriebssystem zu verstehen. 
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7.2.2 C-1571 DOS LISTING 
(ROM Version 03) 


Copyright Vermerk » 


8002 53 2F 57 20 2D 20 44 41 S/W - DAVID G 
800A 56 49 44 20 47 20 53 49 SIRACUSA 

8012 52 41 43 55 53 41 OD 48 H/W - GREG 
801A 2F 57 20 2D 20 47 52 45 BERLIN 

8022 47 20 42 45 52 4C 49 LE 1985 


802A 0D 31 39 38 35 OD 


[CB63/806D:Vektor 80BE,80C0,80C6,80C8] 
Routine für User-0-Befehl ('U0!) 


8030 AD 74 02 LDA $0274 Länge des Befehlsstrings holen 
8033 C9Y 03 CMP #803 und auf kleinste Befehlslänge prüfen 
8035 90 2E BCC $8065 ist der Befehl kleiner 3 Zeichen ? 
8037 AD 02 02 LDA $0202 nein, Befehlsnummer holen 
803A 85 3B STA $3B und merken 
803C 29 1F AND #$1F Wert auf Bereich von 0-31 beschränken 
803E AA TAX und Steuerflags ausblenden 
803F DA ASL A Wert verdoppeln (da 2-Byte-Zeiger in 
8040 AB TAY Tabelle) und als Zeiger setzen 
8041 BY BE 80 LDA $808E,Y Low-Byte der angesprochenen Routine 
8044 85 75 STA $75 holen und setzen 
8046 BY BF 80 LDA $808F,Y High-Byte der Adresse 
8049 85 76 STA $76 in Zeiger $75/$76 übernehmen 
804B EO 1E CPX #$1E auf 1541-Zusatzbefehle prüfen 
804D FO 07 BEQ $8056 sollen neue Befehle ausgeführt werden ? 
804F AD OF 18 LDA $180F nein, Flag für 1571/1541-Betrieb holen 
8052 29 20 AND #820 und überprüfen 

8054 FO OF BEQ $8065 ist die Floppy im 1571-Modus ? 
8056! a5 37 LDA $37 ja, [Fehler siehe 7.1.5] 
8058 29 EB AND #%EB [unsinnige Bitflags werden] 
805A 85 37 STA $37 [ausgeblendet] | 
805C BD 6E 80 LDA $806E,X Jobcode des äquivalenten Diskkontroller- 


805F 8D 02 02 STA $0202 Befehls setzen 
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8062. 6C 75 00 JUMP ($0075) ‘Routine aufrufen 

8065 A9 EA LDA #$EA Zeiger auf Tabelle 

8067 85 6B STA $6B der 1541 User Befehle 

8069 AI FF LDA #$FF auf $FFEA 

806B , 85 6C STA $6C setzen 

806D 60 RTS zurück zur aufrufenden Routine 
[805C] Jobcodes zu den Befehlsroutinen 


806E 80 
8076 00 
807E 80 
8086 OO 


81 90 91 BO Bi FO F1 
01 BO 01 00 01 00 01 
81 90 91 BO B1 FO F1 


01 BO 01 00 01 00 80 


Bit0O = Laufwerksnummer 

Bit1-7 : $80 = Lesen / $90 = Schreiben 
$B0O = Sektor suchen / $FO = Formatieren 
$00 = kein Job (Sonderfunktion) 


[8041] 


808E 71 
8090 7F 
8092 EC 
8094 F& 
8096 8B 
8098 7F 
809A B7 
809C B7 
809E F1 
80A0 F1 
80A2 17 
80A4 7F 
80A6 6B 
80A8 7F 
80AA A5 
80AC A5 
80AE 71 
80B0 7F 
80B2 EC 
80B4 F8 
80B6 8B 
80B8 7F 
80BA B7 


Adressen der Befehlsroutinen über 'UserO' 


Befehlsnummer : 


BitO : Laufwerk (0/1) 


Bit1-3 : Funktion 


Bit4 : Diskettenseite (0/1) 


83 0/00 
83 170 
83 2/02 
83 3/03 
84 4/04 
83 5/05 
84 6/06 
84 7107 
84 8 / 08 
84 9/09 
85 10 / 0A 
83 11 / 08 
85 12 7 0C 
83 13 / 0D 
85 14 / 0E 
85 15 / OF 
83 16 / 10 
83 17/79 
83 18 / 12 
83 19 7 13 
84 20 / 14 
83 21/15 
84 22 / 16 


$8371 CP/M Sektor lesen 

$837F Fehlermeldung 'Drive Not Ready! 
$83EC CP/M Sektor schreiben 

$83Ff8 Fehlermeldung 'Drive Not Ready! 
$848B CP/M Sektorheader lesen 

$837F Fehlermeldung 'Drive Not Ready! 
$84B7_ CP/M Diskette formatieren 

$84B7 CP/M Diskette formatieren 

$84F1 CP/M Sektorversatz holen / setzen 
$84F1 CP/M Sektorversatz holen / setzen 
$8517 CP/M Sektorenfolge feststellen 
$837F Fehlermeldung 'Drive not ready"! 
$856B Befehls-Statusbyte holen / setzen 
$837F Fehlermeldung 'Drive Not Ready! 
$85A5 "Syntax Error (31)' ausgeben 
$85A5 "Syntax Error (31)' ausgeben 
$8371 CP/M Sektor lesen 

$837F Fehlermeldung 'Drive Not Ready! 
$83EC CP/M Sektor schreiben 

$83Ff8 Fehlermeldung 'Drive Not Ready"! 
$8488B CP/M Sektorheader lesen 

$837F Fehlermeldung 'Drive Not Ready"! 
$84B7 CP/M Diskette formatieren 
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80BC B7 84 
80BE 6D 80 
80C0 6D 80 
80C2 17 85 
8004 7F 83 
8006 6&D 80 
80C8 6D 80 
80CA ES 8F 
8ücC 80 90 


23 / 17 
24 / 18 
25 / 19 
26 / 1A 
27 / 1B 


$848B7 CP/M Diskette formatieren 
$806D keine Funktion (rts) 

$806D keine Funktion (rts) 

$8517 _ CP/M Sektorenfolge feststellen 
$837F Fehlermeldung 'Drive Not Ready"! 
$806D keine Funktion (rts) 

$806D keine Funktion (rts) 

$8FE5S 1571-Zusatzkommandos ausführen 
$9080 Datei über 1571 Bus laden 


[A7BA] 


Kommando vom seriellen Bus annehmen (ATN aufgetreten) 


80ctE 78 

8OCF AY 00 
8001 85 7C 
8003 85 79 
8005 85 7A 
8007 A2 45 
8009 9A 

80DA 20 B2 81 
80DD AY 80 
80DF 85 F& 
80E1 85 7D 
80E3 20 B7 EY 
80E6 20 A5 EI 
80E9 AD 00 18 
80EC 09 10 
80EE 8D 00 18 
sorı AD 00 18 
80F4 10 64 
80F6 29 04 
80F8 DO F7 
80FA 20 CA 82 
80FD C9Y ZF 
SOFF DO 0OC 
8101 AS 37 
8103 29 BF 
8105 85 37 
8107 A9 00 
8109 85 79 
810B FO 0E 


SEI 
LDA #$00 


- STA $7C 


STA $79 
STA $7A 
LDX #845 
TXS 

JSR $81B2 
LDA #$80 
STA $F8 
STA $7D 
JSR $E9B7 
JSR $E9AS 
LDA $1800 
ORA #810 
STA $1800 
LDA $1800 
BPL $815A 
AND #804 
BNE $80F1 
JSR $82CA 
CMP #$3F 
BNE $810D 
LDA $37 
AND #$BF 
STA $37 
LDA #800 
STA $79 
BEQ $811B 


Bus- und Kontrolleraufruf abschalten 
Zeiger und Flags löschen : 

Flag für ATN vom Bus empfangen 

Flag für Listen 

Flag fur Talk 

Stackpointer 

initialisieren 

1571 Bus auf Eingang schalten 

Flag für letztes Zeichen (EOI = End 
of Information) setzen 

Flag für '"ATN beachten! löschen 
Clock-Ausgang auf Low 

Data-Ausgang auf High 
Bussteuerregister holen und 
ATN-Ausgang auf High 

setzen 

ATN-Eingang prüfen 

ist ATN gesetzt ? 

ja, Clock-Eingang holen 

ist Clock gesetzt ? 

nein, Kommandobyte vom Bus holen 
mit Wert für 'Unlisten! vergleichen 
soll Listener seine Arbeit beenden ? 
ja, Bussteuerflags holen 

und Flag für '1541-Bus-Modus' 
setzen 

Flag für Listen 

Löschen 

immer Sprung nach $811B 
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g1on! c9 5F CMP #85F mit Wert für 'Untalk'! vergleichen 
810oF DO OD BNE $811E soll Talker seine Arbeit beenden ? 
8111 AS 37 LDA $37 ja, Bussteuerflags holen 
8113 29 BF AND #%BF und Flag für '1541-Bus-Modus’ 
8115 85 37 STA $37 setzen 
8117 A9 00 LDA #800 Flag für Talk 
8119. 85 7A STA $7A Löschen 
811B, 4AC 92 81 JMP $8192 warten bis ATN-Modus vorbei ist 
g11e! c5 78 CMP $78 mit Geräteadresse für Talk vergleichen 
8120 DO 0A BNE $812C ist Talk adressiert ? 
8122 A9 01 LDA #01 ja, Flag für 
8124 85 7A STA $7A ıTalk empfangen! setzen 
8126 A9 00 LDA #200 Flag für Listen 
8128 85 79 STA $79 ‚Löschen 
812A_ FO 29 BEQ $8155 immer Sprung nach $8155 
s12c! c5 77 CMP $77 mit Geräteadresse für Listen vergleichen 
8i2E DO OA BNE $813A ist Listen adressiert ? 
8130 A9 01 LDA #801 ja, Flag für 'Listen empfangen! 
8132 85 79 STA $79 setzen 
8134 A9Y 00 LDA #%00 Flag für Talk 
8136 85 7A STA $7A Löschen 
8138. FO 1B BEQ $8155 immer Sprung nach $8155 
813al AA TAX ATN-Kommando merken 
8138 29 60 AND #560 Steuerbits für Talk und Listen isolieren 
813D C9Y 60 CMP #$60 und auf Wert für 'beide gesetzt! prüfen 
813F DO 4C __ BNE $818D wird Kanalnummer übermittelt ? 
8141 8A - TXA Ja, Orginal-Sekundäradresse wieder holen 
8142 85 84 STA $84 und setzen 
8144 29 OF AND #%0F Nummer des angesprochenen Floppykanals 
8146 85 83 STA $83 herstellen und setzen 
8148 A5 84 LDA $84 ‚.  Orginal-Sekundäradresse (ATN-Kommando) 
814A 29 FO AND #$F0 holen und Befehlbits isolieren 
814cC CY EO CMP #$E0 ist Bit7 (Open/Close) auch gesetzt ? 
8i4E DO 42 BNE $8192 soll der Kanal geschlossen werden ? 
8150 58 CLI ja, Bus- u. Kontrolleraufruf einschalten 
8151 20 CO DA JSR $DACO Kanal und evtl. Datei schließen 
8154_ 78 SEI Bus- und Kontrolleraufruf abschalten 


8155 2C 00 18 BIT $1800 ATN-Eingang testen 
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[A9B3] Bus nach ATN-Kommando steuern 


8158_ 30 AO BMI $80FA ist immer noch ATN-gesetzt ? 
815A> A9 00 LDA #$00 nein, Flag für 'ATN aktiv! 
815C 85 7D STA $7D Löschen 
815E AD 00 18 LDA $1800 Bussteuerregister holen 
8161 29 EF AND #$EF und ATN-Ausgang wieder 
8163 8D 00 18 STA $1800 Löschen 
8166 A5 79 LDA $79 Flag für Listen holen 
8168 FO OD BEQ $8177 ist der Bus im Listener Betrieb ? 
81I6A 24 37 BIT $37 nein, Bussteuerflags testen 
816C 50 03 BVC $8171 ist Bus im 1571 Modus ? 
816E, 20 99 81 JSR $8199 ja, DRF-Kode senden 
8171 20 42 83 JSR $8342 Daten vom Bus übernehmen 
8174, 4C 6B 83 JMP $836B zur Befehls-Warteschleife 
s177! A5 7A LDA $7A Flag für Talk holen 
8179 FO OF BEQ $818A ist der Bus im Talker Betrieb 
817B 20 9C EI JSR $EYIC Data-Ausgang auf Low setzen 
: 81I7E 20 AE E9 UJSR $EYAE Clock-Ausgang auf High setzen 
8181 20 83 A4  JSR $A4B3 ca. 80 Taktzyklen Verzögerung 
8184 20 EA 81 JSR $81EA . Daten nach Talk auf Bus geben 
8187. 20 83 A4  JSR $A4B3 ca. 80 Taktzyklen Verzögerung 
818A_ AC 66 83 JUMP $8366 zur Befehls-Warteschleife 
818D° A9Y 10 LDA #$10 ATN-Ausgang auf High 
818F_ 8D 00 18 STA $1800 Data und Clock auf Low setzen 
8192” 2C 00 18 BIT $1800 ATN-Eingang testen 
8195 10 C3 BPL $815A ist ATN gesetzt ? 
8197 30 FY BMI $8192 ja, warten bis ATN wieder gelöscht 
[816E/81A1] 
DRF (Device Request Fast) an Rechner senden (schnellen Busmodus anfordern) 
8199 20 59 EA JSR $EA59 auf ATN-Komandomodus prüfen 
819C 20 CO E9 JSR $EYCO Busregister bei konstantem Wert lesen 
8iyF 29 04 AND #804 und Clock-Eingang isolieren 
81Al DO F6& BNE $8199 ist Clock gesetzt ? 
81A3 20 CE 81 JSR $8iCE nein, 1571 Bus auf Ausgang schalten 
81A6 AY 00 LDA #00 DRF-Signal 
81A8 8D OC 4D STA $400C in serielles Ausgaberegister 
81AB, AY 08 LDA #508 Bitflag für serielles Register leer 
ginn! 2C OD 4D BIT $400D Status der Ausgabe holen 


8180 FO FB BEQ $81AD ist Datenbyte übertragen ? 
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[80DA/836B/846D/8591/BEAC/A61F/A7AD] 
1571-Bus auf Eingang schalten 


81B2 08 PHP Prozessorstatus retten 

81863 78 SEI Bus- und Kontrolleraufruf abschalten 
81B4 AD DE 40 LDA $400E Ja, Steuerregister holen 

8157 29 BF AND #%BF serielle Verbindung als Eingang 
81B9 8D ODE AD STA $400E schalten 

81iBC AD OF 18 LDA $180F Steuerbit für 

8iBF 29 FD AND #$FD 1571-Busrichtung auf 

81C1 8D OF 18 STA $180F Eingangsmodus setzen 3 

8iCc4 AY 84 LDA #$84 [Fehler siehe 7.1.5] 

81C6 8D OD AD STA $400D [Echtzeituhr wird nicht verwendet] 
81c9 2C OD 40 BIT $400D letzte Interruptflags zurücksetzen 
8ictC 28 PLP Prozessorstatus wieder setzen 

8icD 60 RTS zurück zur aufrufenden Routine 


[81A3/8394/8461/84F6/8533/8582/8E93/8E9YA/9080] 
1571-Bus auf Ausgang schalten 


8icE 08 PHP Prozessorstatus retten 
8icF 78 SEI Bus- und Kontrolleraufruf abschalten 
81D0 AD OF 18 LDA $180F Steuerbit für 
81D3 09 02 ORA #802 1571-Busrichtung auf 
81D5 8D OF 18 STA $180F Ausgangsmodus setzen 
81D8 AD OE 40 LDA $400E serielles Register 
81DB 09 40 ORA #840 als Ausgang 
81DD 8D DE AD  STA $400E schalten . 
81iEO AY 08 LDA #808 ‚Interrupt bei 'Byte aus-/eingegeben! 
81iE2 8D OD AO STA $400D verhindern 
81iE5 2C OD AO BIT $400D Flags vom letzten Interrupt löschen 
8lEß 28 PLP Prozessorstatus wieder setzen 
81E9 60 RTS zurück zur aufrufenden Routine 


[8184] vgl. E9OY 
Daten von Datei auf Bus ausgeben (1571 Modus) 


8lEA 78 SEI Bus- und Kontrolleraufruf abschalten 
81EB 20 EB DO JSR $DOEB Interne Kanalnummer feststellen 

8lEE, BO 06 BCS $81F6 wurde Kanal gefunden ? 

81F0 A6 82 LDX $82 - Ja, Nummer des Kanals holen 

8iF2 B5 F2 LDA $F2,X zugehörigen Busstatus feststellen 
8iFf4 30 01 BMI $81F7 Kanal aktiv ? 


81F6 60 RTS nein, zurück zur aufrufenden Routine 
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gırzl 


81FA 
8irfD 
8öirrF 
8200 
8203 
8204 
8206 
8209 
820C 
820E 
8210 
8212 
8214 
8216 
8218 
821B 
821E 
8220 
8222 
8225 
8228 
822A 
822C 
822F 
8232 


l 


20 59 EA 
20 CO EY 
29 01 

08 

20 B7 E9 
28 

FO 12 

20 59 EA 
20 CO EY 
29 01 

DO F6 

A6 82 

B5S F2 

29 08 

DO 14 


20 59 EA 


20 CO E9 
29 01 
DO F6 
20 59 EA 
20 CO E9 
29 01 
FO F6 
20 AE E9 
20 59 EA 
20 CO EY 
29 01 
DO F3 
24 37 


09 02 
8D OF 18 
AD OE 40 


JSR $EA59 
JSR $E9CO 
AND #801 
PHP 

JSR $E9B7 
PLP 

BEQ $8218 
JSR $EA59 
JSR $E9CO 
AND #801 
BNE $8206 
LDX $82 
LDA $F2,X 
AND #808 
BNE $822C 
JSR $EAS9 
JSR $E9CO 
AND #801 
BNE $8218 
JSR $EAS9 
JSR $EICO 
AND #801 
BEQ $8222 
JSR $E9AE 
JSR $EAS9 
JSR $E9CO 
AND #801 


LDA $180F 
ORA #%02 
STA $180F 
LDA $400E 
ORA #$40 
STA $400E 
BIT $400D 
LDX $82 


LDA $023E,X 


auf ATN-Kommandomodus prüfen 
konstanten Wert vom Bussteuerregister 
holen und Data-Eingang prüfen 
Ergebnis merken 

Clock-Ausgang auf High setzen 

Zustand der Data-Leitung wieder holen 
ist Data gesetzt ? 

Ja, auf ATN-Kommandomodus prüfen 
Wert des Bussteuerregisters holen 

und Zustand des Data-Eingangs holen 
ist Data immer noch gesetzt ? 

nein, Nummer des aktuellen Kanals holen 
und entsprechenden Busstatus holen 
EOI (End of Information) Flag testen 
ist letztes Byte übertragen worden ? 
nein, auf ATN-Kommandomodus prüfen 
Wert des Bussteuerregisters holen und 
Zustand des Data-Eingangs feststellen 
ist Data gesetzt ? 

nein, auf ATN-Kommandomodus prüfen 
Wert vom Bussteuerregister holen 

und Zustand des Data-Eingangs testen 
ist Data jetzt gesetzt ? 

ja, Clock-Ausgang auf High setzen 
auf ATN-Kommandomodus prüfen 

Wert vom Bussteuerregister holen 

und Data-Eingang isolieren 

ist Data gesetzt ? 

nein, Flag für Busmodus testen 

ist Bus im 1571 Modus ? 


mem ben ne m m mn m nm m m ET ET m GT m A m En m mn m U TC m u U On m m m m m m A m a m m m m m m nn am mn m m 


1571 Bus ausgeben 
AD OF 18 


ja, 1571-Bus Elektronik auf 
Ausgangsmodus 

schalten (Biti =1) 

serielles Ausgaberegister 

als Ausgang 

ansteuern 

Interruptregister zurücksetzen 
Nummer des aktuellen Kanals 

zu übertragendes Datenbyte des Kanals 
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8255. 8D OC 40 STA $400C holen und in serielles Ausgaberegister 
8258 AD OD DO LDA $400D Zustand des Ausgaberegisters holen 
825B 29 08 AND #08 und prüfen ob Ausgaberegister leer ist 
825D FO F9 BEQ $8258 ist Byte übertragen ? 

825F AD OE 40 LDA $400E ja, serielles Register 

8262 29 BF AND #$BF als Eingangsregister 

8264 8D ODE 40 STA $400E schalten 

8267 AD OF 18 LDA $180F Bus-Elektronik wieder 

826A 29 FD AND #$FD in Eingangsmodus 

826C 8D OF 18 STA $180F zurücksetzen (Bit1 =0) 

826F AY 84 LDA #$84 [Fehler siehe 7.1.54] 

8271 8D OD AD STA $400D [Echtzeituhr wird nicht verwendet] 
8274 DO 3C BNE $82B2 immer Sprung nach $82B2 


Byte auf 1541 Bus ausgeben 


8276 AI 08 LDA #508 Zahl der Bits pro Byte 
8278. 85 98 STA $98 in Zähler festlegen 
827Al 20 CO E9 JSR $EICO Bussteuerregister holen 
827D 29 01 AND #801 und Data-Eingang prüfen 
827F. DO 43 BNE $82C4 ist Data gesetzt ? 
82511 A6 82 LDX $82 nein, Nummer des aktuellen Kanals holen 
8283 BD 3E 02 LDA $023E,X und zugehöriges Datenbyte feststellen 
8286 6A ROR A ein Bit davon übernehmen und 
8287 9 3E 02 STA $023E,X restliches Byte wieder merken 
828A BO 05 BCS $8291 ist Bit auf 1 ? 
828C 20 A5 E9 JSR $EYA5 nein, Data-Ausgang auf High setzen 
828F DO 03 BNE $8294 immer Sprung nach $8294 
8291, 20 9C EI UJSR SEIIC Data-Ausgang auf Low schalten 
8294 20 TE A4  JSR $AALTE ca. 45 Taktzyklen Verzögerung 
8297 A5 23 LDA $23 Flag für 1541/1540 Busverzögerung 
8299 DO E6 BNE $8281 . ist Bus im 1541 Modus ? 
829B 20 83 A4  JSR $A4B3 ja, ca. 80 Taktzyklen Verzögerung 
829E 20 B7 E9 JSR $E9B7 Clock-Ausgang auf Low setzen 
82A1 20 TE A4  JSR $A4LT7E ca. 45 Taktzyklen Verzögerung 
82A4 A5 23 LDA $23 Flag für 1541/1540 Busverzögerung 
82A6 DO 03 BNE $82AB ist Bus im 1541 Modus ? 

 82A8_ 20 83 A4 UJSR $A4B3 ja, ca. 80 Taktzyklen Verzögerung 
82AB 20 FB FE JSR $FEFB Clock auf High und Data auf Low setzen 
82AE C6 98 DEC $98 zähler für zu übertragende Bits 
82B0_ DO C8 BNE $827A ‘ist Byte übertragen ? 


82827 20 59 EA JSR $EA59 ja, auf ATN-Kommandomodus prüfen 
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82B5 20 CO E9 JSR $EICO Bussteuerregister holen 

82B8 29 01 AND #801 und Data-Eingang übernehmen 

82BA FO F6 BEQ $82B2 ist Data gesetzt ? 

82BC 58 CLI ja, Bus- & Kontrolleraufruf einschalten 
82BD 20 AA D3 JSR $D3AA nächstes Byte aus Datei lesen 

82C0 78 SEI Bus- und Kontrolleraufruf abschalten 
82C1. 4C FO 81 JMP $81F0 und wieder auf Ausgabe vorbereiten 
82c4 4C 62 83 JMP $8362 zurück zur Befehls-Warteschleife 
[8358] 

Kommandobyte vom 1571-Bus lesen 

82C7 2C OD 40 BIT $400D Interrupregister zurücksetzen 

82CA A9 08 LDA #$08 Zahl der zu übertragenden Bits pro Byte 
82CC. 85 98 STA $98 festlegen 

82cel 20 59 EA JSR $EA59Y auf ATN-Kommandomodus testen 

82D1 20 CO EI JSR $EICO und Bussteuerregister einlesen 

82D4 29 04 AND #504 Clock-Eingang prüfen 

82D6 DO F6 BNE $82CE ist Clock gesetzt ? 

82D8 20 9C EI JSR $EIIC nein, Data-Ausgang auf High setzen 
8208, A9 01 LDA #%01 Data-Eingang in 

g2op! 2C 00 18 BIT $1800 Bussteuerregister testen 

82E0O DO FB BNE $82DD ist Data noch gesetzt ? 

82E2 8D 05 18 STA $1805 Timer 1 (Highbyte) setzen (1) 

82E5 20 59 EA JSR $EA5Y auf ATN-Kommandomodus prüfen 

82E8 AD OD 18 LDA $180D Interruptflag für 

82EB 29 40 AND #840 'Timer 1 ablgelaufen!' prüfen 

82ED DO 09 BNE $82F8 sind schon 256 Taktzyklen vergangen ? 
82EF 20 CO EI JSR $E9ICO nein, Wert vom Bussteuerregister holen 
82F2 29 04 AND #804 und Clock-Eingang überprüfen 

82F4 FO EF BEQ $82E5 ist Clock gesetzt 

82F6, DO 19 BNE $8311 ja, immer Sprung nach $8311 

garsl 20 A5 E9 UJSR $EYA5 Data-Ausgang auf High setzen 

82FB_ A2 18 LDX #818 Warteschleife : 

82FD CA DEX etwa 0.1 ms 

82FE DO FD BNE $82FD abwarten 

8300. 20 9C E9 JSR $EYIC Data-Ausgang auf Low setzen 

8303 20 59 EA JSR $EA5Y auf ATN-Kommandomodus prüfen 

8306 20 CO EI JSR $EICO Wert des Bussteuerregisters holen 
8309 29 04 - AND #804 und Clock-Eingang isolieren 

830B FO F6&6 BEQ $8303 ist Clock noch gesetzt ? 


830D A9 00 LDA #800 ja, Flag für 'letztes Byte empfangen! 
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830F_ 85 FB STA $F8 
8311” AD 00 18 LDA $1800 
8314 49 01 EOR #801 
8316 AA TAX 
8317 AD OD 40 LDA $400D 
: 831A 29 08 AND #208 
831C FO 08 BEQ $8326 
831E AD OC 4O LDA $400C 
8321 85 85 STA $85 
8323  4C 3C 83 JMP $833C 
8326 8A TXA 
8327 4A LSR A 
8328 29 02 AND #%02 
832A DO E5 BNE $8311 
832C, 66 85 ROR $85 
832€] 20 59 EA JSR $EA59 
8331 20 CO E9 JSR $EICO 
8334 29 04 AND #%04 
8336 FO F6 BEQ $832E 
8338 C6 98 DEC $98 
833A. DO D5 BNE $8311 
833c1 20 A5 E9_ JSR $EYA5 
833F A5 85 LDA $85 
8341 60 RTS 
[8171/835FJ] vgl. EA2E 
Byte vom Bus übernehmen 
8342 78 SEI 
8343 20 07 D1 JSR $0107 
8346 BO 05 BCS $834D 
8348 B5 F2 LDA $F2,X 
83LA 6A ROR A 
834B. BO OB BCS $8358 
834D AS 84 LDA $84 
834F 29 FO AND #$F0 
8351 C9Y FO CMP #&F0 
8353 FO 03 BEQ $8358 
8355_ 4C 66 83 JMP $8366 
8358” 20 C7 82 JSR $82C7 
835B 58 CLI 
835C 20 B7 CF JSR SCFB7 
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(EOI) setzen 

Wert des Data-Eingangs feststellen, 
invertieren und 

merken 

Flag für 'serielles Eingaberegister 
voll! holen 

wurde ein Byte empfangen ? 

ja, Byte aus Register lesen 

und als aktuelles Datenbyte merken 
und Ende 

invertierten Data-Wert wieder holen 
und im Carry merken 

Clock-Eingang prüfen 

war Clock gleichzeitig gesetzt ? 
ja, Data-Bit in Datenbyte übernehmen 
auf ATN-Kommandomodus prüfen 
Bussteuerregister holen 
Clock-Eingang testen 

ist Clock noch gesetzt ? 

nein, Zähler für Zahl der Datenbits 
ist gesamtes Byte empfangen ? 

ja, Data-Ausgang auf Low setzen 
Datenbyte holen 

zurück zur aufrufenden Routine 


Bus- und Kontrolleraufruf abschalten 
Interne Kanalnummer feststellen 

wurde Kanal gefunden ? 

ja, Status des entsprechenden Kanals 
Flag für Schreibbetrieb testen 

ist Kanal zum Schreiben geöffnet ? 
nein, aktuelle Sekundäradresse holen 
und Befehlsbits holen und auf 

auf 'Kanal schließen! prüfen 

soll Kanal beendet werden ? 

nein, zurück zur Befehls-Warteschleife 
Byte vom 1571 Bus holen 

Bus- und Kontrolleraufruf einschalten 
Byte in Datei schreiben 
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8355F 40428 JMP $8342 weiter 

[82C4] 

Bus zurücksetzen; zurück zur Befehlswarteschleife 
8362 A9 00 LDA #800 Busstatusbyte 
8364 85 37 STA $37 Löschen 


[818A/8355] Bus zurücksetzen; Modus beibehalten | 

8366 A9 00 LDA #00 Data- und Clock-Ausgang auf Low 

8368 8D 00 18 STA $1800 setzen 

[8174/E698/EBEA/EAS53] 

_ auf nächsten Befehl warten 

836B 20 B2 81 JSR $81B2 1571 Bus auf Eingangsbetrieb schalten 
836E 4C E7 EB JMP $EBE7 ‚auf nächsten Befehl vom Rechner warten 
[Einsprung über Vektor in 808E/80AE durch Routine $8030] 

CP/M Sektor lesen; vorher Fehlerprüfung 


8371 8D 4D 02 STA $024D Jobcode der Routine 

8374 85 5F. STA $5F aus Tabelle $806E merken 

8376 AD OD 18 LDA $180D CA2 Eingang testen (Elektronik zeigt an, 
8379 4A LSR A daß 'Write Protect! unterbrochen wurde) 
837A 90 18 BCC $8394 wurde Diskette gewechselt ? 

837C A2 OB LDX #%0B ja, Fehlernummer für 'ID Mismatch Error! 
837E 2C .byte $2C nächste 2 Bytes überspringen (Bitbefehl) 


[Einsprung über Vektor : 8090/8098/80A4/80A8/8080/80B8/80C4 durch $8030] 
Fehler 'drive not ready’ ausgeben 

837F A2 4AF LDX #$4F Fehlernummer für 'drive not ready! 
[83C7/844A/84B4/8E42/8384 :8DBC] 

Befehls-Statusflags einblenden und mit Fehler ausgeben 

8381 20 E9 85 JSR $85E9 Byte für Ausgabe vorbereiten 

8384 20 81 85 JSR $8581 Meldung auf 1571 Bus ausgeben 

[84EE] eventuellen Fehler ausgeben (ansonsten Rücksprung) 

8387 EO 02 CPX #02 Nummer mit Wert für '!Ok! vergleichen 
8389 BO 01 BCS $838C ist ein Fehler gesetzt ? 

838B 60 RTS nein, zurück zur aufrufenden Routine 
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[8389/8484 /8568/875C] 

Fehlermeldung ausgeben (Nummer in X) 

838C 8A TXA Fehlernummer holen und 

838D 29 OF AND #80F reine Fehlernummer herstellen 

838F A2 00 LDX #%00 Puffernummer 0 setzen 

8391 4C OA E6 JMP $E6OA Klartextmeldung bereitstellen 

[837A] 

CP/M Sektor lesen 

8394 20 CE 81 JSR $8iCE 1571 Bus auf Ausgabe schalten 

8397 24 5E BIT $5E Befehls-Statusbyte holen 

8399 10 05 BPL $83A0 ist Flag für IBM-34 Diskette gesetzt ? 

839B A9Y 09 LDA #09 ja, Routine ab $8D67 ausführen 

8390, 4C E6 86 JUMP $86E6 (1BM-System-34 Sektor lesen) 

83101 20 3D C6 JSR $C63D Commodore-Diskette initialisieren 

83A3 58 CLI Bus- und Kontrolleraufruf einschalten 

83A4 A5 3B LDA $3B Befehlsnummer holen und Flag für 

83A6 29 20 AND #$20 ıSektor nicht lesen! testen | 
. 83A8 DO 26 BNE $83D0 soll nur der Puffer übertragen werden ? 

83AA AD 03 02 LDA $0203 nein, viertes Zeichen aus Befehlsstring 

83AD 85 06 STA $06 holen und als Spurnummer übernehmen | 

83AF AD 04 02 LDA $0204 fünftes Zeichen holen und als Sektor- 

83B2 85 07 STA $07 rummer des Jobs setzen 

83B4 A2 00 LDX #00 Puffer Nummer 0 anwählen 

83B6 A5 5F LDA $5F aktuellen Jobcode holen 

83B8 95 00 STA $00,X und an Jobschleife übergeben 

83BA 20 5E 86 JSR $865E Job ausführen 

83BD 78 SEI Bus- und Kontrolleraufruf abschalten 

83BE 20 E9 85 JSR $85E9 Rückmeldung für Ausgabe vorbereiten 

83C1 24 3B BIT $38 Flag für 'Fehlertest' prüfen 

8303 70 04 BVS $83C9 soll die Rückmeldung beachtet werden ? 

83C5 EO 02 CPX #802 ja, Rückmeldung des Jobs auf 'Ok! prüfen 

83C7_ BO B8 BCS $8381 ist der Job fehlerfrei verlaufen ? 

83c91 20 F9 85 JSR $85F9 ja, Rückmeldung auf 1571-Bus ausgeben 

83cC A5 3B LDA $3B Flag für '!Puffer ausgeben! testen 

83cE, 30 OD BMI $83DD Puffer an Rechner übertragen ? 

8200. AO 00 LDY #00 ja, Pufferzeiger zuf Beginn des Puffers 

83D2 B9 00 03 LDA $0300,Y Byte aus Puffer holen 

8305 85 46 STA $46 und als auszugebendes Zeichen setzen 

83D7 20 F9 85 JSR $85F9 Zeichen auf 1571-Bus ausgeben 


83DA C8 INY Pufferzeiger auf nächstes Byte richten 


Das große Flo 


83DB, DO F5 
830D CE 05 02 
83E0 FO 06 
83E2 20 1E 86 
83E5_ 4C A3 83 
83E8 58 

83E9 4C AF 85 
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BNE $83D2 schon der ganze Puffer übertragen ? 
DEC $0205 Ja, Zahl der zu lesenden Sektoren 
BEQ $83E8 schon alle Sektoren ? 
JSR $861E nein, Nummer des nächsten Sektors setzen 
JMP $83A3 nächsten Sektor lesen 
CLI Bus- und Kontrolleraufruf einschalten 
JMP $85AF neue Spur holen und setzen 


[Einsprung über Vektor in 8092/8082 durch Routine $8030] 
CP/M Sektor schreiben; vorher Fehlerprüfung 


83EC 8D 4D 02 
83EF AD OD 18 
83F2 4A 


STA $024D 
LDA $180D 
LSR A 

BCC $8402 
LDX #$0B 

„byte $2C 


Jobcode merken 

CA2 Eingang testen (Elektronik zeigt an, 
daß 'Write Protect! unterbrochen wurde) 
wurde Diskette gewechselt ? 

Ja, Fehlernummer für 'iD Mismatch Error! 
nächste 2 Bytes überspringen (Bitbefehl) 


[Einsprung über Vektor in 8094 durch Routine $8030] 


853F8 A2 AF 
853FA 86 46 


LDX #$4F 
STX $46 
LDA $3B 
ORA #%08 
STA $3B 


Fehlernummer für 'drive not ready! 
als auszugebendes Zeichen setzen 
Flag für 

Fehler aufgetreten’! 

in Befehlsnummer übertragen 


[83F3] 


CP/M Sektor schreiben 


8402 24 5E 
8404 10 05 
8406 A9 OA 
8408 4C E6 86 
840B 20 3D C6 
840E AS 3B 
8410, 30 29 
8412 78 

8413_ AO 00 
8415 AD 00 18 
8418 49 08 
841A 2C OD 40 
841D8D 00 18 
84201 AD 00 18 
8423 10 03 


BIT $5E 
BPL $840B 
LDA #80A 
JMP $86E6 
JSR $C63D 
LDA $3B 
BMI $843B 
SEI 

LDY #800 
LDA $1800 
EOR #808 
BIT $400D 
STA $1800 
LDA $1800 
BPL $8428 


Befehls-Statusbyte prüfen 


Flag für IBM-34 Diskette gesetzt ? 


ja, Routine ab $8DF6 ausführen 
(IBM-System-34 CP/M Sektor schreiben) 
Commodore-Diskette initialisieren 
Flag für 'Puffer von Rechner einlesen! 
ist Flag in Befehlsbyte gesetzt ? 

ja, Bus- und Kontrolleraufruf abschalten 
Pufferzeiger auf Pufferbeginn setzen 
Bussteuerregister holen 

Zustand des Clock-Ausgang wmschalten 
Interruptregister zurücksetzen 

neuen Clock-Ausgangsuwert setzen 
ATN-Eingang testen 

ist ATN gesetzt ? 
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8425 20 59 EA 


8428 
842B 
842D 
842F 
8432 
8435 
8436 
8438 
843B 
843C 
843E 
8440 
8442 
8444 
8446 
8448 
844 A 
844D 
8450 
8452 
8455 
8457 
8459 
845B 
845D 
8460 
8461 
8464 
8467 
BA6A 
 846D 
8470 
8471 


1 


AD 
29 
FO 
AD 
99 
c8 
DO 
20 
58 
A5 
29 
DO 
A5 
29 
FO 
A6 
4Cc 
AD 
85 
AD 


0D 40 
08 
F1 
OC 40 
00 03 


DD 
B7 EY 


3B 
20 
37 
3B 
08 
05 
46 
81 83 
03 02 
06 
04 02 
07 
00 
90 
00 
5E 86 


CE 81 
E9 85 
F9 85 
AD 86 
B2 81 


05 02 


IE 86 
12 84 


JSR $EA5Y 
LDA $400D 
AND #$08 

BEQ $8420 
LDA $400C 


STA $0300,Y 


INY 

BNE $8415 
JSR $E9B7 
CLI 

LDA $3B 
AND #820 
BNE $8479 
LDA $3B 
AND #808 
BEQ $844D 
LDX $46 
JMP $8381 
LDA $0203 
STA $06 
LDA $0204 
STA $07 
LDX #800 
LDA #890 
STA $00,X 
JSR $865E 
SEI 

JSR $81CE 
JSR $85E9 
JSR $85F9 
JSR $86A0 
JSR $81B2 
CLI 

BIT $3B 
BVS $8479 
CPX #802 
BCS $8484 
DEC $0205 


'BEQ $8487 


JSR $861E 
JMP $8412 
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ja, auf ATN-Kommandomodus prüfen 

Flag für 'Byte im seriellen Register 
empfangen! prüfen 

wurde ein Byte eingelesen ? 

ja, Byte holen 

und in Puffer 0 schreiben 
Pufferzeiger auf nächstes Byte richten 
Puffer schon voll ? 

ja, Clock-Ausgang auf Low setzen 

Bus- und Kontrolleraufruf einschalten 
_Befehlsbyte holen und Flag für 

ıSektor nicht schreiben! prüfen 
gesetzt ? 

nein, Flag für 'Fehler aufgetreten! 

in Befehlsnummer überprüfen 

soll Fehler ausgegeben werden ? 

Ja, Nummer des Fehlers holen 

und auf 1571-Bus ausgeben | 
viertes Zeichen aus Befehlsstring holen 
und als Spur für Jobschleife setzen 
fünftes Zeichen aus Befehlsstring holen 
und als Sektor für Jobschleife setzen 
Puffer 0 anwählen 

Jobeode für 'Sektor schreiben! 

an Jobschleife übergeben 

und ausführen | 

Bus- und Kontrolleraufruf abschalten 
1571-Bus auf Ausgang schalten 
Rückmeldung für Ausgabe vorbereiten 
Byte auf 1571-Bus ausgeben 

auf Umspringen von Clock warten 
1571-Bus auf Eingang schalten 

Bus- und Kontrolleraufruf einschalten 
Flag für 'Fehler testen! prüfen 

soll Fehlerrückmeldung beachtet werden ? 
ja, Fehlernumer testen 

ist Job fehlerfrei verlaufen ? 

ja, Zähler für Sektoren 

noch einen Sektor ? 

ja, neue Sektornummer errechnen 
Routine nochmal durchlaufen 


Das 


84841 4c 8C 83 


8488 
8488 


roße Flo 


38 
4C AF 85 
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JMP $838C zurück zur Befehlswarteschleife 
CLI Bus- und Kontrolleraufruf einschalten 
JMP $85AF neue Spur setzen und Ende 


[Einsprung über Vektor 8096/8086 der Routine $8030] 
nächsten CP/M Sektorheader lesen (zuerst System-34, dann Commodore-Format) 


848B 
848E 
8490 
8492 
8494 
8497 
8499 
849C 
8LYF 
84A1 
84 A3 
84 A5 
84 A7 
84A9 
B4AC 
84AE 
84B1 
84B2 


84B4 4C 81 83 


AD 02 02 
29 01 

DO 20 
A9 01 

8D OD 18 
A9 05 

20 E6 86 
AE BO 01 
EO 02 

90 11 

A2 00 

86 5E 

A9 BO 

8D 4D 02 
95 00 

20 5E 86 
2C 

A2 4F 


LDA $0202 
AND #01 
BNE $84B2 
LDA #$01 
STA $180D 
LDA #$05 
JSR $86E6 
LDX $01B0 
CPX #802 
BCC $84B4 
LDX #%00 
STX $5E 
LDA #%B0 
STA $024D 
STA $00,X 
JSR $865E 
„byte $2C 
LDX #$4F 
JMP $8381 


Jobceode holen 

und Laufwerksnummer daraus herstellen 
ist Laufwerk 0 angesprochen ? 

ja, Flag für 'Write Protect wurde unter- 
brochen! (Diskwechsel) löschen 

Routine ab $8A09 ausführen 
(1BM-System-34 Sektorheader lesen) 
Rückmeldung holen und mit 

Wert für 'Ok'! vergleichen 

ist ein Fehler aufgetreten ? 

ja, Befehls-Statusbyte 

Löschen 

Jobcode für !'Sektor suchen! 

merken und an 

Jobschleife übergeben 

Job ausführen 

nächste 2 Bytes überspringen (Bitbefehl) 
Fehlernummer für 'drive not ready’! 
Rückmeldung ausgeben und nächsten Befehl 


[Einsprung über Vektor 809A/809C/80BA/80BC durch Routine $8030] 
CP/M Diskette formatieren 


8487 
84BA 
84BC 
84BE 
8401 
8403 
8405 
84C8 
BACA 
84CC 
_ 84CE 
84D1 
8403 


AD 02 02 
29 01 
DO 2B 
AD 03 02 
10 05 
A9 08 
4C E6 86 
A9 00 
85 5E 
85 FF 
AD 04 02 
85 12 
AD 05 02 


LDA $0202 
AND #%01 
BNE $84E9 
LDA $0203 
BPL $84C8 
LDA #$08 
JMP $86E6 
LDA #800 
STA $5E 
STA $FF 
LDA $0204 
STA $12 
LDA $0205 


Jobcode holen und 

angesprochenes Laufwerk feststellen 
soll auf Laufwerk O0 formatiert werden ? 
ja, Flag für Diskettentyp holen 

ist Commodore-Format gewünscht ? 

nein, Diskette in "IBM System 34' 
formatieren (Routine $8C57) 
Befehls-Statusbyte 

Löschen 

Laufwerksstatus auf 'bereit' setzen 
fünftes Zeichen aus Befehlsstrings holen 
und als erstes ID-Zeichen übernehmen 


‚sechstes Zeichen aus Befehlsstring holen 


85 13 

20 07 D3 
A9 01 

85 80 
A9 FF 

80 98 02 
20 89 AY 
AA 

2C 

A2 4F 
20 E9 85 
4C 87 83 


STA $13 
JSR $D307 
LDA #01 
STA $80 
LDA #$FF 
STA $0298 
JSR $A9Y8I 
TAX 

„byte $2C 
LDX #84F 
JSR $85E9 
JMP $8387 
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und als zweites Zeichen der ID speichern 
alle Kanäle schließen 

'Spurnummer 1 als 

aktuellen Spur setzen 

Diskette in 1571/1541-Format formatieren 
Rückmeldung holen 

und für Ausgabe vorbereiten 

Meldung auf 1571-Bus ausgeben und Ende 
nächste 2 Bytes überspringen (Bitbefehl) 
Fehlernummer für 'drive not ready! 

Byte für Ausgabe vorbereiten 
Fehlermeldung bereitstellen 


[Einsprung über Vektor 809C/80A0 durch Routine $8030] 
CP/M Sektorversatz holen / setzen 


84F1 
84F2 
84F4 
84F6 
84F9 
84 FB 
84FD 
8500 
8503 
8505 
8507 
8509 
850C 
850E 
8511 
8514 
8516 


78 

24 3B 

10 0A 

20 CE 81 
AS 3C 

85 46 

4C F9 85 
AE 74 02 


EO 04 


BO OA 

A2 0E 

20 E9 85 
A9 31 

4c c8 ci 

AD 03 02 

85 3C 

60 


SEI 

BIT $3B 
BPL $8500 
JSR $81CE 
LDA $3C 
STA $46 
JMP $85F9 
LDX $0274 
CPX #504 
BCS $8511 
LDX #$0E 
JSR $85E9 


JMP $C1C8 
LDA $0203 
STA $3C 
RTS 


LDA 


Bus- und Kontrolleraufruf abschalten 
Befehlsnummer testen 
soll Sektorversatz gelesen werden ? 
ja, 1571-Bus auf Ausgang schalten 
Sektorversatz holen und 
als auszugebendes Byte speichern 
Byte auf 1571-Bus ausgeben 
Länge des Befehlsstrings feststellen 
und prüfen ob genau drei Zeichen lang 
sind genau 3 Zeichen im Puffer ? 
ja, Fehlernummer für 'Syntax Error! 
Fehler für Ausgabe vorbereiten 

#31 Fehlermeldung 
13] Syntax Error' bereitstellen 
Byte aus Befehlsstring holen (4.Zeichen) 
und als neuen Sektorversatz übernehmen 
zurück zur aufrufenden Routine 


[Einsprung über Vektor in 80A2/80C2 durch Routine $8030] 
CP/M Sektorheader einlesen und Sektorenfolge feststellen 


8517 
851A 
851c 
851E 
8520 
8523 


20 8B 84 
24 5E 

10 48 

A9 OD 

20 E6 86 
AE BO 01 


JSR $848B 
BIT $5E 
BPL $8566 
LDA #%$0D 
JSR $86E6 
LDX $01B0 


nächsten Header lesen 
Befehls-Statusbyte auf IBM Flag testen 
ist Flag für IBM-34 Diskette gesetzt ? 
ja, Routine $8F5F ausführen 

(Tabelle der Sektorenfolge erstellen) 
Rückmeldung holen und mit 


Das 


8526 
8528 
852A 
852D 
8530 
8531 
8532 
8533 
8536 
8538 
853A 
853D 
8540 
8542 
8544 
8546 
8548 
854B 
854D 
854F 
8552 
8554 
8556 
8559 
855B 
855D 
8560 
8561 


roße Flo 


EO 02 
BO 08 
20 61 89 
20 86 89 
BA 

48 
78 
20 CE 81 
A5 SE 
85 46 
20 F9 85 
AE BO 01 
EO 02 
BO 23 
A5 97 
85 46 
20 F9 85 
a5 67 
85 46 
20 F9 85 
A5 60 
85 46 
20 F9 85 
A5 61 
85 46 
20 F9 85 
68 
85 46 
20 F9 85 
60 
68 
4C 8C 83 
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CPX #02 Wert für '!Ok! vergleichen 
BCS $8532 ist ein Fehler aufgetreten ? 
JSR $8961 nein, kleinsten und größten Sektor holen 
JSR $8986 Sektorversatz errechnen 
TXA Sektorversatz holen 

PHA und merken 

SEI Bus- und Kontrolleraufruf abschalten 
JSR $81CE 1571 Bus auf Ausgang schalten 
LDA $5E Befehlsstatusbyte holen und als 
STA $46 auszugebendes Zeichen setzen 
JSR $85F9 Byte auf 1571-Bus ausgeben 
LDX $01B0 Fehlernummer nochmals holen 
CPX #802 und mit Wert für '!Ok! vergleichen 
BCS $8567 ist ein Fehler aufgetreten ? 
LDA $97 nein, Zahl der Sektoren der Spur als 
STA $46 auszugebendes Zeichen setzen 
JSR $85F9 Byte auf 1571-Bus ausgeben 
LDA $67 Nummer der gelesenen Spur als 
STA $46 auszugebendes Zeichen setzen 
JSR $85F9 Byte auf 1571-Bus ausgeben 
LDA $60 kleinste Sektornummer als 
STA $46 auszugebendes Zeichen setzen 
JSR $85F9 Byte auf 1571-Bus ausgeben 
LDA $61 größte Sektornummer als 
STA $46 auszugebendes Zeichen setzen 
JSR $85F9 Byte auf 1571-Bus ausgeben 
PLA Sektorversatz holen und als 
STA $46 auszugebendes Zeichen setzen 
JSR $85F9 Byte auf 1571-Bus ausgeben 
RTS zurück zur aufrufenden Routine 
PLA Stack wieder herstellen 
JMP $838C Fehlermeldung ausgeben 


[Einsprung über Vektor in 80A6& durch Routine $8030] 
Befehls-Statusbyte holen / setzen; Fehlernummer holen 


856B 
856D 
856F 
8571 
8573 
8576 


24 3B 

10 27 

24 3B 

50 0E 

AD OD 18 
4A 


BIT $3B 
BPL $8596 
BIT $38B 
BVC $8581 
LDA $180D 
LSR A 


Befehlsnummer testen 
Befehls-Statusbyte holen ? 

Flags in Befehlsnummer testen 

soll Diskettenwechsel geprüft werden ? 
ja, Signal von Elektronik für 'Write- 
Protect wurde unterbrochen! testen 


238 Das _Disk-Operating-System (DOS) 


am nm num nn un nn mn m mn mE m m m m m HE a a mn Sn m a TH ES TC SS nn m nn m an mn m 


Befehls-Statusbyte setzen 


8596 AD 03 02 
8599 85 5E 
859B 24 3B 
8590 50 05 
859F AI 01 
85A1_ 8D 0D 18 
85A4 60 


LDA $0203 
STA $5E 
BIT $3B 
BVC $85A4 
LDA #%01 
STA $180D 
RTS 


8577 90 08 BCC $8581 wurde die Diskette gewechselt ? 
8579 A5 5E LDA $5E Befehls-Statusbyte holen 
857B 29 FO AND #$F0 und Flags herstellen 
857D 09 OB ORA #%0B Fehlernummer für 'ID Mismatch'! setzen 
857F 85 5E STA $5E in Statusbyte übernehmen 
[8384/8571/8577] 
Befehls-Statusbyte ausgeben 
8581 78 SEI Bus- und Kontrolleraufruf abschalten 
8582 20 CE 81 JSR $8ICE 1571 Bus auf Ausgang schalten 
8585 AS 5E LDA $5E Statusbyte als auszugebendes 
8587 85 46 STA $46 Zeichen setzen 
8589 20 F9 85 JSR $85F9 Byte auf 1571 Bus ausgeben 
858C A9 00 LDA #800 Flag für Fehler (Blinkzähler) 
858E 8D 6C 02 STA $026C Löschen 
8591 20 B2 81 JSR $81B2 1571 Bus auf Eingang schalten 
8594 58 CLI Bus- und Kontrolleraufruf einschalten 
8595 60 RTS zurück zur aufrufenden Routine 


4. Zeichen aus Befehlsstring holen 

und als Befehls-Status übernehmen 

Flags aus Befehlsnummer testen 

soll Diskwechsel beachtet werden ? 

ja, Flag für Diskwechsel (Write Protect 
unterbrochen) initialisieren 

zurück zur aufrufenden Routine 


[Einsprung über Vektor in 80AA/80AC durch Routine $8030] 
'Syntax Error! ausgeben | 


85A5 A2 0E 
85A7 20 E9 85 
85AA AY 31 
85AC 4C C8 ci 


[83E9/8488] 


LDX #$0E 
JSR $85E9 
LDA #$31 
JMP $CIC8 


neue Spur ansteuern 


85AF AD 74 02 
85B2 C9Y 07 
85B4 90 32 
8586 A5 06 


LDA $0274 
CMP #807 
BCC $85E8 
LDA $06 


Fehlernummer setzen 

Byte für Ausgabe vorbereiten 
Fehlermeldung 

13] Syntax Error! ausgeben 


Länge des Befehlsstring holen 

und auf 7 Zeichen prüfen 

hat Befehlsstring mind. 7 Zeichen ? 
ja, Nummer der letzten Spur holen 
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85B8 AB TAY und merken 
8569 EY 01 SBC #%01 daraus aktuelle Position des Kopfes 
85BB DA ASLA in Halbschritten errechnen 
85BC 85 64 STA $64 und setzen 
85BE CO 24 CPY #$24 war letzte Spur auf der 2. Seite 
85C0 08 PHP Ergebniss der Prüfung merken 
85C1 AC 06 02 LDY $0206 7. Zeichen aus Befehlsstring holen 
85C4 84 22 STY $22 und als aktuelle Spur setzen 
85C6 88 DEY daraus Zielspur -1 
8507 84 67 STY $67 errechnen und setzen 
85C9 CO 23 CPY #823 ist neue Spur auf Seite 2 der Diskette ? 
85CB 6A ROR A Ergebniss in Bit? schieben 
8SScC 28 .- PLP ' vorheriges Ergebniss wieder holen 
85CD 29 80 AND #%80 und letztes Ergebniss bereitstellen 
85CF 90 OB - BCC $85DC letzte Spur auf Seite 2 (Bit =1) ? 
85D1 30 12 BMI $85E5 ja, neue Spur auf Seite 2 (Bit =1) ? 
8503 18 CLC nein, neue Spur 
85D4 AS 67 LDA $67 auf Seite 2 
85D6 69 23 ADC #823 umrechnen und 
. 85D8 85 67 STA $67 setzen 
85DA, 30 09 BMI $85E5 immer Sprung 
sspcl 10 07 BPL $85E5 nach $85E5 
85DE 38 SEC neue Spurnummer 
85DF A5 67 LDA $67 auf Seite 1 
85E1 EY 23 SBC #$23 umrechnen und 
85E3_ 85 67 STA $67 merken 
85E5” 4C BA 87 JMP $87BA Spur ansteuern 
85E8 60 RTS zurück zur aufrufenden Routine 


[8381/83BE/8464/84EB/8509/85A7/8D64/80B1/8EA3] 
Fehlerbyte für Ausgabe vorbereiten 


85E9 86 46 STX $46 Fehlernummer merken 

85EB A5 5E LDA $5E Befehls-Statusbyte holen 

85ED 29 FO AND #$F0O und Flags isolieren 

8SEF 05 46 ORA $46 Fehlernummer übernehmen und Wert 
85F1 85 5E STA $5E als neuen Status sowie 

85F3 85 46 STA $46 als auszugebendes Zeichen setzen 
85F5 60 RTS zurück zur aufrufenden Routine 


[8603] Byte auf 1571 Bus ausgeben Ä 
85F6 20 59 EA JSR $EA59 auf ATN-Kommandomodus prüfen 
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[83C9/8307/8467/84FD/853A/8548/854F/8556/855D/8563/8589/85FF/8609] 
[8DBF/8DD4/8EA6] 
Byte auf 1571 Bus ausgeben 


85F9 AD 00 18 LDA $1800 Bussteuerregister holen und warten 
85FC CD 00 18 CMP $1800 bis Leitungszustand konstant bleibt 
85FF DO FB BNE $85F9 Liegt konstanter Wert an ? 

8601 29 FF AND #$FF ja, Prozessorflags (N/Z) neu setzen 
8603 30 F1 BMI $85F6 ist ATN gesetzt ? 

8605 45 37 EOR $37 nein, Busstatus holen und 

8607 29 04 AND #804 Flag für Clock testen 

8609 FO EE BEQ $85F9 ist Clock gesetzt ? 

860B A5 46 LDA $46 ja, auszugebendes Zeichen holen und 
860D 8D OC LAD STA $400C in serielles Ausgaberegister übertragen 
8610 A5 37 LDA $37 Flag für Clock-holen 

8612 49 04 EOR #804 und invertieren 

8614 85 37 STA $37 Flag wieder speichern 

8616 AY 08 LDA #808 Bitflag für '!Register ausgegeben! 
86181 2C 0D 40 BIT $400D überprüfen 

8618 FO FB BEQ $8618 ist Byte vollständig ausgegeben ? 

861D 60 RTS ja, zurück zur aufrufenden Routine 

[83E2/847E] 

Nummer des nächsten IBM-34-Sektors errechnen 

861E AD 03 02 LDA $0203 Spurnummer aus Befehlsstring holen 
8621 CY 24 CMP #824 und mit max. Spur +1 vergleichen 
8623 90 02 BCC $8627 ist Spur auf Seite 2 ? 

8625. E9 23 SBC #%23 ja, Spur auf Seite 1 

8627 MA TAX ‚umrechnen und setzen 

8628 BD 2B 94 LDA $942B,X Zahl der Sektoren der Spur feststellen 
8628 AA TAX und merken 

862C CA DEX daraus max. Sektornummer herstellen 
862D 86 46 STX $46 und merken 

862F 18 CLC neue Sektornummer setzen : 

8630 AD 04 02 LDA $0204 Sektornummer aus Befehlsstring 

8633 65 3C ADC $3C Sektorversatz dazurechnen 

8635 C5 46 CMP $46 mit max. Nummer vergleichen 

8637 90 OA BCC $8643 ist der erlaubte Bereich überschritten ? 
8639 ES 46 SBC $46 ja, Nummer auf gültigen Bereich setzen 
863B FO 04 BEQ $864 1 letzten Sektor angewählt ? 


863D 38 SEC ja, dann Sektornummer errechnen 


Das_ große Floppybuch 1571/70 241 


863E 
8640 
864 1 
8643 
8646 
8648 
864 A 


E9 01 

2C 

A5 46 

8D 04 02 
A9 88 

85 5F 

60 


SBC #%01 
„byte $2C 
LDA $46 
STA $0204 
LDA #$88 
STA $5F 
RTS 


(da Sektor DO auch existiert ) 

nächste 2 Bytes überspringen (Bitbefehl) 
ersten errechneten Wert holen und 
aktuelle Sektornummer merken 

'Sektor auf aktueller Spur lesen! 

als aktuellen Jobcode übergeben 

zurück zur aufrufenden Routine 


[Y10E] 


Job ausführen 


864B 
864D 
864E 
864 F 
8652 
8654 
8656 
8659 


A6 F9 

08 

58 

20 B6 9F 
c9 02 

90 05 

20 83 86 
B5S 00 


LDX $F9 


Nummer des aktuellen Puffers 
Prozessorstatus retten 

Bus- und Kontrolleraufruf einschalten 
Jobschleife starten und Job ausführen 
Rückmeldung mit 'Ok! vergleichen 

ist Job fehlerfrei verlaufen ? 

nein, weitere Versuche durchführen 
Rückmeldung holen 

und merken 

Prozessorstatus wieder herstellen 
zurück zur aufrufenden Routine 


[83BA/845D/84AE] 


Jobschleife starten und Job für Puffer 0 ausführen 


865E 
8660 
8661 
8662 
8665 
8667 
866A 
866B 
 B66E 
8670 
8672 
8675 
8676 
8679 
867B 
867E 
8680 


A2 00 
08 
78 


LDX #800 

PHP 

SEI 

LDA $1C00 
ORA #808 

STA $1C00 
CLI 

JSR $9FB6 
CMP #802 

BCC $8675 
JSR $8683 
SEI 

LDA $1C00 
AND #8F7 

STA $1C00 
LDA $00,X 
TAX. 


Puffernummer festlegen 
Prozessorstatus merken 

Bus- und Kontrolleraufruf abschalten 
Laufwerkssteuerregister holen 

und Bit für LED setzen 

LED anschalten 

Bus- und Kontrolleraufruf einschalten 
Jobschleife starten und Job ausführen ° 
Rückmeldung auf 'Ok! prüfen 

ist Job fehlerfrei verlaufen ? 

nein, erneute Versuche ausführen 

Bus und Kontrolleraufruf abschalten 
Steuerregister holen 

und LED-Bit löschen 

LED ausschalten 

Rückmeldung des letzten Versuchs 
holen und merken 
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8681 28 PLP Prozessorstatus wieder herstellen 
8682 60 RTS zurück zur aufrufenden Routine 
[8656/8672] 

weitere Versuche den Job auszuführen 

8683 A9 FF LDA #$FF Flag für 

8685 80 98 02 STA $0298 ıFehler bei Jobausführung'! setzen 
8688 86 F9 STX $F9 Puffernummer des Jobs merken 

868A AD 02 02 LDA $0202 Jobcode holen 

8680 85 5F STA $5F und als aktuellen Jobcode 

868F 8D LAD 02 STA $024D merken 

8692 90 5B 02 STA $0258B,X Jobcode dem Puffer zuordnen 

8695 85 00 STA $00 und als Job für Puffer 0 

8697 20 B6 9F JSR $Y9FB6 an Jobschleife übergeben 

869A 4C 99 D5 JUMP $D599 Jobausführung kontrollieren 

geon 20 59 EA JSR $EA5Y auf ATN-Kommandomodus testen 


[846A/86A6/86B0/8EAY] 
Auf Umspringen des Clock-Eingangs warten 


86AD AD 00 18 LDA $1800 Bussteuerregister holen 

86A3 CD 00 18 CMP $1800 und mit Wert vom 2. Lesen vergleichen 
86A6 DO F8 BNE $86A0 ist Zustand des Registers konstant ? 
86A8 29 FF AND #$FF Prozessorflags (N/Z) setzen 

86AA 30 Fi BMI $869D ist ATN gesetzt ? 

86AC 45 37 EOR $37 nein, Clock-Wert mit Wert vom letzten 
86AE 29 04 AND #804 Aufruf der Routine vergleichen 

86B0 FO EE BEQ $836A0 hat er sich geändert ? 

86B2 AS 37 LDA $37 ja, dann Flag holen 

86B4 49 04 EOR #804 und auch umdrehen 

86B6 85 37 STA $37 Flag wieder merken 

86B8 60 RTS zurück zur aufrufenden Routine 


[Tabelle wird verwendet in 86E9] 
Steuerbytes für Funktionen vor Aufruf der IBM-34 Routinen 


Funktion der einzelnen Bits (Bit=1 heißt "Funktion aktivieren!) : 

bit0O Fehler bei Jobausführung nicht ausgeben 

biti nächsten Header lesen und Kopf nach gelesener Spur setzen 

 bit2 Warten bis Motor läuft und Kopf auf Position ist (Spur und Seite) 
bit3 Kopf auf neue Spur ($67) positionieren 
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bit4 Laufwerksmotor anschalten 

 bit5 Write Protect prüfen 

bit6 Sektornummer aus Befehlsstring übernehmen 
bit? Wert für neue Spur setzen ($67) 


86B9 00 %00000000 keine Zusatzfunktionen 

86BA 15 %00010101 Motor an/warten/keine Fehlermeldung 
86BB 00 %00000000 keine Zusatzfunktionen 

86BC 00 %00000000 keine Zusatzfunktionen 

86BD 00 %00000000 keine Zusatzfunktionen 

86BE 15 %00010101 Motor an/warten/keine Fehlermeldung 
86BF 00 %00000000 keine Zusatzfunktionen 

86C0 BC %10111100 Spur/WP prüfen/Motor an/Kopf/warten 
8601 34 %00110100 WP prüfen/Motor an/warten 

86C2 DE %11011110 Spur/Sektor/Motor an/Kopf/Header 
86C3 FE %11111110 Spur/Sektor/WP prüfen/Motor an/Kopf/Header 
86C4 DC %11011100 Spur/Sektor/Motor an/Kopf/warten 
86C5 15 %00010101 Motor an/warten/keine Fehlermeldung 
86C6 15 %00010101 Motor an/warten/keine Fehlermeldung 
86C7 00 %00000000 keine Zusatzfunktionen 


(Tabelle wird verwendet in 873F] 
' Adressen der Routinen für Diskettem im IBM-System-34 Format 


86C8 EC 89 0/00 $89EC Reset ausführen ($EAA0) 

86CA EF 89 1/09 $S89YEF Kopf auf Spur 0 zurücksetzen 
86CC FD 89 2/02 $89YFD "Write Protect! prüfen 

B6CE 03 8A 3/0 $8A03 Spurparameter übernehmen 

86D0 08 8A 4/04 $8A0O8 keine Funktion (rts) 

8602 09 8A 5/0 $8A09 nächsten IBM-34 Header lesen 
86D4 BA 87 6 / 06 $87BA keine Funktion (rts) 

8606 86 BA 7/07 $8A86 Spur "IBM System 34' formatieren 
86D8 57 8C 8/08 $8C57 IBM-34 Diskette formatieren 
8609 67 8D 9/0 $8067 IBM-34 Sektor lesen 

86DC F6 8D 10 / 0A $8DF6 IBM-34 Sektor schreiben 

86DE C6 BE 11 / 0B $8EC6 IBM-34 Sektor verify 

86E0 18 8F 12 / 0C $8F18 IBM-34 Sektor auf Leerbyte prüfen 
86E2 5F BF 13 / OD $8F5F IBM-34 Sektorfolge ermitteln 


86E4 B3 89 14 / 0E $89B3 IBM-34 Spur initialisieren 
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Routine um IBM-34 Funktionen aufzurufen (Nummer im Akku) 


86E6 
86E7 
86E8 
86E9 
86EC 
. 86EE 
86F0 
86F2 
86F4 
86F6 
86F8 
86FB 
86FD 
86FF 
8701 
8704 


87061 


8708 
870A 
870D 
870F 
8711 
8713 
8715 
8717 
8719 
871B 
871D 
871F 
8722 
8724 
8726 
8729 
872B 
872D 
8730 
8733 
8735 
8737 


l 


78 

48 

AA 

BD BY 86 
85 1B 

A5 5E 

09 80 

85 5E 

06 1B 

90 05 

AD 03 02 
85 67 

06 1B 
90 05 

AD 04 02 
85 43 

06 1B 
90 11 

AD 00 IC 
29 10 

DO OA 

AS 3B 

09 08 

85 3B 

A2 08 

86 46 

06 1B 

90 03 

20 94 87 
06 1B 
90 03 

20 BA 87 
06 1B 
90 03 

20 BO 87 
20 54 89 
06 1B 

90 03 

20 2A 89 


SEI 
PHA 
TAX 


LDA $86B9 ‚X 


STA $1B 
LDA $5E 
ORA #380 
STA $5E 
ASL $1B 
BCC $86FD 
LDA $0203 
STA $67 
ASL $1B 
BCC $8706 
LDA $0204 
STA $43 
ASL $1B 
BCC $871B 
LDA $1C00 
AND #810 
BNE $871B 
LDA $38B 
ORA #808 
STA $3B 
LDX #$08 
STX $46 
ASL $1B 
BCC $8722 
JSR $8794 
ASL $1B 
BCC $8729 
JSR $87BA 
ASL $1B 
BCC $8730 
JSR $878B0 
JSR $8954 
ASL $1B 
BCC $873A 
JSR $892A 


Bus- und Kontrolleraufruf abschalten 
Nummer der aufzurufenden Routine merken 
und entsprechendes 

Steuerbyte der Routine holen 

und speichern 

Flag für IBM-34 Format 

in Befehls-Statusbyte 

setzen 


Bit7 des Steuerbytes prüfen 


gesetzt ? 

ja, Nummer der anzusteuernden Spur 
holen und Zeiger setzen 

Bit6 des Steuerbytes prüfen 

gesetzt ? 

ja, Nummer des gewünschten Sektors 
holen und merken 

Bit5 des Steuerbytes prüfen 

gesetzt ? 

Bussteuerregister holen und 

Bit für 'Write Protect! testen 

ist ein Schreibschutz vorhanden ? 
ja, Flag für 

'Schreibschutz angebracht! 

setzen 

Fehlernummer für 'Write Protect On! 
als auszugebendes Zeichen merken 
Bit4 des Steuerbytes prüfen 

gesetzt ? 

ja, Laufwerks-Motor anschalten 

Bit3 des Steuerbytes prüfen 

gesetzt ? 

ja, Zielspur aus ($67) ansteuern 
Bit2 des Steuerbytes prüfen 

gesetzt ? 

warten bis Kopf und Motor bereit sind 
Kopf auf aktueller Seite aktivieren 
Biti des Steuerbytes prüfen 

gesetzt ? 

ja, IBM-34 Header lesen und Kopf setzen 
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Prozessor-Statusregister löschen 
Nummer des aufzurufenden Programms 
holen und verdoppeln (da Adress-Tabelle 
aus 2-Byte-Zeigern besteht) 
Programm-Adresse (Low-Byte) aus Tabelle 
ermitteln und in Zeiger setzen 
High-Byte holen und 

merken 

Programm ausführen 

Motor ausschalten (Flag setzen) 
Rückmeldung des letzten Jobs holen 

und mit Wert für 'Ok'! vergleichen 
Ergebnis merken 

BitO des Steuerbytes prüfen 

gesetzt ? 

nein, Ergebnis der Fehlerprüfung holen 
ist Job fehlerfrei ausgeführt worden ? 
nein, Fehler ausgeben und Ende 

Ergebnis der Fehlerprüfung bereitstellen 
zurück zur aufrufenden Routine 

IBM-34 Routine ausführen 


Prozessorstatus retten 

Bus- und Kontrolleraufruf abschalten 
Bussteuerregister holen 

und Bit für 'Motor an! setzen 
Register wieder speichern 
Prozessorstatus wieder herstellen 
zurück zur aufrufenden Routine 


Das große Flo 

87311 A9 00 LDA #800 

873C 68 PLA 

873D OA ASL A 

873E AA TAX 

873F BD C8 86 LDA $86C8,X 

8742 85 6F STA $6F 

8744 BD CY 86 LDA $86C9,X 

8747 85 70 STA $70 

8749 20 61 87° JSR $8761 

874C 20 8F F9 UJSR $FYEF 

874F AE BO 01 2 LDX $01B0 

8752 EO 02 CPX #802 

8754 08 PHP 

8755 06 1B ASL $1B 
"8757 BO 06 BCS $875F 

8759 28 PLP 

875A 90 04 BCC $8760 

875C, 4C 8C 83 JMP $838C 

875F_ 28 PLP 

8760 60 RTS 

8761 6C 6F 00 JMP ($O06F) 

[87A3/99E7/A642/BFS1] 

Laufwerksmotor einschalten 

8764 08 PHP 

8765 78 SEI 

8766 AD 00 IC LDA $1C00 

8769 09 04 ORA #$04 

876B 8D 00 IC STA $1C00 

8’6E 28 PLP 

876F 60 RTS 

[Y9YFB/YA39Y/A654/BFS4] 

Laufwerksmotor ausschalten 

8770 08 PHP 

8771 78 SEI 

8772 AD 00 IC LDA $1C00 

8775 29 FB AND #$FB 

8777 8D 00 IC STA $1C00 

877A 28 PLP 

877B 60 RTS 


Prozessorstatus retten 

Bus- und Kontrolleraufruf abschalten 
Bussteuerregister holen und 

Bit für 'Motor an! löschen 
Steuerregister wieder setzen 
Prozessorstatus wieder herstellen 
zurück zur aufrufenden Routine 
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[884 F] 


87’C 
877D 
87’E 


[8861] 


vgl. C100/C118 
LED am Laufwerk einschalten 


08 

78 

AD 00 IC 
09 08 

8D 00 IC 
28 


PHP 
SEI 
LDA $1C00 
ORA #%08 
STA $1C00 
PLP 


LED am Laufwerk ausschalten 


8788 
8789 
878A 


_18B7IF] 


Motor anschalten 


8794 
8795 
8796 
8798 
879A 
879C 
879F 
87A1 
87A3 
87A6 
87A8 


08 

78 

AD 00 IC 
29 F7 

8 00 IC 
28 


08 

78 

AS 20 

c9 20 

FO OE 

AD 02 02 
29 01 

85 3E 

20 64 87 
A9 AO 

85 20 

A9 32 
85 48 

28 

60 


PHP 
SEI 
LDA $1C00 
AND #$F7 


Prozessorstatus retten 

Bus- und Kontrolleraufruf abschalten 
Bussteuerregister holen 

und Bit für 'LED an! setzen 

Register wieder speichern 
Prozessorstatus wieder herstellen 
zurück zur aufrufenden Routine 


Prozessorstatus retten 

Bus- und Kontrolleraufruf abschalten 
Bussteuerregister holen 

und Bit für 'LED an! löschen 
Steuerregister wieder setzen 
Prozessorstatus wieder herstellen 
zurück zur aufrufenden Routine 


und Flags initialisieren 


PHP 

SEI 

LDA $20 
CMP #820 
BEQ $87AA 
LDA $0202 
AND #801 
STA $3E 
JSR $8764 
LDA #$A0 
STA $20 
LDA #$32 
STA $48 
PLP 

RTS 


Prozessorstatus retten 


Bus- und Kontrolleraufruf abschalten 
Laufwerksstatus holen 

und auf 'Motor läuft! prüfen 

ist der Motor schon aktiv ? 

nein, Jobcode der Routine holen 

und gewünschtes Laufwerk feststellen 
Nummer als aktuelles Laufwerk setzen 
Motor anschalten 

Laufwerksstatus auf 

ıMotor an/noch nicht auf Drehzahl! 
zähler für Hochlaufzeit des 

Motors setzen 

Statusregister wieder holen 

zurück zur aufrufenden Routine 
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[8720] 

Warten bis Motor auf Drehzahl ist und Kopf auf Position steht 

87B0 08 PHP Status retten 

8781, 58 CLI Bus- und Kontrolleraufruf einschalten 
87B2 AS 20 LDA $20 Laufwerksstatus holen und auf 

87B4 C9Y 20 CMP #%20 ikein Stepper / Laufwerk bereit! prüfen 
87B6 DO FA BNE $87B2 Laufwerk bereit ? 

87B8 28 PLP ja, Status wieder herstellen 

8789 60 RTS zurück zur aufrufenden Routine 


[85E5/8726/8927/894C/89FA/8DOA/8D3A/8D51/8F6D] 
Neue Spur ansteuern 


87BA 08 PHP Status retten 
878B 58 .CLI Bus- und Kontrolleraufruf einschalten 
878C AS 67 LDA $67 Nummer der neuen Spur holen und Zahl 
87BE DA ASL A der absoluten Halbschritte errechnen 
87BF C5 64 CMP $64 mit aktueller Kopfposition vergleichen 
87C1_ FO 1A BEQ $87DD identisch ? 
87C3” AS 67 LDA $67 nein, Nummer der neuen Spur holen und 
87C5 DA ASLA und Halbschritte errechnen 
87C6 C5 64 CMP $64 mit aktuellem Zählerstand vergleichen 
87C8 FO 0E BEQ $87D8 identisch ? 
87CA BO 06 BCS $8702 nein, ist akt. Zähler größer Zielpos. ? 
87CccC 20 E7 87 _ JSR $87E7 ja, einen Halbschritt nach außen 
8’7CcF_ 4C C3 87° JMP $87C3 weiter bis Spur erreicht 
87D2 20 DF 87 _ UJSR $87DF einen Halbschritt nach außen 
8705, 4C C3 87 _ JMP $87C3 weiter bis Spur erreicht 

:87D8 AO 10 LDY #810 Zähler initialisieren 
87DA. 20 29 88 JSR $8829 40/20 ms Verzögerung (1/2 MHz Takt) 
8701 28 PLP Status wieder herstellen 
87DE 60 RTS zurück zur aufrufenden Routine 
[8702] 
einen Halbschritt nach innen 
87DF AS 64 LDA $64 aktuelle Position feststellen 
87E1 18 CLC Addition vorbereiten 
87E2 69 01 ADC #801 einen Halbschritt addieren 


87E4 4C 14 88 JUMP $8814 Steppermotor ansteuern 


248 Das Disk-Operatinge-System (DOS 


[87E7] vgl. 9A66/FF45 
einen Halbschritt nach außen 


87E7, AO 63 LDY #863 Zahl der Abtastversuche für SpurO (99) 
g7e9! AD OF 18 LDA $180F Steuerregister A holen 

S’EC 6A ROR A Spur0-Kennung (bitO0) ins Carry 

8’7’ED 08 PHP und Carry merken 

87’EE AD OF 18 LDA $180F Steuerregister nochmal lesen 

87Fi 6A ROR A Spur0-Kennung (BitO0) 

8’7F2 6A ROR A nach Bit7 schieben 

87F3 28 PLP vorheriges Abtastergebnis holen 

87F4 29 80 AND #%80 letztes Abtastergenis isolieren 

87F6 90 04 BCC $87FC ist im ersten Test SpurO aktiv (Bit=0) ? 
87F8 10 15 BPL $880F nein, ist SpurO jetzt erreicht ? 

87FA. 30 02 BMI $87FE ja, immer Sprung nach $877C 

grrcl 30 11 BMI $880F SpurO immer noch aktiv ? 


Zustand der SpurO Lichtschranke hat sich nicht geändert 


8’FE 88 DEY ja, noch ein Versuch 

ö’FF DO E8 BNE $87E9 schon alle Versuche durchgeführt ? 
8801 BO OC BCS $880F ja, ist Kopf auf SpurO-Position ? 
8803 AD 00 IC LDA $1C00 ja, Steuerregister für Steppermotor 
8806 29 03 AND #803 Stepperbits isolieren 

8808 DO 05 BNE $880F ist eine Stepperspule angesteuert ? 
880A AY O0 LDA #%00 aktuelle Kopfposition 

880C 85 64 STA $64 Löschen 

880E 60 RTS zurück zur aufrufenden Routine 


ZU KEIN der SpurO Lichtschranke hat sich geändert 
F 


880F” AS 64 LDA $64 aktuelle Kopfposition holen 

8811 38 SEC und um einen 

8812, EY 01 SBC #801 Halbschritt vermindern 

83141 85 64 STA $64 neue Position merken 

8816 29 03 AND #803 Steuerbits für Stepperspulen herstellen 
. 8818 85 6F STA $6F und merken 

881A 08 PHP Prozessorstatus retten 

881B 78 SEI Bus- und Konrolleraufruf abschalten 

881C AD 00 IC LDA $1C00 'Steuerregister holen 

88lF 29 FC AND #$FC Steppersteuerung ausblenden und 

8821 05 6F ORA $6F neue Bitwerte setzen 

8823 8D 00 IC STA $1C00 neuen Wert ins Steuerregister 


8826 28 PLP Prozessorstatus wieder herstellen 
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8827_ AD 06 LDY #506 zähler für 13/7.5 ms Verzögerung setzen 
8829” 20 30 88 JSR $8830 etwa 2.6/1.3 ms Verzögerung 

882C 88 DEY Zähler korregieren 

882D DO FA BNE $8829 Verzögerung schon abgelaufen ? 

882F 60 RTS ja, zurück zur aufrufenden Routine 
[8829] 

etwa 2.6/1.3 ms Verzögerung (2583 Zyklen bis zur Fortsetzungsstelle) 
8830 A2 02 LDX #802 Zahl der Zählschleifen 

8832_ A9 00 LDA #$00 zähler initialisieren 

8834 69 01 ADC #$01 und eins hochzählen 

8836 DO FC BNE $8834 schon bis 256 gezählt ? 

8838 CA DEX Ja, nächste Zählschleife 

8839 DO FY BNE $8834 schon alle Schleifen ? 

883B 60 RTS ja, zurück zur aufrufenden Routine 
[8A4D/8DAE/BEID] 

Fehler von CP/M-Kontroller holen 

883C EA NOP Verzögerung bis Kontroller bereit ist 
883D AD 00 20 LDA $2000 Statusregister abfragen 

8840 4A LSR A Fehlerbits für 'Record Not Found! und 
8841 4A LSR A ICRC Error! (Bit 3 und 4) in die 
8842 4A LSR A Positionen 0 und 1 schieben 

8843 29 03 AND #$03 Fehlerbits isolieren und 

8845 AA TAX Fehlerzeiger herstellen 

8846 BD 82 8A LDA $8A82,X Nummer der Fehlermeldung feststellen 
8849 8D BO 01 STA $01B0 und setzen 

884C AA TAX Fehlernummer merken 

884D 60 RTS zurück zur aufrufenden Routine 


[89YC0O/BA30/8AB8/8D85/8E63/BEDE/BF27] 
Kommando an CP/M Kontroller (WD 1770) übergeben 


884E 48 PHA Kommando merken 

884F 20 7C 87 JSR $877C LED am Laufwerk anschalten 

8852 68 PLA Kommando wieder holen 

8853 8D 00 20 STA $2000 und an CP/M Controller übergeben 

8856 AY 01 LDA #801 Bit für '!Busy - Flag! 

8858. EA NOP Verzögerung bis Kontroller bereit ist 
8859 2C 00 20 BIT $2000 Statusregister des Kontrollers testen 
885C FO FB BEQ $8859 ist Befehl übernommen (Busy gesetzt) ? 


"885E 4AC TE A4 JMP SALATE ja, 45 Taktzyklen warten 
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[8ICZ3/BALA/8CAB/BDAB/BF15/8F5C] 
‘Warten bis aktueller Befehl des CP/M Kontrollers zu Ende ist 


8861 20 88 87_ JSR $8788 LED ausschalten 

8864. A9 01 LDA #%01 Bit für '!Busy - Flag! 

8866 2C 00 20 BIT $2000 im Statusregister testen 

8869 DO FB BNE $8866 ist Befehl noch aktiv ? 

886B 60 RTS nein, zurück zur aufrufenden Routine 
[8DED/886C] 

Nummer des nächsten Sektors errechnen 

886C A5 60 LDA $60 kleinste Sektornummer holen 

886E 38 SEC und Versatz bis 

886F EY 01 SBC #01 zu Sektornummer Null errechnen 

8871 85 46 STA $46 und merken 

8873 AD 04 02 LDA $0204 Nummer des aktuellen Sektors holen 
8876 18 CLC und dazu den 

8877 65 3C ADC $3C Sektorversatz addieren 

8879 C5 61 CMP $61 mit maximaler Sektornummer vergleichen 
887B FO 07 BEQ $8884 ist neue Nummer identisch ? 

887D 90 05 BCC $8884 nein, ist neue Nummer kleiner ? 

887F ES 61 SBC $61 nein, Sektornummer auf 

8881 18 CLC erlaubten Bereich wmrechnen und 

8882. 65 46 ADC $46 allgem. Sektorverschiebung beachten 
88842 8D 04 02 STA $0204 neue Sektornummer setzen 

8887 60 RTS zurück zur aufrufenden Routine 
[8CF9] 

Tabelle der Sektornummern für Formatieren erstellen 

8888 AO 00 LDY #800 Zeiger auf aktuelle Sektornummer löschen 
888A A2 00 LDX #300 zähler für Sektoren löschen 

888C AD 03 02 LDA $0203 Nummer des ersten 

888F 29 3F AND #%3F Sektors auf Bereich 0-63 

8891 8D 03 02 STA $0203 beschränken 

8894 85 60 STA $60 und als kleinsten Sektor merken 

8896 48 PHA Sektornummer merken 

8897 AD 07 02 LDA $0207 Nummer des letzten Sektors 

88YA 48 PHA retten 

889B EE 04 02 INC $0204 Sektorversatz herstellen 

sage AD 03 02 LDA $0203 Nummer des aktuellen Sektors holen und 


88A1 99 OB 02 STA $020B,Y in Tabelle eintragen 
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8BA4 
88A7 
8BAB 
8BA9 
8BAA 
8BAD 
8BAE 
88B0 
88B2 
8885 
88B7 
8889 
88BC 
88BE 
88C1 

8802 
88C5 
8806 
88C9 


8ECC 


EE 
Ed 


03 02 


DB 


07 02 


03 02 
04 02 


INC 
INX 
TYA 
CLC 
ADC 
TAY 
CPY 
BCS 
CPY 
BCC 
BNE 
CPX 
BEQ 
DEC 
PLA 
STA 
PLA 
STA 
SEC 
RTS 
TYA 
SEC 
sBC 
TAY 
CPX 
BNE 
STX 
DEX 
TXA 
CLC 
ADC 
STA 
CMP 
BCC 
PLA 
STA 
PLA 
STA 
DEC 
CLC 
RTS 
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$0203 


$0204 


#820 
$88BE 
80207 
$88D1 
$88CB 
80207 
$88CB 
80204 


$0207 


$0203 


$0207 


$0207 
$889E 
$97 


$60 
$61 
$60 
$88BE 


$0207 


$0203 
$0204 


Nummer des nächsten Sektors setzen 
Zahl der angelegten Sektoren 
Zeiger auf Sektorposition 

holen und Sektorversatz 

einrechnen 

neuen Zeiger merken und mit 

max. Sektornummer vergleichen 
wurde 32 überschritten ? 

nein, Nummer des letzten Sektors ‚testen 
Nummer erreicht ? 

nein, letzte Nummer erreicht ? 


ja, Zahl der angelegten Sektoren testen 


sind alle Sektoren angelegt ? 
nein, Sektorversatz korregieren 
max. Sektornummer wieder 
herstellen 

Nummer des ersten Sektors holen 
und setzen 

Flag für 'Fehler aufgetreten! 
zurück zur aufrufenden Routine 
Zeiger auf aktuelle Sektorposition 
in erlaubten 

Sektorbereich umrechnen 

und merken 

Zahl der angelegten Sektoren testen 
schon alle Sektornummern in Tabelle ? 
ja, Zahl der Sektoren merken 
Nummer des letzten Sektors 

bilden 

Nummer des kleinsten 

Sektors dazurechnen und als 

Nummer des größten Sektors merken 
mit kleinster Nummer vergleichen 
wurde Sektor angelegt ? 

nein, max. Sektornummer wieder 
herstellen 

Nummer des ersten Sektors holen 
und setzen 

Sektorversatz korregieren 

Flag für 'kein Fehler aufgetreten! 
zurück zur aufrufenden Routine 
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[8D1F] 


CP/M-Sektoren nach Formatieren auf Leerbytes überprüfen 


88F0 AD BO 01 
88F3 48 

88F4 AO 00 
88F6_ 84 24 
gar] A4 24 
88FA BY OB 02 
88FD 8D 02 20 
8900 20 18 8F 
8903 AE BO 01 
8906 EO 02 
8908 BO OB 
890A E6 24 

: 890C AL 24 
890E CC 07 02 
8911 DO ES 
8913 18 

8914 24 

g915] 38 

8916 68 

8917. 8D BO 01 
891A 60 


LDA $0180 
PHA 

LDY #800 
STY $24 
LDY $24 


LDA $020B,Y 


STA $2002 
JSR $8F18 
LDX $01B0 
CPX #802 
BCS $8915 
INC $24 
LDY $24 
CPY $0207 
BNE $88F8 
CLC 

.byte $24 
SEC 

PLA 

STA $01B0 
RTS 


aktuelle Spur beim 

Formatieren merken 

zähler für aktuelle Sektornummer 
Löschen 

Nummer des aktuellen Sektors holen 
und Sektornummer des Headers feststellen 
Sektor an CP/M-Kontroller übergeben 
Sektor überprüfen 

Rückmeldung holen 

und mit Wert für 'Ok! vergleichen 
ist ein Fehler aufgetreten ? 

nein, nächsten Sektor anwählen 
aktuelle Sektorzahl holen 

und mit maximaler Anzahl vergleichen 
schon alle Sektoren überprüft ? 

ja, Flag für 'Ok'! setzen 

nächstes Byte überspringen (Bit-Befehl) 
Flag für Fehler setzen 

aktuelle Spurnummer des 
Formatiervorgangs wieder setzen 
zurück zur aufrufenden Routine 


[8DF3/8EC2] 


nächste Spur setzen 


891B AD 74 02 
89IE C9 07 
8920 90 FB 
8922 AD 06 02 
8925 85 67 


LDA $0274 
CMP #$07 
BCC $891A 
LDA $0206 
STA $67 

JMP $87BA 


Länge des Befehlsstrings im 
Eingabepuffer auf 7 prüfen 

ist der Befehl kleiner 7 Zeichen ? 
nein, siebtes Zeichen holen 

und als aktuelle Zielspur übernehmen 
Spur ansteuern 


.[8737) 


nächsten IBM-34 Sektorheader lesen und Kopf entsprechend setzen 


892A AD BO 01 
892D 48 

B92E 20 27 BA 
8931 AE BO 01 
8934 EO 02 


LDA $01B0 
PHA 

JSR $8A27 
LDX $01B0 
CPX #302 


aktuelle Fehlerrückmeldung 
retten 

nächsten IBM-34 Header lesen 
Rückmeldung holen 

und auf Fehlermeldung prüfen 
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8936 90 OD BCC $8945 ist Header fehlerfrei gelesen worden ? 
8938 20 EF 89 UJSR $8YEF ja, Kopf auf Spur O0 setzen 
893B 20 27 8A  JSR $8A27 nächsten Header lesen 
893E AE BO 01 LDX $01B0 Rückmeldung holen 
8941 EO 02 CPX #%02 und auf Fehlermeldung prüfen 
8943 BO OA BCS $894F ist Header fehlerfrei gelesen worden ? 
89451 A5 67 LDA $67 ja, Nummer der aktuellen Zielspur holen 
8947 OA ASLA und Zahl der Schritte bestimmen 
89418 C5 64 CMP $64 mit aktuelle Position vergleichen 
89LA FO 03 BEQ $894F ist Spur schon erreicht ? 
894C_ 20 BA 87 _ USR $87BA nein, Kopf auf Zielspur setzen 
B94F2 68 PLA vorherige Fehlernummer wieder holen 
8950 8D BO 01 STA $01BO und setzen 
8953 60 RTS zurück zur aufrufenden Routine 
[8730/8CD5] 

Kopf auf aktueller Diskettenseite aktivieren 
8954 08 PHP Prozessorstatus retten 
8955 78 SEI Bus- und Kontrolleraufruf abschalten 
8956 A5 3B LDA $3B Flag aus Befehlsnummer 
8958 29 10 AND #810 holen 
895A C9 10 CMP #810 Flag (Bit4) in Carry übernehmen 
895C 20 F3 93 UJSR $93F3 Kopf auf angewählten Seite ansteuern 
895F 28 PLP Prozessorstatus wieder herstellen 
8960 60 RTS zurück zur aufrufenden Routine 
[852A] 


kleinste und größte Sektornummer feststellen 


8961 A4 97 LDY $97 Zahl der angelegten Sektoren 
8963 88 DEY Zähler auf letzte Sektorposition 
8964. A9 FF LDA #$FF max. möglicher Nummernwert 

8966 1 D9 OB 02 CMP $020B,Y mit Sektornummer vergleichen 
8969 90 03 BCC $896E ist Sektornummer kleiner ? 

896B, BY OB 02 LDA $0208,Y ja, neue Sektornummer holen 

BI6E 88 DEY und Zeiger auf nächste Sektornennung 
896F 10 F5 BPL $8966 schon alle Sektoren geprüft ? 
8971 85 60 STA $60 ja, kleinste Sektornummer setzen 
8973 A4 97 LDY $97 Zahl der angelegten Sektoren 
8975 88 DEY Zähler auf letzte Sektorposition 
8976. AY OO LDA #$00 kleinster Wert 

8978 D9Y OB 02 CMP $020B,Y mit Sektornummer vergleichen ? 
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897B BO 03 BCS $8980 ist Nummer größer ? 
897D. B9 OB 02 LDA $020B,Y Ja, neue Sektornummer übernehmen 
8980 88 DEY Zeiger auf nächste Sektornennung 
8981 10 F5 BPL $8978 schon alle Sektoren geprüft ? 
8983 85 61 STA $61 ja, größte Sektornummer merken 
8985 60 RTS zurück zur aufrufenden Routine 
[852D] 
Sektorversatz aus Sektorfolge errechnen 
8986 A6 97 LDX $97 Zahl der Sektoren in Tabelle 
8988. AD 00 LDY #800 Positionszeiger zurücksetzen 
goal B9 OB 02 LDA $020B,Y Sektornummer aus Tabelle holen 
898D C5 60 CMP $60 und mit kleinster Nummer vergleichen 
898F FO 05 BEQ $8996 identisch ? 
8991 CB INY nein, Zeiger auf nächsten Sektor 
8992 CA 97 CPY $97 mit Zahl der Sektornummern vergleichen 
8994 DO F4 BNE $898A schon alle geprüft ? 
89961 84 5F STY $5F ja, Stelle des kleinsten Sektors merken 
8998 AS 60 LDA $60 kleinste Sektornummer 
899A 18 CLC holen und Nummer des nächsten Sektors 
899B 69 01 ADC #801 bilden 
8990 85 46 STA $46 Nummer merken 
899F_ A2 FF LDX #$FF. Zähler für Sektorversatz initialisieren 
B9A12 B9 OB 02 LDA $020B,Y Sektornummer aus Tabelle holen und mit 
89A4 C5 46 CMP $46 zweitem Sektor vergleichen 
89A& FO OA BEQ $89B2 identisch ? 
89AB EB INX nein, Sektorversatz erhöhen 
89A9 CB INY Zeiger auf nächste Sektornummer 
. 89AA CA 97 CPY $97 auf Zahl der Sektoren prüfen 
89AC DO F3 BNE $89A1 schon alle Sektoren bearbeitet ? 
8YAE AO 00 LDY #800 Ja, Zeiger zurücksetzen 
8980 FO EF BEQ $89A1 immer Sprung nach $89A1 
89521 60 RTS zurück zur aufrufenden Routine 
[8AOC/BCDE) 
CP/M Kontroller auf Spur initialisieren 
89863 AS 6F LDA $6F Zeropagestelle retten, da als 
89B5 48 PHA Zwischenspeicher verwendet 
89B6 08 PHP Prozessorstatus merken 
8987 78 SEI Bus- und Kontrolleraufruf abschalten 


89B8 AD 01 20 LDA $2001 aktuelle Spurnummer als neuen zu 
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89BB 8&D 03 20 STA $2003 initialisierende Spur setzen 

89BE AY 18 LDA #$18 %00011000 'Seek! (Spur setzen) 

89C0 20 4E 88 JSR $884E Kommando an CP/M-Kontroller 

89C3 20 61 88 USR $8861. warten bis Befehl ausgeführt 

89C6 A2 00 LDX #800 Zähler für Zahl der 

89C8 AO 80 LDY #880 Versuche löschen 

89CA AD 00 20 LDA $2000 CP/M-Statusregister lesen 

8ICD 29 02 AND #$02 Flag für Zustand des Indexlochs holen 
8ICF_ 85 6F STA $6F und merken 

89012 AD 00 20 LDA $2000 Statusregister nochmals lesen 

8904 29 02 AND #%02 und Zustand der Indexlochlichtschranke 
8906 C5 6F CMP $6F mit vorherigem vergleichen 

8908 FO 04 BEQ $89DE ist Indexloch aufgetreten ? 

8I9DA 28 PLP ja, Prozessorstatus wieder herstellen 
89DB. 4C E7 89 - JMP $89E7 Index-Flag setzen und Ende 

gone CA DEX zähler für Versuche (Low-Byte) 

89DF DO FO BNE $8901 ist Zähler abglaufen ? 

89E1 88 DEY ja, High-Byte erniedrigen 

89E2 DO ED BNE $8901 ist Zähler abgelaufen 

89E4 28 PLP ja, Prozessorstatus wieder herstellen 
89E5 38 SEC Flag für 'Indexloch nicht aufgetreten! 
8IE6, 24 18 .byte $24 nächstes Byte überspringen (Bit-Befehl) 
8987| 18 CLC Flag für 'Indexloch aufgetreten! 

8IEB 68 PLA Zeropagestelle 

89E9 85 6F STA $6F wieder einrichten 

8Y9EB 60 RTS zurück zur aufrufenden Routine 


[Vektor: 86C8] 
8SJEC 4C AD EA JMP $EAAO 1571-Reset ausführen 


[8938/8A09/8CDB/8BCEB/BF61/Vektor: 86CA] 
Kopf auf SpurO zurückstellen 


8I9EF AY BA LDA #%B4 Zahl der aktuellen Halbspurschritte für 
89Fi 85 64 STA $64 Spur 37 setzen 
89F3 AY 00 LDA #800 CP/M-Kontroller auf 
89F5 8D 01 20 STA $2001 Spur O einstellen 
89F8 85 67 STA $67 neue Zielspur setzen 


89FA AC BA 87 _ JMP $87BA Kopf positionieren 
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[Vektor: 86CC] 
Zustand der Schreibschutz-Lichtschranke (Write Protect) prüfen 


89FD AD 00 IC  LDA $1C00 Laufwerkssteuerregister holen und Bit 
8a00 29 10 AND #810 für 'Write Protect! holen (Low aktiv) 
8A02 60 RTS zurück zur aufrufenden Routine 


[Vektor: 86CF] 
Spurparameter setzen 


8A03 84 67 STY $67 anzusteuernde Spur setzen 
8A05 86 64 STX $64 aktuelle Position in Halbspurschritten 
8A07 60 RTS zurück zur aufrufenden Routine 


[Vektor: 864E] 
8A08 60 RTS zurück zur aufrufenden Routine 


[Vektor: 86D2] 
Header des nächsten CP/M Sektors lesen und in Puffer $0024 


8A09 20 EF 89 USR $89YEF Kopf auf SpurO setzen 

8AOC 20 B3 89 JSR $89B3 Kontroller initialisieren 

8AOF BO OF BCS $8A20 Indexloch vorhanden ? 

8A11 20 27 8A  JSR $8A27 ja, Header lesen und Zeiger setzen 
8A14 BD TE BA LDA $8A7E,X Zahl der Sektoren einer Spur holen 
8A17 85 97 STA $97 und merken 

8A19 85 61 STA $61 als größte Sektornummer setzen 
8A1B A9Y 01 LDA #801 kleinste Sektornummer 

8A1D 85 60 STA $60 festlegen 

8A1F, 60 RTS zurück zur aufrufenden Routine 
sa20l A9 OD LDA #80D Fehlermeldung 

8A22 8D BO 01 STA $01BO ıIindex Not Found! setzen 

8A25 DO 3E BNE $8A65 immer Sprung nach $8A65 


[89Y2E/893B/8A11/8F74/8F82] 
nächsten IBM-System-34 Header lesen und Sektorzeiger setzen 


8A27 A9 00 LDA #800 Zeiger für 

8129 8D 71 02 STA $0271 Zahl der Bytes pro Sektorabschnitt und 
8A2C 85 44 STA $44 Zahl der Abschnitte löschen 

SAZE A9 CB LDA #%C8 %11001000 !'Read Adress! (Header lesen) 
8A30 20 4E 88 JSR $884E Kommando an CP/M-Kontroller 

8A33 A2 00 LDX #800 Pufferzeiger löschen 

8A35_ AD 06 LDY #806 Zahl der Headerbytes 


84377 AD 00 20  LDA $2000 Statusregister lesen 
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8A3A 29 03 AND #%03 und Flag isolieren 
8ASC AA LSR A | Flag für 'Kommando in Ausführung! (Busy) 
8A3D 90 OB BCC $BA4A ist Kommando noch aktiv ? 

. 8A3F FO F6 BEQ $8A37 ja, weitere Headerdaten vorhanden ? 
8A41 AD 03 20 LDA: $2003 ja, Datenbyte holen 
8A4L 95 24 STA $24,X und in Headerpuffer schreiben 
8A46 EB INX Pufferzeiger auf nächstes Byte setzen 
8A4L7 88 DEY Zahl der Headerbytes erniedrigen 
8A48. DO ED BNE $8A37 schon alle Bytes gelesen ? 
Baal 20 61 88 JSR $8861 ja, warten bis Kommado beendet ist 
8A4LD 20 3C 88 JSR $8853C Rückmeldung vom Kontroller holen 
8150 A5 24 LDA $24 Spurnummer aus gelesenem Header holen 
8452 OA ASLA und Zahl der Halbschritte errechnen 
8153 85 64 STA $64 als aktuelle Kopfposition merken 
8455 AS 27 LDA $27 Kennzeichen für Sektorgröße holen 
[8C7B/8C9F] 
Zeiger für Sektortyp setzen 
8157 29 03 AND #$03 signifikante Bits isolieren 
84159 AA TAX und Wert merken 
8A5A BD 72 8A LDA $8A72,X Zahl der Bytes pro Sektorabschnitt holen 
8A5D 8D 71 02 STA $0271 und merken 
8A60 BD 76 BA LDA $8A76,X Zahl der Abschnitte pro Sektor 
8A63 85 44 STA $44 feststellen und übernehmen 
8A65 AS 5E LDA $5E Befehls-Statusbyte holen 
8A67 29 80 AND #$80 und Flag für IBM-34 Diskette isolieren 
8A69 OD BO 01 ORA $01B0 Nummer der aktuellen Spur einblenden 
8A6C 1D 7A 8A ORA $8ATA,X und Kennzeichen für Sektorlänge setzen 
8A6F 85 5E STA $5E Befehls-Statusbyte wieder setzen 
8A71 60 RTS zurück zur aufrufenden Routine 


[8A5SA] Zahl der Bytes pro Sektorabschnitt 


8A72 TF Wert für 128 Bytes / Sektor 
8A73 FF Wert für 256 Bytes / Sektor 
8A74 FF Wert für 512 Bytes / Sektor 


8A75 FF Wert für 1024 Bytes / Sektor 
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Zahl der Sektorabschnitte pro CP/M-Sektor 
8176 01 Wert für 128 Bytes / Sektor 
8477 01 Wert für 256 Bytes / Sektor 
8178 02 Wert für 512 Bytes / Sektor 
8179 04 Wert für 1024 Bytes / Sektor 


[BA6CI_ Kennzeichen für Sektorlänge (in höherwertiger Bytehälfte) 


8A7A 00 Wert für 128 Bytes / Sektor 
8A7B 10 Wert für 256 Bytes / Sektor 
8A7C 20 Wert für 512 Bytes / Sektor 
8A7D 30 Wert für 1024 Bytes / Sektor 


[8A14] Zahl der Sektoren pro Spur; Nummer des größten Sektors 


‚SATE 1A Wert für 128 Bytes / Sektor 

8A’7F 10 Wert für 256 Bytes / Sektor 

8A80D 09 Wert für 512 Bytes / Sektor 

8481 05 Wert für 1024 Bytes / Sektor 

[8846] CP/M-Fehlermeldungen 

8182 01 Nummer für "Ok! 

8183 09 Nummer für 'Prüfsumme falsch! 

8A8L 02 Nummer für 'Sektorheader nicht gefunden! 
8A85 03 Nummer für 'Sync nicht gefunden! 

[8D 14] 


CP/M-Spur im 'IBM System 34 - Format! formatieren 


8186 A9Y FB LDA #$F8 %111110000 'Write Track! Spur schreiben 
8A88 20 DO 87 JSR $87D0 Kommando an CP/M-Kontroller übergeben 
8ABB 24 3B BIT $3B Flag in Befehlsnummer testen 

8A8D 50 62 BVC $8AF1 soll Spurindex geschrieben werden ? 


Spur-Index-Marke schreiben (nach Indexloch) 


8A8F_ A2 50 LDX #%50 ja, Zahl der Bytes für Index-Puls (80) 
81912 AD 00 20 LDA $2000 Statusregister holen 

8194 29 03 AND #803 und Kommandobits isolieren 

8A96 4A LSR A Bit für 'Busy' prüfen 

8197 90 60 BCC $8AFY wird Kommando noch ausgeführt ? 

8199 FO F6 BEQ $8A91 ja, Kontroller für Daten bereit ? 
8A9B AY LE LDA #%4E ‘ Bytewert für Pre-Index 1 

8A9D 8D 03 20 STA $2003 auf Diskette schreiben 

8AAO CA DEX nächstes Byte schreiben 
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8AA1 DO EE BNE $8A91 schon alle Bytes ? 

8AA3_ A2 0C LDX #$0C ja, Zähler für Lücke setzen (12) 

BAASZ AD 00 20 LDA $2000 . Statusregister holen 

8AAB 29 03 AND #803 und Kommandobits isolieren 

8AAA 4A LSR A Bit für 'Busy' prüfen 

8AAB 90 4C BCC $8AFY wird Kommando noch ausgeführt ? 

8AAD FO F6 BEQ $8AA5 ja, Kontroller für Daten bereit ? 

8AAF A9 00 LDA #%00 Bytewert für Pre-Index 2 

8AB1 8D 03 20 STA $2003 auf Diskette schreiben 

8AB4 CA DEX nächstes Byte schreiben 

8AB5 DO EE BNE $8AA5 schon alle Bytes ? 

8AB7_ A2 03 LDX #$03 ja, Zähler setzen 

8ABY” AD 00 20 LDA $2000 Statusregister holen 

8ABC 29 03 AND #8$03 und Kommandobits isolieren 

BABE 4A LSR A Bit für 'Busy' prüfen 

8ABF 90 38 BCC $8AFY wird Kommando noch ausgeführt ? 
.8AC1 FO F6 BEQ $8AB9 ja, Kontroller für Daten bereit ? 

8AC3 A9 F6 . LDA #$F6 Wert für Taktbyte $C2 

8AC5 8D 03 20 STA $2003 auf Diskette schreiben 

8AC8 CA DEX nächstes Byte schreiben 

8AC9. DO EE BNE $8AB9 schon alle Bytes ? 

8ACB AD 00 20 LDA $2000 Statusregister holen 

8SACE 29 03 AND #803 und Kommandobits isolieren 

8ADO 4A LSR A Bit für 'Busy' prüfen 

8ADI 90 26 BCC $8AF9 wird Kommando noch ausgeführt ? 

8AD3 FO F6 BEQ $3ACB Ja, Kontroller für Daten bereit ? 

8AD5 AY FC LDA #SFC Bytewert für "Adress Index Mark' 

8AD7 8D 03 20 STA $2003 auf Diskette schreiben 

8ADA A2 32 LDX #$32 zähler setzen (50) 

8ADC, EA NOP zwei Taktzyklen Verzögerung 

8ADD" AD 00 20 LDA $2000 Statusregister holen 

SAEO 29 03 AND #803 und Kommandobits isolieren 

8AE2 4A LSR A Bit für 'Busy' prüfen 

8AE3 90 14 BCC $8AF9 wird Kommando noch ausgeführt ? 

8AES FO F6 BEQ $8ADD ja, Kontroller für Daten bereit ? 

8AE7 A9 4E LDA #%4E Bytewert für Post- Index 

8AE9 8D 03 20 STA $2003 auf Diskette schreiben 

8AEC CA DEX nächstes Byte schreiben 

8AED DO EE BNE $8ADD schon alle Bytes ? 


8AEF FO 14 BEQ $8B05 ja, immer Sprung nach $8B05 
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[8A8BD] Sektoren formatieren 


8AFI_ A2 3C LDX #$3C Zähler setzen (60) 

SAFZZ AD 00 20 LDA $2000 Statusregister holen 

8SAF6 29 03 AND #$03 und Kommandobits isolieren 

8AFB_ 4A LSR A Bit für 'Busy! prüfen 

BAFQ> 90 28 BCC $8B23 wird Kommando noch ausgeführt ? 
8AFB FO F6 BEQ $8AF3 ja, Kontroller für Daten bereit ? 
8AFD AY9 LE LDA #%4E Bytewert für Lücke 1 

&AFF 8D 03 20 STA $2003 auf Diskette schreiben 

8B02 CA DEX nächstes Byte schreiben 

8803, DO EE BNE $8AF3 schon alle Bytes ? 

8B05. AO 01 LDY #801 ja, Zähler für Sektoren 

8B07_ A2 0C LDX #%0C Zähler setzen 

8809” AD 00 20 LDA $2000 Statusregister holen 

8B0C 29 03 AND #%03 und Kommandobits isolieren 

8B0E 4A LSR A Bit für 'Busy'! prüfen 

8BOF 90 12 BCC $8B23 wird Kommando noch ausgeführt ? 
8B11 FO F6 BEQ $8B09 ja, Kontroller für Daten bereit ? 
8813 AI 00 LDA #%00 Bytewert für 2.Teil der Lücke 1 
8515 8D 03 20 STA $2003 auf Diskette schreiben 

8818 CA DEX nächstes Byte schreiben 

8819 DO EE BNE $8809 schon alle Bytes ? 

8B1B_ A2 03 LDX #803 Zähler setzen 
88102 AD 00 20 LDA $2000 Statusregister holen 

8B20 29 03 AND #803 und Kommandobits isolieren 

8822, 4A LSR A Bit für 'Busy! prüfen 

88232 90 57 BCC $8B7C wird Kommando noch ausgeführt ? 
8825 FO F6 BEQ $8B1D ja, Kontroller für Daten bereit ? 
8827 A9Y F5 LDA #$F5 Wert Taktbyte $A1 

8829 8D 03 20 STA $2003 auf Diskette schreiben 

8B2C CA DEX nächstes Byte schreiben 

8B2D_ DO EE BNE $8B1D schon alle Bytes ? 

8B2F " AD 00 20 LDA $2000 Statusregister holen 

8B32 29 03 AND #%03 und Kommandobits isolieren 

8B34 4A LSR A Bit für 'Busy! prüfen 

8835 90 45 BCC $8B7C wird Kommando noch ausgeführt ? 
8B37 FO F6 BEQ $8B2F ja, Kontroller für Daten bereit ? 
8839 A9Y FE LDA #$FE Bytewert für 'ID Adress Mark! 
8B3B. 8D 03 20 STA $2003 auf Diskette schreiben 

sgzE AD 00 20 LDA $2000 Statusregister holen 


8841 29 03 AND #$03 und Kommandobits isolieren 


Das große Flo 


8B43 4A 
8B44 90 
88546 FO 
8548 AD 
8B4B_ 8D 
esse} AD 
88551 29 
8853 4A 
8854 90 
8556 FO 
8B58 A5 
8B5A 29 
8B5C DO 
8B5E A9 
8B60_ 2C 
8861 1 A9 
8B63_ 8D 
88661 AD 
8869 29 
8B6EB AA 
8B6C 90 
8B6E FO 
8B70 B9 
8873 _ 8D 
8376] AD 
8879 29 
8B7B_ 4A 
8B7C” 90 
8B7’E FO 
. 8880 AD 
8583  8D 
ange AD 
8889 29 
8B8B 4A 
8B8C 90 
8B8E FO 
8B90 AY 
8B92 8D 
8895, A2 
88977 AD 
8BYA 29 


16 
00 
03 


20 


02 


20 


20 
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LSR A 
BCC $8B7C 
BEQ $8B3E 
LDA $01B0 
STA $2003 
LDA $2000 
AND #803 
LSR A 

BCC $8B7C 
BEQ $8B4E 
LDA $3B 
AND #810 
BNE $8B61 
LDA #800 
.byte $2C 
LDA #801 
STA $2003 
LDA $2000 
AND #803 
LSR A 

BCC $8B7C 
BEQ $8866 


LDA $020A,Y 


STA $2003 
LDA $2000 
AND #803 
LSR A 

BCC $8BB1 
BEQ $8B76 
LDA $0205 
STA $2003 
LDA $2000 
AND #803 
LSR A 

BCC $8BB1 
BEQ $8B86 
LDA #$F7 
STA $2003 
LDX #816 
LDA $2000 
AND #803 
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Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
ja, Kontroller für Daten bereit ? 
Nummer der aktuellen Spur 

auf Diskette schreiben 
Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
ja, Kontroller für Daten bereit ? 
Flag für aktuelle Diskettenseite 
holen und prüfen 

ist Seite 1 aktiv ? 

ja, dann Kennzeichen für Seite setzen 
nächste 2 Bytes überspringen (Bitbefehl) 
Kennzeichen für Seite 2 

auf Diskette schreiben 
Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy'! prüfen 

wird Kommando noch ausgeführt ? 
ja, Kontroller für Daten bereit ? 
Sektornummer 

auf Diskette schreiben 
Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
Ja, Kontroller für Daten bereit ? 
Kennzeichen für Sektorlänge 

auf Diskette schreiben 
Statusregister holen 


und Kommandobits isolieren 


Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
ja, Kontroller für Daten bereit ? 
Bytewert für 2 CRC Bytes 

auf Diskette schreiben 

Zähler setzen (22) 

Statusregister holen 

und Kommandobits isolieren 
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8B9C 4A LSR A Bit für 'Busy' prüfen 
8B9D 90 12 BCC $8BB1 wird Kommando noch ausgeführt ? 
8B9F FO F6 BEQ $8897 ja, Kontroller für Daten bereit ? 
8BA1 AY LE LDA #$%4E Bytewert für Lücke 2 
8BA3 8D 03 20 STA $2003 auf Diskette schreiben 
8BA6 CA DEX nächstes Byte schreiben 
 8BA7 DO EE BNE $8897 schon alle Bytes ? 
8BA9_ A2 0OC LDX #$0C Zähler setzen (12) 
8BAB” AD 00 20 LDA $2000 Statusregister holen 
8BAE 29 03 AND #%03 und Kommandobits isolieren 
8BB0_ 4A LSR A Bit für 'Busy'! prüfen 
8BB1” 90 38 BCC $8BEB wird Kommando noch ausgeführt ? 
8BB3 FO F6 BEQ $8BAB Ja, Kontroller für Daten bereit ? 
8BB5 A9Y 00 LDA #800 Bytewert für 2.Teil der Lücke 2 
8887 8D 03 20 STA $2003 auf Diskette schreiben 
8BBA CA DEX nächstes Byte schreiben 
8BBB DO EE BNE $8BAB schon alle Bytes ? 
8BBD_ A2 03 LDX #303 Zähler setzen 
8BBF "AD 00 20 LDA $2000 Statusregister holen 
8BC2 29 03 AND #%03 und Kommandobits isolieren 
8BC4 4A LSR A Bit für 'Busy! prüfen 
8505 90 24 BCC $8BEB wird Kommando noch ausgeführt ? 
8BC7 FO F6 BEQ $8BBF Ja, Kontroller für Daten bereit ? 
8BC9 A9Y F5 LDA #$F5 Wert für Taktbyte $A1 
8BCB 80 03 20 STA $2003 auf Diskette schreiben 
8BCE CA DEX nächstes Byte schreiben 
8BCF, DO EE BNE $8BBF schon alle Bytes ? 
8BD1 AD 00 20  LDA $2000 Statusregister holen 
8BD4 29 03 AND #503 und Kommandobits isolieren 
8BD6 4A LSR A Bit für 'Busy! prüfen 
8BD7 90 12 BCC $8BEB wird Kommando noch ausgeführt ? 
8BD9 FO F6 BEQ $8BD1 ja, Kontroller für Daten bereit ? 
8BDB A9Y FB LDA #$FB Bytewert für 'Data Adress Mark! 
8BDD 8D 03 20 STA $2003 auf Diskette schreiben 
8BEO 84 6F STY $6F aktuellen Sektorzeiger merken 
8BE2 A4 44 LDY $44 Zahl der Sektorabschnitte holen 
 8BE4_ EA NOP zwei Taktzyklen Verzögerung 
8BE5S” AD 00 20 LDA $2000 Statusregister holen 
8BEB 29 03 AND #803 und Kommandobits isolieren 
8BEA, AA LSR A Bit für 'Busy' prüfen 


8BEB” 90 60 BCC $8C4D wird Kommando noch ausgeführt ? 


Das große Flo 


8BED 
ößBEF 
8BßF2 
8BF5 
8BF8 
8BFA 
&BFB 
8BFE 
SßFF 
8CO0 
8002 
8C05 
8007 
8C08 
8C0A 
SCOC 
8COE 
8C11 
8014 
8017 
8019 
8C1A 
8C1D 
SciF 
8C20 
8C22 
8C24 
8C26 
8C29 
8C2A 
8c2c 
8c2F 
8031 
8032 
8035 
8038 
8C3A 
8C3B 
8C3D 
ScäF 
8C40 


1 


l 


2 


3 


FO F6 
AD OA 02 
8D 03 20 
EC 71 02 
FO 04 


4C ES 8B 


AD 00 20 


90 43 


8D 03 20 
AC 05 02 
BY AF 8C 
A4 6F 

AA 

AD 00 20 


8D 03 20 


CC 07 02 


4C 07 88 
AD 00 20 


A9 LE 
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BEQ $8BE5 
LDA $020A 
STA $2003 
CPX $0271 
BEQ $8BFE 
INX 

JMP $8BE5 
INX 

DEY 

BNE $8BE5 
LDA $2000 
AND #$03 
LSR A 

BCC $8C4D 
BEQ $8C02 
LDA #$F7 
STA $2003 
LDY $0205 


LDA $8C4F,Y 


LDY $6F 
TAX 

LDA $2000 
AND #%03 
LSR A 

BCC $8C4D 
BEQ $8CIA 
LDA #%4E 
STA $2003 
DEX 

BNE $8C1A 
CPY $0207 
BEQ $8C35 
INY 

JMP $8807 
LDA $2000 
AND #$03 
LSR A 

BCC $8C48 
BEQ $8C35 
CLC 

LDA #$4E 
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ja, Kontroller für Daten bereit ? 


Leerbyte für Sektor 

auf Diskette schreiben 

auf Länge eines Abschnittes prüfen 
schon ganzer Sektorabschnitt geschrieben 
nein, Zähler auf nächstes Byte 
weiter schreiben 

Zähler für Abschnittlänge initialisieren 
Zahl der Abschnitte erniedrigen 
noch Sektorabschnitte schreiben ? 
nein, Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
Ja, Kontroller für Daten bereit ? 
Bytewert für 2 CRC-Bytes 

auf Diskette schreiben 

Kennzeichen für Sektorlänge 

Größe der Lücke zwischen Sektoren holen 
Nummer des aktuellen Sektors 
Lückenzähler setzen 

Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
ja, Kontroller für Daten bereit ? 
Bytewert für Lücke 3 

auf Diskette schreiben 

nächstes Byte schreiben 

schon alle Bytes ? 

Zahl der Sektoren der Spur 

schon alle Sektoren angelegt ? 
nein, Sektorzähler erhöhen 
nächsten Sektor schreiben 
Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 
ja, Kontroller für Daten bereit ? 
Bytewert 

für Lücke 4 
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8C42 &D 
80645 4C 
gcagl 20 
8C4B 18 
. 8C4C, 24 
8C4D” 38 
SCHE 60 


Zahl der 


[8C14] 
8C4AF 07 


Zahl der 


[8CA7) 
80653 1A 


(Vektor: 


Diskette i 


8657 A5 
80659 29 
8C5B FO 
8C5D A6 
SC5F BE 
8662 38 
8063 60 
8c64 20 
80667 AD 
8C6A 38 
8C6B EY 
8C6D AB 
8C6E FO 
8C70 88 
8671 FO 
8673 A9 
8075 8D 
8C78 AD 
8C7B 20 


03 20 
35 &C 
61 88 


00 

BO 01 
05 02 
S7 8A 


STA $2003 
JMP $8C35 
JSR $8861 
CLC 
.byte $24 
SEC 
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auf Diskette schreiben 

Rest der Spur füllen 

warten bis Kommando abgeschlossen 

Flag für Formatierung 'Ok! setzen 
nächstes Byte überspringen (Bit-Befehl) 
Flag für Formatierfehler setzen 

zurück zur aufrufenden Routine 


Bytes für Lücken zwischen den CP/M-Sektoren 


Wert für 128 Bytes pro Sektor 
Wert für 256 Bytes pro Sektor 
Wert für 512 Bytes pro Sektor 
Wert für 1024 Bytes pro Sektor 


CP/M Sektoren pro Spur beim Formatieren 


Wert für 128 Bytes pro Sektor 
Wert für 256 Bytes pro Sektor 
Wert für 512 Bytes pro Sektor 
Wert für 1024 Bytes pro Sektor 


System 34'! formatieren 


LDA #$3B 
AND #808 
BEQ $8C64 
LDX $46 
STX $01B0 
SEC 

RTS 

JSR $D307 
LDA $0274 
SEC 

SBC #04 
TAY 

BEQ $8C90 
DEY 

BEQ $8C95 
LDA #%00 
STA $01B0 
LDA $0205 
JSR $8A57 


Flag für Schreibschutz 

überprüfen 

ist 'Write Protect! gesetzt ? 

ja, Fehlernummer holen 

und als Rückmeldung setzen 

Flag für Fehler aufgetreten 

zurück zur aufrufenden Routine 

alle Kanäle löschen 

Länge des Befehlstrings 

Zahl der schon 

bearbeiteten Bytes abziehen und 

Wert merken 

sind weitere Angaben vorhanden ? 
Zeiger auf nächstes Befehlsbyte 

noch weitere Angaben im Befehlsstring ? 
ja, erste zu formatierende Spur 
setzen 

Kennzeichen für Sektorlänge holen und 
Zeiger entsprechend setzen 


Das 


8c7E 
Sc7F 
8C81 
8C82 
8C84 
8C85 
8087 
8C88 
8C8A 
8C8B 
8CED 
 8C90 
8C92 
8C95 
8097 
EC9A 
SCH9C 
SC9F 
8CA2 
8CA4 


1 


1 


1 


roße Flo 


8D 


_8CA7° BD 
SCAA  8D 


1 


8CAD AY 
SCAF 8D 
8CB2, &D 
8CB5 A9 
8CB7_ 8D 
8CBA A9 


8cBC 
8CBF 
8CC2 
8CC5 
8Cc7 
8Cc9 
8CCB 
SCCD 
SCCF 
8CD1 
8CD3 
8CD5 
8CD8 


8D 
20 
AD 
EO 
BO 
A5 
29 
FO 
A5 
09 
85 
20 
20 


21 
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DEY 

BEQ $8CA2 
DEY 

BEQ $8CA7 
DEY 

BEQ $8CAD 
DEY 

BEQ $8CB5 
DEY 

BEQ $8CBA 
JMP $8CBF 
LDA #$00 
STA $0204 
LDA #$00 
STA $0180 
LDA #$01 

STA $0205 
JSR $8A57 
LDA #827 
STA $0206 


LDA $8C53,X 


STA $0207 
LDA #800 
STA $0208 
STA $2001 
LDA #800 
STA $0209 
LDA #$E5 
STA $020A 
JSR $8CDE 
LDA $01B0 
CPX #802 
BCS $8CDB 
LDA $3B 
AND #820 
BEQ $8CDB 
LDA $3B 
ORA #810 
STA $3B 
JSR $8954 
JSR $8CDE 
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Zeiger auf nächstes Befehlsbyte 

noch weitere Angaben im Befehlsstring ? 
ja, Zeiger auf nächstes Befehlsbyte 
noch weitere Angaben im Befehlsstring ? 
ja, Zeiger auf nächstes Befehlsbyte 
noch weitere Angaben im Befehlsstring 
ja, Zeiger auf nächstes Befehlsbyte 
noch weitere Angaben im Befehlsstring ? 
ja, Zeiger auf nächstes Befehlsbyte 
noch weitere Angaben im Befehlsstring ? 
keine Ersatz-Werte setzen 

Spurangabe im Befehlsstring 

Löschen 

erste zu formatierende Spur 

setzen (0) 

Kennzeichen für 256 Bytes pro 

Sektor setzen 

Sektorzeiger setzen 

größte zu formatierende Spur 

festlegen 

Zahl der Sektoren pro Spur 

feststellen und setzen 

erste logische Spurnummer 

setzen 

Spur an CP/M-Kontroller übergeben 

erste physikalische zu formatierende 
Spur setzen 

Leerbyte zum Füllen der Sektoren 
merken 

Diskettenseite IBM-Format formatieren 
Rückmeldung holen 

und mit Wert für 'Ok'! vergleichen 

ist Spur fehlerfrei formatiert ? 

ja, Befehlsnummer holen und Flag 

für 'zwei Seiten! prüfen 

sollen beide Seite formatiert werden ? 
ja, Flag für Seite 2 

in Befehlsnummer 

setzen 

Kopf auf aktueller Seite aktivieren 
Diskettenseite IBM-Format formatieren 
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8cDB“ 4C EF 89 JMP $8YEF Kopf auf SpurO setzen und Ende 

[8CBF/8CD8] 

Diskettenseite in 'IBM System 34' formatieren 

SCDE 20 B3 89 JSR $89B3 Spur initialisieren 

8CE1 BO 7C BCS $8D5F ist Indexloch aufgetreten ? 

8CE3 A9 01 LDA #201 Ja, Flag für Diskettenwechsel (Write 

8CE5 8D 0D 18 STA $180D Protect geändert) neu initialsieren 

8CE8 20 EF 89 JSR $89YEF Kopf auf Spur 0 setzen 

SCEB AD 08 02 LDA $0208 9. Zeichen aus Befehlsstring holen 

SCEE 8D BO 01 STA $01BO und als erste Spurnummer setzen 

8cF1 8D 01 20 STA $2001 Spurnummer an CP/M-Kontroller übergeben 

ScF4 2C 03 02 BIT $0203 4. Zeichen aus Befehlsstring holen 

8cF7 70 05 BVS $8CFE Flag für 'keine Sektortabelle' gesetzt ? 

8CF9 20 88 88 UJSR $8888 nein, Sektortabelle erzeugen 

SCFC, BO 61 BCS $8D5F Tabelle fehlerfrei erstellt ? 

screl AD 09 02 LDA $0209 ja, 10. Zeichen aus Befehlsstring 

8001 29 7F AND #$&7F erste physikalische Spurnummer erstellen 
8003 FO 08 BEQ $8DOD Kopf auf eine Startspur bewegen ? 

8005 18 CLC ja, Physikalische Spur bei 

8006 65 67 ADC $67 der Formatieren beginnen soll 

8008 85 67 STA $67 errechnen 

8D0A_ 20 BA 87_ JSR $87BA Spur ansteuern 

8D0D " 78 SEI Bus- und Kontrolleraufruf abschalten 

8D0E AD OD 18 LDA $180D Signal von Elektronik für 'Write-Protect 

8D11 4A LSR A hat sich geändert! überprüfen 

8012 BO 4B BCS $8D5F ist Diskette gewechselt worden ? 

8014 20 86 BA JSR $8A86 nein, Spur formatieren 

8017 BO 46 BCS $8D5F ist dabei Fehler aufgetreten ? 

8019 AD OD 18 LDA $180D nein, Signal von Elektronik für 'Write- 

8DIC 4A LSR A Protect hat sich geändert‘ überprüfen 

8D1D BO 40 BCS $8D5F ist Diskette gewechselt worden ? 

8DiF 20 FO 88 JSR $88F0 nein, Sektoren überprüfen 

8022 BO 3B BCS $8D5F alle Sektoren fehlerfrei geschrieben ? 

8024 AD OD 18 LDA $180D Ja, Signal von Elektronik für 'Write- 

8027 4A LSR A Protect hat sich geändert! überprüfen 

8028 BO 35 BCS $8D5F ist Diskette gewechselt worden ? 

802A AD BO 01 LDA $01B0 aktuelle logische Spurnummer mit 

8D2D CD 06 02 CMP $0206 letzter Nummer vergleichen 

8030 FO OE BEQ $8D40 ist gewünschter Bereich formatiert ? 


8032 E6 67 INC $67 nein, nächste Zielspur setzen 
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8034 EE 
8037 EE 
8D3A 20 
8D3D 4C 
8D40 24 
8D42 10 
8D44 38 
8045 AD 
8D48 ED 
8D4B CY 
8D4D BO 
8D4F E6 
8051 20 
8054 A2 
8056 20 
8D59_ 20 
8D5C A2 


SD5E_ 2C 
6 


805F° A2 06 
8E BO 01 


8061 


01 
BO 


20 
01 


BA 87 
OD &8D 


3B 


8064 4C E9 85 


INC $2001 
INC $01B0 
JSR $87BA 
JMP $8DOD 
BIT $3B 
BPL $8D5C 
SEC 

LDA $0206 
SBC $0208 
CMP #827 


 BCS $8D5C 


INC $67 
JSR $87BA 
LDX #$1C 
JSR $9063 
JSR $FEOO 


LDX #800 


.byte $2C 
LDX #806 
STX $01B0 
JMP $85E9 


[8DFO/Vektor: 86D9] 
CP/M Sektor lesen und an Rechner übermitteln 


: 8067 A5 
8069 29 
8D6B DO 
8D6D AY 
8D6F 85 
8D71 AO 
8073 84 
8075 A6 
8077 AD 
8D7A 8D 
8D7D AD 
8D80 &D 
8083 
8D85 


8088_ EA 
3 


3B 
20 
9 
03 
31 
00 
30 
44 
03 
01 
04 
02 


A9 88 
20 4E 88 


02 
20 
02 
20 


8089” AD 00 20 
8D8C 29 03 


LDA $3B 
AND #$20 
BNE $8DC6 
LDA #803 
STA $31 
LDY #$00 
STY $30 
LDX $44 
LDA $0203 
STA $2001 
LDA $0204 
STA $2002 
LDA #$88 
JSR $884E 
NOP 

LDA $2000 
AND #803 


 CP/M-Kontroller auf nächste Spur stellen 


aktuelle Spurnummer erhöhen 

Kopf auf Spur setzen 

weiter formatieren 

Flags in Befehlsnummer testen 
Endspur kennzeichnen / löschen ? 
Zahl der formatierten Spuren 

aus letzter logischer Spur 

und erster Spurnummer errechnen 
mit max. Zahl der Spuren vergeichen 
ist bis auf 2. Seite formatiert ? 
ja, nächste Spur auf 2. Seite 
ansteuern 

7168 mal $55 (%01010101) 

auf Spur schreiben 

Kopf auf Lesen umschalten 
Fehlernummer für '!Ok'! 


nächste 2 Bytes überspringen (Bitbefehl) 


Fehlernummer für 'Formatierfehler' 
Rückmeldung setzen 
und für Ausgabe vorbereiten 


Befehlsnummer holen und Flag für 
nur Puffer ausgeben! testen 
gesetzt ? 

nein, aktuellen Pufferzeiger auf 
Startadresse 

von Puffer 0 ($0300) 

setzen 

Zahl der Sektorabschnitte holen 
Spurnummer an CP/M-Kontroller. 
übergeben 

Nummer des gewünschten Sektors 
an CP/M-Kontroller übergeben 


%10001000 'Read Sektor! (Sektor lesen) 


Kommando an CP/M-Kontroller 
zwei Taktzyklen Verzögerung 
Statusregister holen 

und Kommandobits isolieren 


20 


8D 
88 
88 
85 


LSR A 

BCC $8DAB 
AND #801 
BEQ $8D89 
LDA $2003 
STA ($30),Y 
CPY $0271 
BEQ $8DA2 
INY 

BNE $8089 
INY 

DEX 

BEQ $8DAB 
INC $31 
JMP $8D89 
JSR 38861 
JSR $883C 
JSR $85E9 
BIT $3B 
BVS $8DBF 
CPX #802 
BCC $8DBF 
JMP $8384 
JSR $85F9 
LDA $38 
BMI $8DE8 
LDA #803 
STA $31 
LDY #800 
STY $30 
LDX $44 
LDA ($30),Y 
STA $46 
JSR $85F9 
CPY $0271 
BEQ $8DDF 
INY 

BNE $8DDO 
INY 

DEX 

BEQ $8DE8 
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Bit für 'Busy' prüfen 

wird Kommando noch ausgeführt ? 

ja, Flagbit für 'Datenregister bereit' 
warten bis Daten bereit sind 
Datenbyte von CP/M-Kontroller holen 
und in Puffer schreiben 

Zahl der Bytes pro Sektorabschnitt 
schon alle Bytes eingelesen ? 

nein, Pufferzeiger auf nächstes Byte 
Ende des Puffers erreicht ? 

ja, Pufferzeiger löschen 

nächsten Abschnitt des Sektors 

schon alle Abschnitte gelesen 

nein, Pufferzeiger auf nächsten Puffer 
Sektor weiter lesen 

warten bis Kommando beendet 

Status des CP/M-Kontrollers holen 
Fehlernummer für Ausgabe vorbereiten 
Flag für 'Fehler beachten! prüfen 
soll Rückmeldung getestet werden ? 
ja, auf Wert für 'Ok' prüfen 

ist Nummer größer (Fehlernummer) ? 
ja, Fehler ausgeben 

Byte auf 1571-Bus ausgeben 

Flag für 'nur Sektor lesen! beachten 
soll Puffer übertragen werden ? 

ja, aktuellen Pufferzeiger $30/$%31 
auf Startadresse von 

Puffer 0 ($0300) 

setzen 

Zahl der Sektorabschnitte pro Sektor 
Byte aus Puffer holen 

und als auszugebendes Zeichen merken 
Byte auf 1571-Bus ausgeben 

Zahl der Bytes pro Sektorabschnitt 
schon ganzen Abschnitt übertragen ? 
nein, Pufferzeiger auf nächstes Byte 
Ende des Puffers erreicht ? 

ja, Pufferzeiger auf Start setzen 
Zahl der Sektorabschnitte erniedrigen 
schon ganzer Sektor übertragen ? 
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8DE3 E6 31 

8DE5_ 4C DO 8D 
8DE8d CE 05 02 
8DEB FO 06 

8DED 20 6C 88 
8DFO_4C 67 8D 
8DF3 4C 1B 89 


INC $31 

JMP $8DDO 
DEC $0205 
BEQ $8DF3 
JSR $886C 
JMP $8D67 
JMP $891B 


[8EBF/Vektor: 86DC] 
CP/M Sektor von Rechner übertragen und auf Diskette schreiben 


8DF6 AY 03 
8DF8 85 31 
8DFA AO 00 
8DFC 84 30 
EDFE A6 44 
8E00 A5 3B 
8E02_ 30 30 
8E04 ° AD 00 18 
8E07 49 08 
8E09 2C 0D 40 
8E0OC_ 8D 00 18 
geor! AD 00 18 
8E12 10 03 
8E14_ 20 59 EA 
geızl AD OD 40 
8EIA 29 08 
8EIC FO Fi 
BEIE AD OC 40 
8E21 91 30 
8E23 CC 71 02 
8E26 FO 03 
8E28 CB 

8E29 DO DI 
ge2g| c8 

8E2C CA 

8E2D FO 05 
8E2F E6 31 
8E31 4C 04 8E 
ge34 1 A5 3B 
8E36 29 20 
8E38 DO 7D 


LDA #803 
STA $31 
LDY #800 
STY $30 
LDX $44 
LDA $3B 
BMI $8E34 
LDA $1800 
EOR #808 
BIT $400D 
STA $1800 
LDA $1800 
BPL $8E17 
JSR $EA59 
LDA $400D 
AND #%08 
BEQ $8EOF 
LDA $400C 


STA ($30),Y 


CPY $0271 
BEQ $8E2B 
INY 

BNE $8E04 
INY 

DEX 

BEQ $8E34 
INC $31 
JMP $8E04 
LDA $3B 
AND #820 
BNE $8EB7 


nein, Pufferzeiger auf nächsten Puffer 
Daten weiter übertragen 

Zahl der zu übertragenden Sektoren 
weitere Sektoren lesen ? 

ja, nächste Sektornummer errechnen 
nächsten Sektor lesen 

nächste angegebene Spur ansteuern 


aktuellen Pufferzeiger $30/$31 

auf Startadresse von 

Puffer 0 ($0300) 

setzen 

Zahl der Abschnitte pro Sektor 

Flag für 'Puffer einlesen! prüfen 
Daten vom Rechner übernehmen ? 

ja, Bussteuerregister holen 

und Clock-Ausgang umschalten 
Interruptregister zurücksetzen 
Bussteuerregister setzen 
ATN-Eingang testen 

gesetzt ? 

auf ATN-Kommandomodus prüfen 

nein, Flag für 'serielles 
Eingangsregister voll! prüfen 

sind Daten übertragen ? 

ja, Byte holen 

und in Puffer schreiben 

Zahl der Bytes pro Sektorabschnitt 
schon ganzer Abschnitt eingelesen ? 
nein, Pufferzeiger auf nächstes Byte 
Ende des Puffers erreicht ? 

ja, Pufferzeiger auf Start setzen 
nächsten Sektorabschnitt 

weitere Abschnitte vom Bus einlesen ? 
ja, Pufferzeiger auf nächsten Puffer 
weiter einlesen 

Befehlsnummer holen und Flag für 
ıpuffer in Sektor schreiben! testen 
soll Sektor geschrieben werden ? 
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8E3A A5 3B LDA $3B ja, Flag für 'Write Protect!’ 


8E3C 29 08 AND #$08 überprüfen 

8E3E FO 05 BEQ $8E45 ist Schreibschutz aktiv ? 

8ELD AS 46 LDX $46 ja, Fehlernummer holen 

8E42 4C 81 83 JMP $8381 und ausgeben 

gE451 A9 03 LDA #$03 aktuellen Pufferzeiger $30/$31 

8E47 85 31 STA $31 auf Startadresse von 

8E49 AO 00 LDY #%00 Puffer 0 ($0300) 

8E4B 84 30 STY $30 setzen 

8ELD A6 44 LDX $44 Zahl der Abschnitte pro Sektor 

8E4F AD 03 02 LDA $0203 Spurnummer aus Befehlsstring holen 
8E52 8D 01 20 STA $2001 und an CP/M-Kontroller übergeben 

8E55 AD 04 02 LDA $0204 Nummer des gewünschten Sektors holen 
8E58 8D 02 20 STA $2002 und an CP/M-Kontroller übergeben 

8E5B AD OD 18 LDA $180D Signal von Elektronik für 'Write-Protect 
8E5E 4A LSR A hat sich geändert! 

8E5F BO 32 BCS $8E93 wurde Diskette gewechselt ? 

8E61 A9 AB LDA #$A8 nein, %101010000 'Write single Sector! 
8E63_ 20 4E 88 UJSR $884E Kommando an CP/M-Kontroller übermitteln 
BE66> AD 00 20 LDA $2000 Statusregister holen 

8E69 29 03 AND #$03 und Kommandobits isolieren 

8E6B 4A LSR A Bit für 'Busy'! prüfen 

8E6C 90 25 BCC $8E93 wird Kommando noch ausgeführt ? 

8E6E 29 01 AND #801 ja, Flag für 'Datenregister leer! 

8E70O FO F4 BEQ $8E66 werden neue Daten angenommen ? 

8E72 Bi 30 LDA ($30),Y Ja, Datenbyte aus Puffer holen 

8E74 8D 03 20 STA $2003 und auf Diskette schreiben 

8E77’ CC 71 02 CPY $0271 Zahl der Bytes pro Abschnitt 

8E7A FO 03 BEQ $8E7F Abschnitt zu Ende ? 

8E7C C8 INY nein, Pufferzeiger auf nächstes Byte 
8E7D, DO E7 BNE $8E66 Ende des Puffers erreicht ? 

gerrl c8 INY ja, Pufferzeiger auf Start setzen 
8E80 CA DEX Zahl der Abschnitte pro Sektor 

8E81 FO 05 BEQ $8E88 noch ein Abschnitt ? 

8E83 E6 31 INC $31 ja, Pufferadresse auf nächsten Puffer 
8E85 4C 66 BE MP $8E66 weiter auf Diskette schreiben 

8E88 AD OD 18 LDA $180D Signal von Elektronik für 'Write-Protect 
8E8B 4A LSR A hat sich geändert! prüfen 

8E8SC BO 05 BCS $8E93 wurde Diskette gewechselt ? 

8EBE 20 C6 BE JSR $8EC6 nein, Sektor zum Test einlesen 


8E91 90 07 BCC $8E9A Lesen einwandfrei funktioniert ?: 
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893° 20 CE 81 JSR $81CE nein, 1571 Bus auf Ausgang schalten 
8E96 A2 07 LDX #07 Fehlernummer für 'verify error"! 
8E98_ DO 06 BNE $8EAO immer Sprung nach $8EAO 
gegal 20 CE 81 JSR $81CE 1571 Bus auf Ausgang schalten 
8E9YD, 20 3C 88 JSR $883C Fehlerstatus des CP/M-Kontrollers holen 
genol 8E BO 01 STX $01B0 und merken 
8EA3 20 E9 85 JSR $85E9 Fehler für Ausgabe vorbereiten 
8EA6 20 F9 85 JSR $85F9 Byte auf 1571-Bus ausgeben 
8EA9 20 AO 86 JSR $86A0 auf Umspringen von Clock warten 
8EAC 20 B2 81 JSR $81B2 1571 Bus auf Eingang schalten 
8EAF 24 3B BIT $3B Flag für 'Fehler beachten! testen 
8EBl1 70 04 BVS $8EB7 soll Rückmeldung geprüft werden ? 
8EB3 EO 02 CPX #$02 ja, auf Fehlernummer überprüfen 
8EB5_ BO 0E - BCS $8EC5 liegt ein Fehler vor ? 

BEB77 CE 05 02 DEC $0205 nein, Zahl der zu schreibenden Sektoren 
8EBA FO 06 BEQ $8EC2 noch einen Sektor ? 

8EBC 20 6C 88 JSR $886C ja, Nummer des nächsten Sektors holen 
8EBF, 4AC F6 8D JMP $8DF6 nächsten Sektor einlesen und schreiben 


8EC2. 4C 1B 89 JMP $891B 
8EC5 60 RTS 
[8EBE/Vektor: 86DE] 

CP/M-Sektor mit Pufferinhalt vergleichen (Verify) 


nächste Spur holen und setzen 
zurück zur aufrufenden Routine 


8EC6 A9Y 03 LDA #803 aktuellen Pufferzeiger $30/$31 

8EC8 85 31 STA $31 auf Startadresse von 

8ECA AO 00 LDY #%00 Puffer 0 ($0300) 

8ECC 84 30 STY $30 setzen 

8ECE A6 44 LDX $44 Zahl der Abschnitte pro Sektor 

8EDO AD 03 02 LDA $0203 Spurnummer aus Befehlsstring holen und 
8ED3 8D 01 20 STA $2001 an CP/M-Kontroller übergeben 

8ED6 AD 04 02 LDA $0204 Nummer des gewünschten Sektors holen 
8ED9 8D 02 20 STA $2002 und an CP/M-Kontroller 

8EDC A9Y 88 LDA #$88 %10001000 'Read Sector! (Sektor lesen) 
8EDE, 20 4E 88 JSR $884E Kommando an Kontroller übermitteln 
BEE1> AD 00 20 LDA $2000 Statusregister holen 

8EE4 29 03 AND #%03 und Kommandobits isolieren 

8EE6 4A LSR A Bit für 'Busy' prüfen 

8EE7 90 1C BCC $8F05 wird Kommando noch ausgeführt ? 

8EE9 29 01 AND #801 ja, Flag 'für Daten bereit' prüfen 
8EEB FO F4 BEQ $8EE1 warten bis Datenbyte fertig ist ? 

8EED AD 03 20 LDA $2003 Byte von Diskette lesen 


Di 30 

DO 11 

cc 71 02 
FO 03 

c8 

DO E5 

c8 

CA 

FO 10 

E6 31 

4C Ei 8E 
A9 DO 
8D 00 20 
20 83 A4 
A2 07 

2C 

A2 00 
8E BO 01 
4Cc 61 88 


CMP ($30), 


BNE $8F05 
CPY $0271 
BEQ $38EFC 
INY 

BNE $8EE1 
INY 

DEX 

BEQ $8F10 
INC $31 
JMP $8EE1 
LDA #%DO 
STA $2000 
JSR $A4B3 
LDX #807 
„byte $2C 
LDX #800 
STX $01B0 
JMP $8861 


Y 
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und mit Pufferinhalt vergleichen 
identisch ? 

ja, Zahl der Bytes pro Sektorabschnitt 
schon ganzer Abschnitt verglichen ? 
nein, Pufferzeiger auf nächstes Byte 
Ende des Puffers erreicht ? 

ja, Pufferzeiger auf Start setzen 
Zahl der Sektorabschnitte 

noch ein Abschnitt ? 

ja, Zeigeradresse auf nächsten Puffer 
weiter vergleichen 

%11010000 'Forced Interrupt' 

an Kontroller; Vergleichen beenden 

ca. 80 Taktzyklen Verzögerung 
Fehlernummer für !'verify error! 
nächste 2 Bytes überspringen (Bitbefehl) 
Fehlernummer für '!Ok! 

Nummer merken 

warten bis Kommando zu Ende 


[8900/Vektor: 86E0] 
CP/M-Sektor auf Leerinhalt 


8F18 
8F1A 
8FIC 
örfilE 
8F20 
8F22 
8F25 
8F27 
8F2A 
8F2D 
öF2F 
8F30 
8F32 
8F34 
8F36 
8F39 
SF3C 
8F3E 
8F3F 


A9 03 
85 31 
AO 00 
84 30 
A6 44 
AC 71 
A9 88 
20 4E 
AD 00 
29 03 
4A 
90 
29 
FO 
AD 
CD 
DO 
88 
10 


02 


20 


LDA #03 
STA $31 
LDY #$00 
STY $30 
LDX $44 
LDY $0271 
LDA #%88 
JSR $884E 
LDA $2000 
AND #$03 
LSR A 

BCC 
AND 
BEQ 
LDA 
CMP 
BNE 
DEY 
BPL 


prüfen 


aktuellen Pufferzeiger $30/$31 

auf Startadresse von 

Puffer 0 ($0300) 

setzen 

Zahl der Abschnitte pro Sektor 

Länge eines Abschnitts 

%10001000 "Read Sector! (Sektor lesen) 
Kommando an CP/M-Kontroller übergeben 
Statusregister holen 

und Kommandobits isolieren 

Bit für 'Busy! prüfen 

wird Kommando noch ausgeführt ? 

ja, Flag 'für Daten bereit' prüfen 
warten bis Datenbyte fertig ist ? 
Byte von Diskette lesen 

und mit Wert für Leerbyte vergleichen 
identisch ? 

ja, nächstes Byte 

schon ganzer Abschnitt verglichen ? 
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8F41 
8F42 
8Ff4d 
8F47 
8F49 
8FAC 
8F4E 
8F51 
8F54 
8F56 
8F57 
8F59 
8örf5C 


CA 

FO 13 

AC 71 02 
E6 31 

4C 2A 8f 
A9 DO 
8D 00 20 
20 83 A4 
A2 07 

2C 

A2 00 
8E BO 01 
4C 61 88 


DEX 

BEQ $8F57 
LDY $0271 
INC $31 
JMP $8F2A 
LDA #$D0 
STA $2000 
JSR $A4B3 
LDX #507 
.byte $2C 
LDX #%02 
STX $01B0 
JMP $8861 


ja, Zahl der Sektorabschnitte 
noch ein Abschnitt ? 

Ja, Zähler wieder setzen 
Pufferzeiger auf nächsten Puffer 
weiter testen 

111010000' 'Forced Interrupt'! an 
Kontroller; Kommando abbrechen 
ca. 80 Taktzyklen warten 
Fehlernummer für 'verify error! 
nächste 2 Bytes überspringen 
Fehlernummer für 'Header nicht gefunden! 
Nummer setzen 

warten bis Kommando beendet 


(Vektor: 86E2] 


alle CP/M Header 


8F5F 
8F60 
8F61 
8F64 
8F66 
8F68 
8F6B 
8F6D 
8F70 
8F72 
8F74 
8F77 
8F7A 
8öF7C 
8F’7E 
8F80 
8F82 
8F85 
8F87 
8F89 
SFC 
8F8E 
8F90 
8F92 
8F94 


l 


08 

78 

20 EF 89 
24 3B 

10 08 

AD 03 02 
85 67 

20 BA 87 
A9 00 
85 97 

20 27 8A 
AE BO 01 
EO 02 

BO IF 


AS 26 


85 96 
20 27 8A 
AS 26 
A4 97 
99 OB 02 
E6 97 
co IF 
BO OB 
Cc5 96 
DO EC 


J 


lesen und Sektorfolge feststellen 


PHP 

sEl 

JSR $89EF 
BIT $3B 
BPL $8F70 
LDA $0203 
STA $67 
JSR $87BA 
LDA #800 
STA $97 
JSR $8A27 
LDX $01B0 
CPX #802 
BCS $8F9D 
LDA $26 
STA $96 
JSR $8A27 
LDA $26 
LDY $97 


STA $020B,Y 


INC $97 
CPY #$1F 
BCS $8F9D 
CMP $96 
BNE $8F82 


Prozessorstatus retten 
Diskcontrolleraufruf abschalten 

Kopf auf SpurO setzen 

Flag für 'Spur setzen! prüfen 

soll neue Spur angesteuert werden ? 
ja, Spurnummer aus Befehlsstring holen 
und als Zielsprur setzen 

Kopf auf Spur positionieren 

zähler für Sektorzahl 

Löschen 

nächsten Header einlesen 

Rückmeldung holen und 

auf Fehlernummer prüfen 

ist Lesevorgang fehlerfrei verlaufen ? 
ja, Nummer des Sektors holen 

und als erste Sektornummer merken 
nächsten Header einlesen 

Nummer des Sektors holen 

Zeiger auf aktuelle Sektorposition 
Sektornummer in Tabelle eintragen 
Zeiger auf nächsten Sektoreintrag 

mit max. Sektorzahl (31) vergleichen 
ist Zahl der Sektoren erlaubt ? 

ja, auf erste Sektornummmer prüfen 

ist der erste Sektor wieder erreicht ? 
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8F96 AS 24 LDA $24 Ja, Nummer der Spur aus Header holen 
8F98 85 67 STA $67 und als aktuelle Zielspur setzen 

8F9A A2 00 LDX #800 Wert für 'Ok! Meldung 

8F9C_ 2C „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
8F902 A2 02 LDX #802 Fehlernummer für 'Header nicht gefunden! 
8FY9F BE BO 01 STX $01B0 Rückmeldung setzen 

8FA2 28 PLP Prozessorstatus wieder herstellen 

8FA3 60 RTS zurück zur aufrufenden Routine 

[öFF1] 

ıS!-Kommando (Sektor) : Sektorversatz für Commodore-Disketten setzen 
8FA4 AD 04 02 LDA $0204 5. Zeichen aus Befehlsstring holen 
8FA7 85 69 STA $69 und als neuen Sektorversatz setzen. 
8FA9 60 RTS zurück zur aufrufenden Routine 

[8FF5] 

IR!-Kommando (Read) : Zahl der Leseversuche festlegen 

8FAA AD 04 02 LDA $0204 5. Zeichen aus Befehlsstring holen und 
8FAD 85 6A STA $6A als neue Zahl der Leseversuche setzen 
8FAF 60 RTS zurück zur aufrufenden Routine 

[8FF9] 

!T!-Kommando (Test) : Prüfsumme des ROM testen 

8FBO 4C 4E 92 JMP $Y24E Prüfsumme berechnen 

[9001] 


'H'-Kommando (Head) : Kopf auf angegebene Diskettenseite setzen 
(nur im 1541 Modus) 


8FB3 78 SEI Bus- und Kontrolleraufruf abschalten 
8FB4 AD OF 18 LDA $180F Steuerregister holen 

8FB7 29 20 AND #%20 und Flag für Betriebsmodus holen 

8FB9 DO 66 BNE $9021 ist Laufwerk im 1541 Modus ? 

8FBB AD 04 02 LDA $0204 ja, 5. Zeichen aus Befehlsstring holen 
öfBE CY 31 CMP #831 und mit '1'! vergleichen 

8Fc0O FO 12 BEQ $8FD4 soll Kopf auf Seite 2 gesetzt werden ? 
8rc2 C9 30 CMP #330 nein, mit '0' vergleichen 

8öFc4 DO 5B BNE $9021 soll Kopf auf Seite 1 gesetzt werden ? 
öfc6 AD OF 18 LDA $180F ja, Steuerregister holen 

8örfc9 29 FB AND #&FB und Kopfelektronik auf Seite 1 

8fcB 8D OF 18 STA $180F schalten 


öFCE 58 CLI Bus- und Kontrolleraufruf einschalten 
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öFCF 24 3B BIT $3B Flags in Befehlsnummer testen 

8FD1 10 OE BPL $8FE1 soll Diskette initialisiert werden ? 
8FD3 60 RTS nein, zurück zur aufrufenden Routine 
[8FCO] 

Kopf auf Seite 2 anwählen 

8FD4 AD OF 18 LDA $180F Steuerregister holen und 

8FD7 09 04 ORA #$04 Bit für Kopfelektronik auf 

8FD9 &D OF 18 STA $180F Seite 2 stellen 

8FDC 58 CLI Bus- und Kontrolleraufruf einschalten 
8FDD 24 3B BIT $38B Flags in Befehlsnummer testen 

8FDF, 30 03 BMI $8FE4 soll Diskette initialisiert werden ? 
8FE1, 4C 42 DO JUMP $D042 ja, BAM von Diskette einlesen 

8FEA 60 RTS zurück zur aufrufenden Routine 


. 100 0 0 02 0 02 2 0 52 0 2 0 u m 5 0 nn mn nn m m m m ED CE m DD ES TE a CH m En m m m m a u m a GT m 5 a nm mn a nn mn mn m 


[Einsprung über Vektor 80C2 durch Routine 8030] 
Zusatz-Steuerfunktionen dekodieren 
8FE5S AE 74 02 LDX $0274 Länge des Befehlsstrings feststellen 


8FE8 EO 04 CPX #504 und prüfen ob 4 Zeichen angeben sind 
8FEA 90 35 BCC $9021 Befehl mindestens 4 Zeichen lang ? 
8öFEC AD 03 02 LDA $0203 ja, 4. Zeichen aus Befehl holen 

örFEF C9 53 CMP #$53 und mit 'S'! vergleichen 

8öFFi FO B1 BEQ $8FA4 soll Sektorversatz gesetzt werden ? 
öFF3 C9 52 CMP #852 nein, mit '!R' vergleichen 

örFF5 FO B3 BEQ $8FAA Zahl der Leseversuche setzen ? 

örF7 C9 54 CMP #354 nein, mit 'T' vergleichen 

8öFF9 FO B5 BEQ $8FBO ROM-Prüfsumme testen ? 

öFFB C9 4D CMP #$4D nein, mit 'M' vergleichen 

öFFD FO 27 BEQ $9026 1541/1571 Betrieb umschalten ? 

öfFF C9Y 48 CMP #548 nein, mit 'H' vergleichen 

9001 FO BO BEQ $8FB3- soll Diskettenseite angewählt werden ? 


. Geräteadresse setzen (Nummer in A) 


9003 AB TAY Geräteadresse merken 

9004 CO 04 CPY #504 mit minimaler IEC-Adresse vergleichen 
9006 90 19 BCC $9021 ist neue Adresse kleiner ? 

9008 CO IF CPY #$iF nein, auf maximale IEC-Adresse prüfen 
900A BO 15 BCS $9021 ist neue Adresse im erlaubten Bereich ? 
900C AY 40 LDA #840 ja, Kennzeichen für Talk 

900E 85 78 STA $78 setzen 


9010 A9 20 LDA #%20 Kennzeichen für Listen 
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9012 85 77 STA $77 setzen 

9014 98 TYA neue Geräteadresse holen 

9015 18 CLC und damit neue Adresse für 
9016 65 78 ADC $78 Talkaufruf erstellen 

9018 85 78 STA $78 Adresse setzen 

901A 98 TYA neue Geräteadresse holen 

901B 18 CLC und damit neue Adresse für 
901C 65 77 ADC $77 Listenaufruf erstellen 

901E 85 77 STA $77 Adresse setzen 

9020 60 RTS zurück zur aufrufenden Routine 


mu un. 00 0m m 0 mu 000 0 0 m En a Sn m nn na a an nn a m m m En TG GE CS a a Sn m 5 5 nn a a u mn mn m 


[L8FBY/BFCA/BFEA/9006/900A/9030] 


9021 A9 31 LDA #$31 Fehlermeldung 

9023 4C C8 CI JMP $CIC8 ı3] Syntax Error! ausgeben 

[8FFD] 

ıM!-Kommando (Mode) : 1541 / 1571 Betriebsmodus umschalten 

9026 78 SEI Bus- und Kontrolleraufruf abschalten 
9027 AD 04 02 LDA $0204 5. Zeichen aus Befehlsstring holen 
902A C9 31 CMP #$31 und mit '1' vergleichen 

902C FO 20 BEQ $Y04E in 1571 Modus schalten ? 

902E C9 30 CMP #%30 nein, mit '0' vergleichen 

9030 DO EF BNE $9021 in 1541 Modus schalten ? 


auf 1541 Modus schalten 


9032 AD OF 18 LDA $180F Ja, Steuerregister holen 

9035 29 DF AND #%DF Steuer- und Buselektronik 

9037 8D OF 18 STA $180F auf 1541 umschalten (1 MHz Takt) 
903A 20 83 A4  JSR $ALB3Z 80 Taktzyklen Verzögerung 

903D 20 82 FF JSR $FF82 1541 Modus initialisieren 

9040 AD AF 02 LDA $O2AF Flag für 

9043 09 80 ORA #$80 11541 IRQ Routine! ($9D88) 

9045 8&D AF 02 STA $O2AF setzen 

9048 58 CLI Bus- und Kontrolleraufruf einschalten 
9049 24 3B BIT $38B Flags in Befehlsnummer testen 

9048 10 2F BPL $907C soll Diskette initialisiert werden ? 


904D 60 RTS nein, zurück zur aufrufenden Routine 
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[902C] 
auf 1571 Modus umschalten 
904E AD OF 18 LDA $180F Steuerregister holen und 
9051 09 20 ORA #820 Bus- und Betriebselektronik auf 
9053 8D OF 18 STA $180F 1571 schalten (2 MHz Takt) 
9056 20 83 A4  JSR $A4B3 80 Taktzyklen Verzögerung 
9059 A9 DE LDA #%DE IRQ Vektor in $02A9/$O2AA zum 
905B 8D AY 02 STA $02A9 Jobschleifenaufruf 
905E A9 9D LDA #$9D auf 1571 Routine in $9DDE 
9060 8D AA 02 STA $02AA richten 
9063 A9Y 40 LDA #840 Timer 1 (High-Byte) 
9065 8D 07 IC STA $1C07 auf etwa 8 ms 
9068 8D 05 IC STA $1C05 setzen 
906B AD AF 02 LDA $O2AF Flag für 
906E 29 7F AND #87F IRQ von 1541 auf 1571 umschalten! 
9070 8D AF 02 STA $O2AF setzen 
9073 A9 00 LDA #00 Flag für aktuellen Kopfmodus 
9075 85 62 STA $62 Löschen 
9077 58 CLI Bus- und Kontrolleraufruf einschalten 
9078 24 3B BIT $38B Befehlsnummer testen 
907A, 30 03 BMI $907F . soll Diskette initialisiert werden ? 
907C_ 4C 42 DO JUMP $D042 ja, BAM von Diskette lesen 
907F 60 RTS zurück zur aufrufeneden Routine 


[BF66/Einsprung über Vektor in 80CC durch Routine 8030] 
Datei über 1571 Bus Schnell-Laden (PRG, SEQ oder USR) 


9080 20 CE 81 JSR $8iICE 1571 Bus auf Ausgang schalten 

9083 20 EA 91 JSR $Y1EA Dateiname vorbereiten 

9086 BO 5F BCS $I0E7 Name fehlerhaft ? 

9088 20 3D C6 JSR $C63D nein, Diskette initialisieren 

908B A5 FF LDA $FF Flag für Laufwerksstatus holen 

908D DO 58 BNE $90E7 ist Laufwerk bereit ? 

908F AS 37 LDA $37 ja, Busstatus holen und Flags 

9091 09 81 ORA #881 für '1571 Modus! und '!letzter Sektor! 
9093 85 37 STA $37 setzen 

9095 20 CA 91 JSR S91ICA Kanal- und Pufferparameter setzen 
9098 AD 00 02 LDA $0200 erstes Zeichen des Dateinamens holen 
909B C9Y 2A CMP #&2A und mit Joker '*'! vergleichen 

909D DO OF BNE $90AE zuletzt geladene Datei laden ? 

909F AS TE LDA $7E ja, Nummer der letzten Spur holen 


90A1I FO OB BEQ $9YOAE ist Spurnummer angegeben ? 
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90A3 
90A4 
90A7 
90AA 
90AB 
9OAE 
90B0 
9081 
9082 
90B5 
90B8 
90BB 
90BE 
90BF 
90c1 
90C4 
90C6 
90C8 
90CB 
90CC 
9OCF 
90D 1 
9003 
90D5 
90D7 
9009 
90DB 
90DD 
90DF 
90E2 


l 


1 


48 
AD 
8D 
68 
Ze 


90E4 A2 
90ES, 2C 


90E 


A2 


90E9_ 4C 
90EC 85 


90EE 
90EF 
90F2 
90F3 
90F6 
90F8 


48 
20 
68 
AE 
95 
AD 


6F 02 
85 02 


EC 90 
00 


8E 02 
7A 02 
12 C3 
78 02 


78 02 


AF CA 


78 02 


80 02 


PHA 

LDA $026F 
STA $0285 
PLA 

JMP $IOEC 
LDA #800 
TAY 

TAX 

STA $028E 
STA $027A 
JSR $C312 
LDA $0278 
PHA 

LDA #801 
STA $0278 
LDA #$FF 
STA $86 
JSR $CAAF 
PLA 

STA $0278 
LDA $37 
AND #$7F 
STA $37 
BIT $3B 
BMI $9ODF 
LDA $E7 
CMP #802 
BNE $90E4 
LDA $0280 
BNE $I0EC 
LDX #802 
‚byte $2C 
LDX #$0F 
JMP $91AD 
STA $7E 
PHA 

JSR $91DA 
PLA 

LDX $02B0 
STA $06,X 
LDA $0285 
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ja, Nummer merken 

Nummer des letzen Sektors 

holen und in Tabelle eintragen 

letzte Spurnummer holen 

Datei laden 

Zeiger und Register löschen : 

[Fehler siehe 7.1.5] 

[unnötige Initialisierung] 

Nummer des letzten Laufwerks 

Zeiger auf ersten Dateinamen 
.Laufwerksnummer aus Befehlsstring holen 
Zahl der gefundenen Dateinamen 

retten 

und nur einen Dateinamen 

erlauben 

Zeiger in Directorypuffer 

Löschen 

Eintrag im Directory suchen 

Zeiger mit Zahl der 

Dateinamen wieder holen 

Busstatus holen und 

Flag für '1571 Modus’ 

Löschen 

Befehlsnummer holen und Flag testen 
soll auf 'PRG'! Datei geprüft werden ? 
Dateityp des Dateieintrags feststellen 
und mit Kennzeichen für PRG vergleichen 
ist Eintrag eine PRG-Datei ? 

ja, Spurnummer des ersten Dateisektors 
wurde Eintrag im Directory gefunden ? 
Fehlernummer für 'File Not Found! 
nächste 2 Bytes überspringen (Bitbefehl) 
Fehlernummer für !Drive Not Ready! 
Fehler auf 1571 Bus ausgeben 

letzte Spur merken 

und Nummer retten 

Zeiger auf Jobtabelle berechnen 

letzte Spurnummer wieder holen 

Zeiger auf Jobtabelle holen 

und Spur des Jobs festlegen 

letzte Sektornummer holen 
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90FB 8D 6F 02 STA $026F und merken 

90FE 95 07 STA $07,X Sektornummer an Jobschleife übergeben 

9100 A9Y 80 LDA #880 Jobcode für Sektor lesen 

9102 8D 02 02 STA $0202 setzen 

9105, 85 5F STA $5F und als aktuellen Jobcode merken 

9107 58 CLI Bus- und Kontrolleraufruf einschalten 

9108 A6 FY LDX $F9 Nummer des aktuellen Puffers holen 

910A AS 5F LDA $5F und aktuellen Jobcode 

910C 95 00 STA $00,X an Jobschleife übergeben 

91DE 20 4B 86 JSR $864B Job ausführen 

9111 EO 02 CPX #%02 Rückmeldung auf 'Ok'! prüfen 

9113 90 03 BCC $9118 ist Job fehlerfrei verlaufen ? 

9115. 4C 99 91 JMP $9199 nein, Rückmeldung ausgeben 

9118! 78 SEI Bus- und Kontrolleraufruf abschalten 
9119 AO 00 LDY. #600 Pufferzeiger auf erstes Byte im Sektor 

911B B1 94 LDA ($94),Y Byte aus Puffer holen 

911D FO 2F BEQ $Y14E ist dies der letzte Sektor ? 

911F AS 37 LDA $37 nein, Busstatus holen 

9121 29 FE AND #S$FE und Flag für !letzten Sektor! 

9123 85 37 STA $37 Löschen 

9125 20 28 92 UJSR $9228 letzte 'Ok'! Meldung auf 1571 Bus geben 

9128, AD 02 LDY #802 Pufferzeiger auf erstes Datenbyte 

912al B1 94 LDA ($94),Y Byte aus Puffer holen 

912C AA TAX und für Ausgabe vorbereiten 

912D 20 28 92 UJSR 39228 Byte auf 1571 Bus ausgeben 

9130 C8 INY Pufferzeiger auf nächstes Byte richten 

9131 DO F7 BNE $912A schon ganzer Puffer übertragen ? 

9133 AE BO 02 LDX $02B0 ja, Zeiger in Jobtabelle holen 

9136 B1 94 LDA ($94),Y Spur des nächsten Sektors aus Puffer 

9138 D5 06 CMP $06,X mit Spur des letzten Jobs vergleichen 

913A FO 03 BEQ $Y13F nächster Sektor auf gleicher Spur ? 

913C AO 80 LDY #$80 nein, Jobcode für 'Sektor lesen! 

Y13E, 2C „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 

913rl AO 88 LDY #$88 Jobceode 'Sektor auf gleicher Spur lesen! 

9141 84 5F STY $5F Jobcode setzen 

9143 95 06 STA $06,X und Spurnummer an Jobschleife übergeben 

9145 AO 01 LDY #801 Zeiger auf Nummer des nächsten Sektors 

9147 B1 94 LDA ($94),Y Byte aus Verkettungsbytes holen 

9149 95 07 STA $07,X und an Jobschleife übergeben 

u 4c 07 91 JMP $9107 nächsten Sektor übertragen 


Y914E A2 IF LDX #$1F Rückmeldung für '!letzter Sektor"! 
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9150 20 28 92 JSR $9228 auf 1571 Bus ausgeben 

9153 A9 01 LDA #801 Flag für 'nur ein Sektor! 

9155 24 37 BIT $37 in Busstatusbyte testen 

9157 FO 1E BEQ $9177 hat das Programm nur einen Block ? 

9159 AB TAY Ja, Pufferzeiger setzen 

915A B1 94 LDA ($94),Y Zahl der gültigen Datenbytes des Sektors 

915C 38 SEC holen und Bytes 

915D EI 03 SBC #803 für Startaddresse und Verkettungs- 

915F 85 46 STA $46 bytes abziehen 

9161 AA TAX Zahl der noch zu übertragenden Bytes 

9162 20 28 92 JSR $9228 auf 1571 Bus übergeben 

9165 CB INY Pufferzeiger auf Programmstartadresse 

9166 B1 94 LDA ($94),Y Low-Byte der Startadresse holen 

9168 AA TAX und als auszugebendes Zeichen setzen 

9169 20 28 92 JSR $9228 Byte auf 1571 Bus ausgeben 

916cC CB INY Pufferzeiger auf High-Byte richten 

916D B1 94 LDA ($94),Y und Byte aus Puffer holen 

Y916F AA TAX Rest der Startadresse auf 

9170 20 28 92 JSR $9228 1571 Bus ausgeben 

9173 AO 04 LDY #%04 Pufferzeiger auf Beginn der Daten setzen 
. 9175, DO OD BNE $9184 immer Sprung nahc $9184 

9177! AO 01 LDY #801 Zeiger auf noch gültige Datenbytes 

9179 B1 94 LDA ($94),Y Zahl der Datenbytes aus Puffer holen 

917B AA TAX - und merken 

917C CA DEX Zahl der noch 

917D 86 46 STX $46 folgenden Datenbytes 

Yi’F 20 28 92 JSR $9228 auf 1571 Bus ausgeben 

9182, AD 02 LDY #802 Zeiger auf Start des Datenbereichs 

91842 B1 9% LDA ($94),Y Byte aus Puffer holen 

9186 AA TAX und für Ausgabe vorbereiten 

9187 20 28 92 JSR $9228 Byte auf 1571 Bus ausgeben 

Y918A C8 INY Pufferzeiger auf nächstes Byte richten 

Y918B C6 46 DEC $46 Zahl der noch zu übertragenden Bytes 

918D DO F5 BNE $9184 schon alle übertragen ? 

Yi8F A9 00 LDA #00 ja, Sekundäradresse für Load 

9191 85 83 STA $83 setzen 

9193 20 CO DA JSR $DACO Datei schließen 


9196 AC 94 CI JMP $C194 Rückmeldung bereitstellen 


Das 


roße Flo 


[9115/A9CF] 
Fehlermeldung ausgeben 


9199 
Y19A 
YI9C 
Y19F 
91A1 
91A3 


78 

86 46 

20 28 92 
A9 00 

85 83 

20 CO DA 
A6 F9 

A5 46 

4C 0A E6 


buch 1571/70 


SEI 

STX $46 
JSR $9228 
LDA #800 
STA $83 
JSR $DACO 
LDX $F9 
LDA $46 
JMP $E60A 
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Bus- und Kontrolleraufruf abschalten 
Fehlernummer auf 

1571 Bus ausgeben 

Sekundäradresse für Load 

setzen 

Datei schließen 

Nummer des aktuellen Puffers 

Nummer des Fehlers 
Klartextfehlermeldung bereitstellen 


[YOEY] 


Fehler bei Load ausgeben 


91AD 
Y1AE 
91B0 
91B2 
9185 
91B7 
9189 
Y1BC 
Y1BE 
Y1C0 
91C2 


78 

86 46 

A2 02 

20 28 92 
A9 00 

85 83 

20 CO DA 
A5 46 

c9 02 

FO 03 

A9 74 

2C A9 62 
A9 62 
4c c8 ci 


SEI 

STX $46 
LDX #02 
JSR $9228 
LDA #800 
STA $83 
JSR $DACO 
LDA $46 
CMP #$02 
BEQ $91C5 
LDA #$%74 
„byte $2C 
LDA #862 
JMP $C1C8 


Bus- und Kontrolleraufruf abschalten 
Fehlernummer merken 

Fehlernummer für 'File Not Found! 
auf 1571 Bus ausgeben 
Sekundäraddresse für Load 

setzen 

Datei schließen 

Fehlernummer wieder holen 

und auf 'File Not Found! prüfen 
identisch ? 

nein, Nummer für 'Drive Not Ready"! 
nächste 2 Bytes überspringen (Bitbefehl) 
Nummer für 'File Not Found! 
Klartextmeldung bereitstellen 


[9095] 
Kanal 
Y1CA 
YICC 
91CE 
91D0 


und Puffer 


A9 00 

85 83 
A9 01 

20 E2 D1 
AA 

BD EO FE 
85 95 

60 


für Fast Load belegen 


LDA #$00 
STA $83 
LDA #%01 
JSR $DIE2 
TAX 


LDA $FEEO,X 


STA $95 
RTS 


Sekundäradresse für Load 

setzen 

Zahl der zu belegenden Puffer 

Puffer und Kanal belegen 

Nummer des zugeordneten Puffers holen 
und High-Byte der Pufferadresse 

in Pufferzeiger übernehmen 

zurück zur aufrufenden Routine 
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[90EF] 

Zeiger auf Jobtabelle der Spur- und Sektornummern ermitteln 

91DA AS 95 LDA $95 High-Byte des Pufferzeigers 

91DC 38 SEC holen und aus physikalischer Adresse 

91DD E9Y 03 SBC #$03 logische Puffernummer errechnen 

91DF 85 FY STA $F9 und als aktuelle Puffernummer setzen 

91EI OA ASLA Nummer verdoppeln (da 2-Byte Tabellle) 

9iE2 8D BO 02 STA $02B0 und merken 

91E5 AY 00 LDA #800 Low-Byte des Pufferzeigers 

91E7T 85 94 STA $94 auf Pufferstart zurücksetzen 

91E9Y 60 RTS zurück zur aufrufenden Routine 

[9083] 

Dateinamen an Anfang des Eingabepuffers verschieben 

91EA AO 03 LDY #803 Zeiger auf Beginn des Dateinamens 

91IEC AD 74 02 LDA $0274 Länge des Befehlsstring holen 

Y91EF 38 SEC und Zeichen für 

91F0 EY 03 SBC #%03 'U0'!-Befehl abziehen 

Y91iF2 8D 74 02 STA $0274 Länge des Dateinamens merken 

91F5 AD 04 02 LDA $0204 zweites Zeichen des Namens 

91F8 CY 3A CMP #83A auf Doppelpunkt ':' prüfen 

91FA DO 0E BNE $920A Laufwerksnennung vorhanden ? 

9iFC AD 03 02 LDA $0203 ja, Nummer des Laufwerks holen 

YiFF AA TAX und merken 

9200 29 30 AND #830 Nummer auf ASCII-Ziffer 

9202 C9Y 30 CMP #$30 prüfen 

9204 DO 04 BNE $920A liegt eine Ziffer vor ? 

9206 EO 31 CPX #31 ja, mit '1' vergleichen 

9208_ FO 1C BEQ $9226 Laufwerk 1 angewählt ? 

920R2 AD 03 02 LDA $0203 ja, mit 'O' vergleichen 

920D CY 3A CMP #S3A mit ':'! vergleichen 

920F DO 04 BNE $9215 auch ein Doppelpunkt ? 

9211 CE 74 02 DEC $0274 ja, Länge des Dateinamens verkürzen 
‚9214, C8 INY Zeiger auf nächstes Pufferbyte 

92151 A2 00 LDX #800 Zeiger auf Beginn des Eingabepuffers 

9217 B9 00 02 LDA $0200,Y Dateinamen 

921A 9D 00 02 STA $0200,X an Beginn des Puffers verschieben 

921D C8 INY Pufferzeiger 

921IE EB INX auf nächstes Zeichen richten 

921F EC 74 02 CPX $0274 mit Ende des Dateinamens vergleichen 


9222 DO F3 BNE $9217 schon ganzer Name verschoben 
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9224 18 
9225, 24 
9226 38 
9227 60 


CLC 
„byte $24 
SEC 


ja, Flag für Name fehlerfrei 

nächstes Byte überspringen (Bit-Befehl) 
Flag für fehlerhafte Laufwerksnennung 
zurück zur aufrufenden Routine 


[9125/912D0/9150/9162/9169/9170/917F/9187/919C/91B2/AYEA] 
Byte bei Fast Load auf 1571 Bus geben 


9228 AD 00 18 
922B CD 00 18 


922E DO FB 
9230 29 FF 
9232 30 17 
‚9234 45 37 
9236 29 04 
9238 FO EE 


923A BE OC 40 


923D A5 37 
923F 49 04 
9241 85 37 
9243. A9 08 


92451 2C OD 40 


9248 FO FB 
924A_ 60 


924B 4C B3 A’ 


[8FBO/BF69] 


LDA $1800 
CMP $1800 
BNE $9228 
AND #8FF 
BMI $924B 
EOR $37 


. AND #804 


BEQ $9228 
STX $400C 
LDA $37 
EOR #804 
STA $37 
LDA #08 
BIT $400D 
BEQ $9245 
RTS 

JMP $A7B3 


Bussteuerregister holen 

und auf konstanten Zustand warten 
keine Änderung ? 

ja, Prozessorflags (N/Z) setzen 

ist ATN Eingang gesetzt ? 

nein, Busstatusflag holen 

und auf erwarteten Clockzustand prüfen 
hat Clock seit letztem mal gewechselt ? 
ja, Byte in Ausgaberegister schreiben 
Busstatus holen und 

Flag für 'Zustand des Clock-Eingangs'! 
auf nächsten Wert setzen 

Flag für "Ausgaberegister leer! 

prüfen 

ist Byte übertragen ? 

ja, zurück zur aufrufenden Routine 
ATN-Kommando bearbeiten 


Prüfsumme des ROM berechnen und ROM prüfen 


924E 08 
924F 78 
9250 A2 00 
9252 86 00 
9254 86 01 
9256 A9 03 
9258 85 75 
LT u N: Wu 
925B A9 80 
9250_ 85 76 
925F2 B1 75 
9261 85 02 
9263. A2 08 
9265° A5 02 


PHP 
sel 

LDX #800 
STX $00 

STX $01 

LDA #803 
STA $75 

TAY 

LDA #580 
STA $76 

LDA ($75),Y 
STA $02 

LDX #508 
LDA $02 


Prozessorstatus retten 

Bus- und Kontrolleraufruf abschalten 
Ergebnisregister 

für errechnete Prüfsumme 
Löschen 

Startadresse des ROM (Low-Byte) 
setzen 

Zeiger setzen 

High-Byte der ROM-Adresse 
festlegen 

Byte aus ROM holen 

und merken 

Zahl der Bits pro Byte 
ROM-Byte holen und ein Bit 


29 
85 
A5 
10 
E6 


90 
E6 


90 
E6 


90 


66 


80 


80 


AND #$01 
STA $03 
LDA $01 
BPL $9271 
INC $03 


BCC $9276 
INC $03 


STY $02 
STY $03 
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isolieren 

Bit in Zwischenspeicher übernehmen 
Bit15 des 

Prüfsummenregisters 

dazuaddieren 

Bit11 des 

Prüfsummenregisters 

dazuaddieren 

Bit8 des 

16-Bit Prüfsummenregisters 

in $00 und $01 

zum Zwischenspeicher 

dazurechnen 

Bit6 des 

Prüfsummenregisters 

holen und 

zum Zwischenspeicher 

addieren 

Prüfsummenregister um ein Bit nach 
links verschieben und in freie Stelle 
BitO des Zwischenspeichers übertragen 
nächstes Bit des ROM-Bytes anwählen 
Zahl der Bits pro Byte 

schon ganzes Byte verarbeitet ? 
ja, Zeiger auf aktuelles 

Byte im ROM 

auf nächstes Position richten 

ist Endadresse $FFFF erreicht ? 
Ja, Zeiger 

auf Null 

zurücksetzen 

erstes errechnetes Byte auf 
richtige Prüfsumme testen 

liegt ein Fehler vor ? 

nein, zweites errechnetes Byte auf 
richtige Prüfsumme testen 

ist ein Prüfsummenfehler aufgetreten ? 
nein, Prüfsummenregister 

und die diversen 

Zwischenspeicher wieder 

Löschen 
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92B1 
92B2 
92B3 
92B5 


28 
60 
A2 03 
86 6F 


92B7 4C 71 EA 


[YE0O8/YE11/BFOY] 
1571 Jobschleife 


_92BA 
92BB 
92BD 
92C0 
9203 
92C5 
92C8 
92CA 
92CD 
92CF 
9200 
9202 
9205 
9207 
9209 
92DC 
92DE 
92E0 
92E3 
9265 
92E7 
92E9 
92EB 
92er 
92EF 
92F1 
92F3 
92F5 
92F8 
92FB 
92FD 
92FF 
9300 


l 


l 


BA 

86 49 
2C 04 
AD OC 
09 0E 
8D OC 
AO 05 
BY O0 
30 06 
88 

10 F8 
4C CA 
c9 88 
DO 03 
4C 0D 
c9 DO 
DO 03 
4c A2 
29 01 
FO 07 
84 3F 
A9 OF 
4C B5 
AA 

C5 3E 
FO 08 
85 3E 
20 TE 
4C CA 
A5 20 
30 03 
0A 

10 03 


99 


96 


93 


99 


99 


PLP 

RTS 

LDX #$03 
STX $6F 
JMP $EA71 


TSX 

STX $49 
BIT $1C04 
LDA $1COC 
ORA #$0E . 
STA $1COC 
LDY #805 


LDA $0000,Y 


BMI $92D5 
DEY 

BPL $92CA 
JMP $99CA 
CMP #$88 
BNE $92DC 
JMP $960D 
CMP #%D0 
BNE $92E3 
JMP $93A2 
AND #$01 
BEQ $92EE 
STY $3F 
LDA #$0F 
JMP $99B5 
TAX 

CMP $3E 
BEQ $92FB 
STA $3E 
JSR $FY7E 
JMP $Y99CA 
LDA $20 
BMI $9302 
ASL A 

BPL $9305 


Prozessorstatus wieder herstellen 
zurück zur aufrufenden Routine 

Flag für Hardwarefehler 
initialisieren 

Hardwarefehler melden (LED-Blinken) 


aktuellen Stapelzeiger 
merken 
Timer zurücksetzen 


CA2-Ausgang 'SOE! 


(Seriell Output Enable) 

auf High setzen 

Zahl der Puffer 

Jobcode des Puffers holen 

ist Jobcode vorhanden ? 

nein, nächsten Puffer prüfen 

schon alle Puffer geprüft ? 

Ja, Stepperkommandos ausführen 

Jobcode "Sektor auf gleicher Spur lesen! 
identisch ? 

ja, Sektor in Puffer einlesen 

Jobceode für 'Programm ausführen! 
identisch ? 

Ja, Programm im Puffer starten 

Nummer des gewünschten Laufwerks holen 
ist Laufwerk 0 angewählt ? 

nein, Nummer des Puffers merken 
Fehlermeldung 

ıIDrive not Ready! zurückmelden 
Laufwerksnummer merken 

auf Nummer des aktiven Laufwerks prüfen 
identisch ? 

nein, dann aktuelles Laufwerk neu setzen 
Laufwerksmotor einschalten 
Stepperkommandos ausführen 
Laufwerksstatus holen 

ist Laufwerk bereit ? 

ja, Flag für Steppermotor testen 

ist Kopf noch in Bewegung ? 
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93021 4C CA 99 JUMP $99CA ja, Stepperfunktionen ausführen 

9305 AI 20 LDA #820 Flag für 'Motor an/Laufwerk bereit! 
9307 85 20 STA $20 in Laufwerksstatus setzen 

9309 AO 05 LDY #05 Zahl der Puffer 

930B, 84 3F STY $3F aktuellen Puffer anwählen 

930D 20 DI 93 UJSR $93D1 Pufferzeiger setzen und Jobcode holen 
9310, 30 1A BMI $932C ist ein Job vorhanden ? 

93127” C6 3F DEC $3F nein, nächsten Puffer anwählen 

9314 10 F7 BPL $930D schon alle Puffer geprüft ? 

9316 A4 41 LDY $41 Puffernummer des letzten Jobs holen 
9318 20 D3 93 JSR $93D3 Pufferzeiger setzen 

931B A5 42 LDA $42 Nummer der anzusteuernden Spur 

931D 85 4A STA $4A als Zielspur merken 

Y31F 06 4A ASL $4A Zahl der Halbspurschritte errechnen 
9321 A9Y 60 LDA #860 Flag für 'Stepper an / Motor an! 
9323 85 20 STA $20 in Laufwerksstatus setzen 

9325 B1 32 LDA ($32),Y Spur des Jobs holen 

9327 85 22 STA $22 und merken 

9329 4C CA 99 JUMP $99CA Spur ansteuern 

932c 1 29 01 AND #801 Nummer des angenwählten Laufwerks mit 
932E C5 3E CMP $3E aktueller Laufwerksnummer vergleichen 
9330 DO EO BNE $9312 identisch ? 

9332 A5 22 LDA $22 Nummer der aktuellen Spur prüfen 
9334 FO 32 BEQ $9368 ist Zeiger gesetzt ? 

9336 AS 22 LDA $22 ja, aktuelle Spur holen 

9338 CY 24 CMP #324 und mit maximaler Spur +1 vergleichen 
(36) 

933A 08 PHP Ergebnis merken 

9338 B1 32 LDA ($32),Y Spur des Jobs mit maximaler Spur +1 
933D CY 24 CMP #%24 vergleichen 

933F 6A ROR A Ergebnis in Bit? 

9340 28 PLP vorheriges Ergebnis im Carry 

9341 29 80 AND #$80 letztes Prüfergebnis isolieren 

9343 90 OB BCC $9350 ist aktuelle Spur auf Seite 2 ? 

9345 30 11 BMI $9358 ja, ist neue Spur auf Seite 1 ? 

9347 A5 22 LDA $22 ja, Nummer der aktuellen Spur 

9349 E9 23 SBC #23 auf Seite 1 umrechnen 

934B 85 22 STA $22 und merken 

934D 4C 58 93 UJMP $9358 Spurnummer weiter bearbeiten 

93501 10 06 BPL $9358 ist neue Spur auf Seite 2 ? 


9352 AS 22 LDA $22 ja, aktuelle Spurnummer 
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9354 69 23 
9356_ 85 22 
9358” 38 

9359 B1 32 
935B ES 22 
935D FO 09 
935F 85 42 
9361 AS 3F 
9363 85 41 
9365, 4C 12 
9368 
936A BI 32 
936C 85 40 
936E C9 24 
9370 AB 

9371 20 F3 
9374 98 

9375 90 02 
9377 E9 23 
93791 an 

937A BD 08 
937 85 43 
937F AD 00 
9382 29 9F 
9384 05 43 
9386 80 00 
9389 BD 2B 
938C 85 43 
938E AS 45 
9390 C9 40 
9392 FO IC 
9394 C9 60 
9396 FO OA 
9398 C9 70 
939A FO 03 
939C 


939F 1 


93 


94 


4C 4F 94 
4C 29 9B 
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ADC #823 
STA $22 

SEC 

LDA ($32),Y 
SBC $22 

BEQ $9368 
STA $42 

LDA $3F 

STA $41 

JMP $9312 
LDX #504 
LDA ($32),Y 
STA $40 

CMP #824 
TAY 

JSR $93F3 
TYA 

BCC $9379 
sBc #823 
TAX 

LDA $9408,X 
STA $43 

LDA $1C00 
AND #%9F 
ORA $43 

STA $1C00 
LDA $942B,X 
STA $43 

LDA $45 

CMP #840 
BEQ $93B0 
CMP #860 
BEQ $93A2 
CMP #870 
BEQ $939F 
JMP $944F 
JMP $9B29 
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auf Seite 2 umrechen und 

merken 

Differenz zwischen 

neuer Spur und 

aktueller Spur ausrechnen 

ist Kopf schon auf gewünschter Spur ? 
Zahl der zu fahrenden Schritte merken 
Nummer des aktuellen Puffers holen 
und merken 

nächsten Job bearbeiten 

keine Funktion [Fehler siehe 7.1.5] 
Nummer der Spur holen 

und merken 

mit maximaler Spurnummer +1 vergleichen 
und merken 

entsprechende Seite anwählen 

Spur wieder holen 

Liegt Spur auf Seite 2 

ja, absolute Spur der Seite errechnen 
und merken 

Bitrate des Spurbereichs ermitteln 
und setzen 

Laufwerkssteuerregister holen 

Bits für Aufzeichnungsrate 


neu setzen 


und in Steuerregister setzen 

Zahl der Sektoren der Spur feststellen 
und speichern 

Befehlbits des Jobcodes holen 

und auf 'Bump' prüfen 

soll Kopf auf SpurO gesetzt werden ? 
nein, auf 'Programm ausführen! testen 
soll Pufferprogramm gestartet werden ? 
nein, auf 'Formatieren' prüfen 

soll Diskette formatiert werden ? 
nein, Sektorheader lesen 

Diskette formatieren 
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[Y2E0/Y396] vgl. F36E 

Programm im Puffer in Jobschleife einbinden 
93A2 AS 3F LDA $3F 

YZA4 18 . cLc 

9315 69 03 ADC #803 

93A7 85 31 STA $31 

93A9 A9 00 LDA #500 

93AB 85 30 STA $30 

93AD 6C 30 00 JUMP ($0030) 


Nummer des aktuellen Puffers 
holen und 

physikalische Pufferadresse 
berechnen 

Low-Byte auf 

Pufferanfang setzen 
Programm ausführen 


Kopf auf Spur O0 zurücksetzen ('Bump'!') 


93B0 
93B2 
93B4 
93B7 
9389 
Y3BC 
Y3BE 
93C0 
9303 
93C5 


93c7 
l 


A9 60 
85 20 

AD 00 IC 
29 FC 

8D 00 IC 
A9 A4& 

85 4A 

AD B1 01 
30 03 
A9 01 

2C 


LDA #860 
STA $20 
LDA $1C00 
AND #$FC 
STA $1C00 
LDA #$A4 
STA $4A 
LDA $018B1 
BMI $93C8 
LDA #801 
.byte $2C 
LDA #$24 
STA $%22 
LDA #01 
JMP $99B5 


[vgl. F37C] 

Flag für 'Stepper an/Motor an! 

in Laufwerksstatus setzen 
Steuerregister holen 

und Steppersteuerbits 

Löschen 

Zahl der Spuren setzen (-36) 

die der Kopf zurückbewegt wird 

Flag für aktuelle Diskettenseite holen 
ist Seite 1 angewählt ? 

ja, erste Spurnummer setzen (1) 
nächste 2 Bytes überspringen (Bitbefehl) 
erste Spur der zweiten Seite (36) 
Spurnummer merken 

Rückmeldung für '!Ok! 

übergeben 


[9300D/9403/9527/BFOF/9303:9318] 


vgl. F393 


Pufferzeiger setzen und Jobcode des Puffers holen 


93D1 AA 3F LDY $3F 
9303 BY 00 00 LDA $0000,Y 
9306 48 PHA 

93D7 10 14 BPL $93ED 
9309 29 78 AND #$78 
930DB 85 45 STA $45 
930D 98 TYA 

93DE DA ASL A 
93DF 69 06 ADC #$06 
93E1 85 32 STA $32 
93E3 A9Y 00 LDA #800 
93E5 85 33 STA $33 


Nummer des aktuellen Puffers 
zugehörigen Jobcode holen 
und merken 

ist ein Befehl vorhanden ? 
ja, Bit 3-6 isolieren und als 
signifikante Befehlsbits merken 
Nummer des Puffers holen 

und verdoppeln 

Zeiger auf Tabelle 

der Spur- und Sektorangaben 
zu dem Job ($0006-$0011) 
setzen 
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93E7 98 TYA Nummer des Puffers holen 

93E8 18 CLC und daraus die 

93E9 69 03 ADC #803 physikalische Speicheradresse 
93EB, 85 31 STA $31 berechnen 

93£0 | AD 00 LDY #00 Adresse in Zeiger $30/$31 

93EF 84 30 STY $30 ablegen 

93F1 68 PLA Jobcode wieder holen 

93F2 60 RTS zurück zur aufrufenden Routine 
[895C/9371/9B41] 

Schreib-/Lesekopf auf der aktuellen Diskettenseite aktivieren 

93F3 BO 03 BCS $93F8 ist Seite 2 angewählt ? 

93F5 AI 00 LDA #$00 nein, Steuerbits für erste Seite 
93F7 2C | .byte $2C nächste 2 Bytes überspringen 
93F8 AY 84 LDA #584 Steuerbits für Seite 2 (%10000100) 
93FA 8D B1 01 STA $01B1 Bits merken 

93FD AD OF 18 LDA $180F Steuerregister A holen 

9400 29 FB AND #$FB und Bits neu 

9402 OD B1 01 ORA $01B1 setzen 

9405 8D OF 18 STA $180F Wert in Steuerregister schreiben 
9408 60 RTS zurück zur aufrufenden Routine 


[937A] Steuerbits zur Aufzeichnungsrate auf jeder Spur 


Bit6 Bit5 Spurbereich Aufzeichnungsrate 


0 0 31.,.#.35 31250 Bytes/sec 
0 1 25 - 30 33333 Bytes/sec 
1 0 18 - 24 35714 Bytes/sec 
1 1 1-17 38461 Bytes/sec 


9409 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 

9419 60 40 40 40 40 40 40 40 20 20 20 20 20 20 00 00 

9429 00 00 00 

 TA82C/A8C2] Zahl der Sektoren pro Spur im Commodore- Format 
942C 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 

943C 15 13 13 13 13 13 13 13 12 12 12 12 12 12 11 119 

944C 11 11 11 
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[Y39C/97F6] 

Header eines Sektors suchen 

QLAF AY 5A LDA #85A Zahl der Leseversuche (90) 

9451. 85 4B STA $4B festlegen 

9453 _ 20 54 97 JSR $9754 auf nächste Sync-Markierung warten 

94561 2C OF 18 BIT $180F ıByte Ready'-Signal prüfen 

9459 30 FB BMI $9456 ist nächstes Byte bereit ? 

945B AD 01 IC LDA $1C01 ja, GCR-Byte von Diskette lesen 

9L5E C9Y 52 CMP #$52 mit Kennzeichen für Header vergleichen 

9460 DO 3E BNE $94AO ist das ein Sektorheader ? 

9462 99 24 00 STA $0024,Y ja, Byte in Headerpuffer 

9465 CB INY Pufferzeiger auf nächstes Byte setzen 

9466 2C OF 18 BIT $180F ıByte Ready'-Signal prüfen 

9469 30 FB BMI $9466 ist nächstes Byte bereit ? 

Y4h6B AD 01 IC LDA $1C01 Ja, GCR-Byte von Diskette lesen 

Y4L6E 99 24 00 STA $0024,Y Byte in Headerpuffer 

9471 C8 INY Pufferzeiger auf nächstes Byte setzen 

9472 CO 08 CPY #808 Zahl der Headerbytes 

9474 DO FO BNE $9466 schon ganzen Header gelesen ? 

YLT6 20 2F 95 JSR $952F ja, Blockheader von GCR nach Binär 

9479 AO 04 LDY #504 Zahl der relevanten Headerbytes 

947B. A9 00 LDA #800 Prüfsumme der Bytes berechnen : 

9401 59 16 00 EOR $0016,Y Headerbyte einrechnen 

9480 88 DEY Zeiger auf nächstes Byte 

9481 10 FA BPL $947D schon alle Bytes eingerechnet 

9483 C9 00 CMP #00 mit Wert für !richtig'! vergleichen 
9485 DO 30 BNE $94B7 ist Prüfsumme fehlerfrei ? 

9487 A5 18 LDA $18 ja, Spurnummer aus Header als 

9489 85 22 STA $22 Nummer der aktuellen Spur setzen 

9L8B A5 45 LDA $45 Jobcodebefehlbits holen und auf 

YL8D C9Y 30 CMP #30 | Code für 'Sektor suchen! prüfen 

Y4BF FO 18 BEQ $94AY soll Sektorheader gesucht werden ? 

9491 AS 12 LDA $12 nein, ID aus Sektorheader mit 

94193 C5 16 CMP $16 aktueller ID vergleichen 

9495 DO 1D BNE $94B4 identisch ? 

9497 A5 13 LDA $13 nächstes ID Zeichen 

9499 C5 17 CMP $17 prüfen 

949B DO 17 BNE $94B4 trat ein Diskwechsel auf ? 

949D. 4C BC 94  JMP SY4BC nein, nächsten Job holen 

94101 C6 4B DEC $4B Zahl der Leseversuche 


Q94A2 DO AF BNE $9453 noch einen Versuch durchführen ? 
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Q4A4 A9 02 LDA #802 nein, Fehlernummer zu 'Header Not Found! 
Q4LA6. 20 B5 99 JSR $99B5 Fehlermeldung ausgeben 
YLA9Y AS 16 LDA $16 aktuelle ID aus Header 

:Q94AB 85 12 STA $12 übernehmen (erstes Zeichen) 
94AD AS 17 LDA $17 aktuelle ID aus Header 
QLAF 85 13 STA $13 übernehmen (zweites Zeichen) 
94B1 A9 01 LDA #801 Nummer für 'Ok'! Meldung 
94B3_ 2C .byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
94B4 A9 OB LDA #%$0B Fehlernummer für '!id mismatch' 
94B6_ 2C „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
9487! A9 09 LDA #509 Fehlernummer für 'read error (27)! 
94LB9 4C B5 99 JUMP $99B5 Rückmeldung übergeben 
[9490] vgl. F423 


nächsten Job holen (Sektoroptimiert) 
optimal ist ein Abstand von > 6 (lesen) oder 9-12 Sektoren (schreiben) 


QY4BC AY 7F 
9LBE 85 4C 
94c0 AS 19 
94c2 18 

9403 69 02 
945 C5 43 
94c7 90 02 
9409 ES 43 
94cp! 85 4D 
94cCD A2 05 
YuUCF 86 3F 
94D1, A2 FF 
94031 20 D1 
9406 10 43 
9uD8 29 01 
94DA C5 3E 
94DC DO 3D 
94DE AO 00 
94EO B1 32 
94E2 C5 40 
Q94E4 DO 35 
Y4UE6 AS 45 
Y4LEB CY 60 
94EA FO OC 
94EC AO 01 
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LDA #$7F 
STA $4C 
LDA $19 
CLC 

ADC #802 
CMP $43 
BCC $Y4CB 
SBC $43 
STA $4D 
LDX #$05 
STX $3F 
LDX #$FF 
JSR $930D1 
BPL $951B 
AND #$01 
CMP $3E 
BNE $9518B 
LDY #800 


LDA ($32),Y 


CMP $40 
BNE $951B 
LDA $45 
CMP #860 
BEQ $Y4FE 
LDY #801 


Zeiger für Differenz zum nächsten Job 
initialisieren 

Nummer des Sektors 

aus Blockheader 

mit maximaler 

Sektornummer vergleichen 

ist Nummer im erlaubten Bereich ? 

nein, maximale Nummer abziehen 

und neue Sektornummer merken 

Puffer 5 als 

aktuellen Puffer setzen 

Wert für Pufferzeiger 

Pufferzeiger setzen und Jobcode holen 
ist ein Jobcode vorhanden ? 

ja, angesprochenes Laufwerk feststellen 
und mit aktuellem Laufwerk vergleichen 
identisch ? 

ja, Zeiger auf Parameter von Puffer 0 
Spur des Jobs für Puffer O0 holen 

mit letzter Spur vergleichen 

identisch ? 

ja, Befehlsbits des Jobcodes holen und 
auf Kode für 'Programm ausführen! testen 
identisch ? 

nein, Zeiger auf Parameter von Puffer 0 


[9476] vgl. F497 
Sektorheader von GCR 


952F AS 30 LDA 
9531 48 PHA 
9532 AS 31 LDA 
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Y4EE 38 SEC Sektornummer des Jobs 
YLEF B1 32 LDA ($32),Y für Puffer 1 holen 
94F1 ES 4D SBC $4D auf errechnetem optimalem Sektor prüfen 
94F3 10 03 BPL $94F8 ist neue Sektornummer kleiner ? 
94F5 18 CLC nein, Zahl der Sektoren bis zu diesem 
QAF6_ 65 43 ADC $43 Sektor berechnen 
94F8” C5 4C CMP $4C und mit letzter Differenz vergleichen 
94FA BO IF BCS $951B ist neuer Wert kleiner als letzter ? 
YuFC 48 PHA ja, Sektordifferenz merken 
94FD AS 45 LDA $45 Befehlsbits des Jobcodes prüfen 
9LFF FO 15 BEQ $9516 soll Sektor gelesen werden ? 
9501 68 PLA nein, Differenz wieder holen 
9502 cC9 09 CMP #$09 und mit 9 vergleichen 
9504 90 15 BCC $951B ist Wert kleiner ? 
9506 C9 OC CMP #$0C nein, mit 13 vergleichen 
9508, BO 11 BCS $951B ist Differenz kleiner 13 ? 
950Al 85 4C STA $4C ja, neue Sektordifferenz merken 
950C AS 3F LDA $3F Nummer des aktuellen Puffers 
950E AA TAX holen 
950F 18 CLC und daraus dann 
9510 69 03 ADC #803 die zugehörige physikalische 
9512 85 31 STA $31 Speicheradresse berechnen 
9514, DO 05 BNE $951B immmer Sprung nach $951B 
95161 68 PLA Sektordifferenz wieder holen 
9517 C9 06 CMP #506 und mit 6 vergleichen 
9519_ 90 EF BCC $950A ist Differenz kleiner ? 
951B C6 3F DEC $3F nein, Zeiger auf nächsten Puffer richten 
951D 10 B4 BPL $94D3 schon alle Puffer geprüft ? 
951F 8A TXA ja, Puffernummer des nächsten Jobs 
9520 10 03 BPL $9525 optimaler Job gefunden ? 
9522. 4C CA 99 JUMP SIY9CA Stepperkommandos ausführen 
9525 1 86 3F STX $3F Nummer als aktuellen Puffer merken 
9527 20 DI 93 JSR $93D1 Pufferzeiger setzen und Jobcode holen 
952A AS 45 LDA $45 Befehlbits des Jobcodes feststellen 
952C 4C 06 96 MP $9606 Lese- und Schreibjobs ausführen 


nach Binär umrechnen 


$30 Low-Byte des aktuellen Pufferzeigers 
retten 
$31 | High-Byte des aktuellen Pufferszeigers 
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9534 48 PHA retten 
9535 AI 24 LDA #824 Pufferzeiger $30/$31 
9537 85 30 STA $30 auf Beginn des Puffers 
9539 AA 00 LDA #800 für den aktuellen 
953B 85 31 STA $31 Sektorheader setzen 
953D AI 00 LDA #500 Pufferzeiger 
953F 85 34 STA $34 zurücksetzen 
9541 20 D9 98 UJSR $98DY 5 GCR-Bytes in 4 Binärbytes umwandeln 
9544 45 55 LDA $55 erstes umgewandeltes Byte holen und 
9546 85 18 STA $18 als Spurnummer des Headers merken 
9548 AS 54 LDA $54 zweites umgewandeltes Byte holen 
954A 85 19 STA $19 und als Sektornummer merken 
954LC AS 53 LDA $53 * drittes umgewandeltes Byte holen 
954E 85 1A STA $1A und als Prüfsumme des Headers setzen 
9550 20 D9 98 SR $98D9 5 GCR-Bytes in 4 Binärbytes umwandeln 
9553 A5 52 LDA $52 erstes umgewandeltes Byte 

. 9555 85 17 STA $17 als zweites Zeichen der ID sezten 
9557 a5 53 LDA $53 zweites umgewandeltes Binärbyte 
9559 85 16 STA $16 als erstes Zeichen der ID setzen 
9558 68 PLA ursprünglichen Wert 
955C 85 31 STA $31 des Pufferzeigers $30/$31 
955E 68 PLA wieder holen und 
955F 85 30 STA $30 setzen | 
9561 60 RTS zurück zur aufrufenden Routine 
9562 FF ... unbenutzter 
OSFF ... FF ROM-Bereich 
[9E0D/Y8EA6] vgl. F5OA 


Datensektor suchen und auf Kopf auf Datenanfang setzen 


9600 20 OF 97 JSR $970F Sektorheader suchen 
9603 AC 54 97 JMP $9754 nächste Sync-Markierung abwarten 
[952C] vgl. F4ACA 


Comodore Sektor lesen, wenn Jobcode $80 (Befehlbits $00) 


9606 C9 00 CMP #800 Jobcode auf 'Sektor lesen! prüfen 
9608 FO 03 BEQ $960D identisch ? 
960A AC 6E 97 JMP $976E nein, Jobcode weiter prüfen 
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[9209/9608] 


Sektor lesen 


960D 20 00 
9610 2C OF 
9613 30 FB 
9615 AD 01 
9618 AA 

9619 BD OD 
Y6IC 85 52 
Y61E 8A 

961F 29 07 
9621, 85 53 
96231 
9626 30 FB 
9628 AD 01 
962B 85 54 
962D 29 CO 
962F 05 53 
9631 AA 


[Y63E/YED4] 


96 
18 


IC 


AO 


2C OF 18 


IC 


9F 


JSR $9600 
BIT $180F 
BMI $9610 
LDA $1C01 
TAX 

LDA $AOO0D,X 
STA $52 

TXA 

AND #%07 
STA $53 


"BIT $180F 


BMI $9623 
LDA $1C01 
STA $54 

AND #8C0 
ORA $53 
TAX 

LDA $9FOD,X 
ORA $52 
PHA 

JMP $9667 
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Datenblock suchen 


auf 'Byte Ready'-Signal 

warten 

Byte von Diskette lesen 

und merken 

Binäraquivalent holen 

und merken 

ursprüngliches Byte wieder holen 
und ersten GCR-Teil ausblenden 

Byte merken 

auf 'Byte Ready'-Signal 

warten 

Byte von Diskette lesen 

und merken 

letzte 2 Bits des 2. GCR-Bytes holen 
und erste 3 Bits einblenden 

(1. Teil: Bit 0-2; 2. Teil: Bit 6-7) 
Binäräquivalent holen und mit vor- 


herigem Halbbyte erstes Binärbyte bilden 


Byte als Datenblockkennzeichen merken 
Datenteil einlesen 


GCR-Bytes von Diskette lesen und als Binärbytes im Puffer ablegen 


965B 2C OF 
963E 30 FB 
9640 AD 01 
9643 AA 

9644 BD OD 
9647 85 52 
9649 BA 

964A 29 07 
Y64C, 85 53 
96481 2C OF 
9651 30 FB 
9653 AD 01 
9656 85 54 
9658 29 CO 
965A 05 53 


18 


IC 


AO 


18 


IC 


BIT $180F 
BMI $963B 
LDA $1C01 
TAX 

LDA $AO0D,X 
STA $52 
TXA | 
AND #$07 
STA $53 
BIT $180F 
BMI $964E 
LDA $1C01 
STA $54 
AND #$C0 
ORA $53 


auf 'Byte Ready'-Signal 

warten 

Byte von Diskette lesen 

und merken 

Binäräquivalent feststellen 

und zwischenspeichern 
ursrüngliches Datenbyte wieder holen 
und erstes GCR-Byte ausblenden 

Teil des 2. GCR-Bytes merken 

auf 'Byte Ready'-Signal 

warten 

Byte von Diskette lesen 

und merken 

letzten Teil des 2. GCR-Bytes holen 
und ersten Teil einblenden 
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965C AA TAX (1. Teil: Bit 0-2; 2. Teil: Bit 6-7) 
965D BD OD YF LDA $9YFOD,X entsprechendes Binärhalbbyte holen 
9660 05 52 ORA $52 und vorheriges Halbbyte einblenden 
9662 91 30 STA ($30),Y Binärbyte in Puffer schreiben 

9664 CB INY Pufferzeiger auf nächstes Byte richten 
9665. FO 70 BEQ $96D7 Ende des Puffers erreicht ? 

96671 A5 54 LDA $54 nein, nächstes GCR-Byte holen 

9669 AA TAX und oberes Halbbyte des 

966A BD OD AI LDA $A10D,X äquivalenten Binärbytes feststellen 
966D 85 52 STA $52 und merken 

Y66F BA TXA ursprüngliches GCR-Byte wieder holen 
9670 29 01 AND #801 und erster Teil des nächsten GCR-Bytes 
9672, 85 54 STA $54 bilden und merken 

9674, 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 

9677 30 FB BMI $9674 warten 

9679 AD 01 IC LDA $1C01 Byte von Diskette lesen 

967C 85 55 STA $55 und merken 

967E 29 FO AND #$F0 zweiten Teil des GCR-Bytes herstellen 
9680 05 54 ORA $54 und mit ersten Teil verknüpfen 
9682 AA TAX (1. Teil: BitO; 2. Teil: Bit 4-7) 

9683 BD OF 9F LDA $9FOF,X entsprechendes Binärhalbbyte holen 
9686 05 52 ORA $52 und nächstes Binärbyte bilden 

9688 91 30 STA ($30),Y Byte in Puffer schreiben 

Y68BA CB INY | Pufferzeiger auf nächstes Byte richten 
968B AS 55 LDA $55 ersten Teil des nächsten 

968D 29 OF AND #8$0F GCR-Bytes herstellen 

968F._ 85 55 STA $55 und merken 

969 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 

9694 30 FB BMI $9691 warten 
. 9696 AD 01 IC LDA $1C01 Byte von Diskette lesen 

9699 85 3A STA $3A und merken 

Y69B 29 80 AND #%80 zweiten Teil des GCR-Bytes erstellen 
969D 05 55 ORA $55 und mit erstem Teil verknüpfen 

969F AA TAX (1. Teil: Bit 0-3; 2. Teil: Bit?) 

96ADO BD 1D 9F LDA $YFID,X erstes Halbbyte des nächsten Binärwerts 
Y6A3 85 52 STA $52 feststellen und zwischenspeichern 

Y96h5 A5 3A LDA $3A ursprünglichen GCR-Wert wieder holen 
96A7 AA TAX und zweites Halbbyte 

96A8 BD OD A2 LDA $A20D,X des äuivalenten Binärbytes holen 

Y6AB 05 52 ORA $52 ersten Teil einblenden und 


Y96AD 91 30 STA ($30),Y Byte in Puffer schreiben 


[9665] 
9607 
9609 
96DA 
96DD 
96DF 
96EO 
96E2 
I6E4 
96E7 
96E9 
I6EC 
I6EE 
96FO 
96F1 
I6F4 
_I6F6 
732: 


c8 
8A 
29 
85 


03 
3A 


2C OF 18 


30 
AD 
85 
29 
05 
AA 
BD 
85 
AS 
AA 
BD 
05 
91 
c8 
4Cc 


Ende des 


FB 
01 IC 
53 
EO 
3A 


2A 9F 
52 
53 
OD A3 
52 
30 


3B 96 


54 


OD A1 
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INY Pufferzeiger auf nächstes Byte richten 
TXA ersten Teil des 

AND #803 nächsten GCR-Bytes herstellen 

STA $3A und merken 

BIT $180F auf !Byte Ready'-Signal 

BMI $96B5 warten | 

LDA $1C01 Byte von Diskette lesen 

STA $53 und zwischenspeichern 

AND #%E0 zweiten Teil des GCR-Bytes isolieren 
ORA $3A und mit erstem Teil verknüpfen 

TAX. (1. Teil: Bit 0-1; 2. Teil: Bit 5-7) 
LDA $9F2A,X erstes Binärhalbbyte feststellen 

STA $52 und merken 

LDA $53 ursprünglichen GCR-Wert wieder holen 
TAX und zweiten Teil des 

LDA $A30D,X Binärbytes holen 

ORA $52 erstes Halbbyte einblenden 

STA ($30),Y Byte in Puffer schreiben 

INY Pufferzeiger auf nächste Position setzen 
JMP $963B nächste 5 GCR-Bytes in 4 Binärbytes 
Puffers erreicht 

LDA $54 letztes GCR-Byte holen 

TAX und erstes Halbbyte des 

LDA $A10D,X nächsten Binärbytes feststellen 

STA $52 und merken 

TXA ursprünglichen GCR-Wert wieder holen 
AND #01 und ersten Teil des nächsten GCR-Bytes 
STA $54 isolieren 

BIT $I8OF auf 'Byte Ready'-Signal 

BMI $96E4 ‘warten 

LDA $1C01 Byte von Diskette lesen 

AND #SF0 und zweiten Teil des GCR-Bytes holen 
ORA $54 mit erstem Teil verknüpfen 

TAX (1. Teil: BitO; 2. Teil: Bit 4-7) 

LDA $YFOF,X zweiten Teil des Binärbytes feststellen 
ORA $52 und endgültiges Binärbyte bilden 

STA $53 Wert als Prüfsumme merken 

PLA Datenblockkennzeichen wieder holen 

CMP $47 und prüfen v 


96F9 
96FB 


BNE $9707 ist Kennzeichen richtig ? 


-_ Das große Floppybuch_1571/70 297 


‚ja, Prüfsumme des Puffers berechnen 


auf angegebener Prüfsumme prüfen 

ist ein Lesefehler aufgetreten ? 

ja, Fehlernummer für 'Read Error (23)! 
nächste 2 Bytes überspringen (Bitbefehl) 
Fehlernummer für 'Read Error (22)' 
nächste 2 Bytes überspringen (Bitbefehl) 
Wert für 'Ok' Meldung 

Rückmeldung übergeben 


96FD 20 E9 F5 JSR $F5E9 
9700 C5 53 CMP $53 
9702 FO 06 BEQ $970A 
9704 A9 05 LDA #05 
9706, 2C .byte $2C 
9707 A9 04 LDA #04 
9709. 2C .byte $2C 
970Al A9 01 LDA #801 
970C 4AC B5 99 JUMP $99B5 
[9600/9789/98CE] vgl. F510 
Sektorheader suchen 

970F AS 12 LDA $12 
9711 85 16 STA $16 
9713 A5 13 LDA $13 
9715 85 17 STA $17 
9717 AO 00 LDY #800 
9719 B1 32 LDA ($32),Y 
971B 85 18 STA $18 
971D C8 INY 

Y971IE B1 32 LDA ($32),Y 
9720 85 19 STA $19 
9722 A9 00 LDA #500 
9724 45 16 EOR $16 
9726 45 17 EOR $17 
9728 45 18 EOR $18 
Y72A 45 19 EOR $19 
972C 85 1A STA $1A 
YT2E 20 34 F9_ JSR $F934 
9731 A9 5A LDA #$5A 
9733 85 4B STA $4B 
97351 20 54 97 JSR $9754 
97381 B9 24 00 LDA $0024,Y 
97381 2C OF 18 BIT $180F 
973E 30 FB BMI $973B 
9740 CD 01 IC  CMP $1C01 
9743 DO 06 BNE $974B 
9745 C8 INY 

9746 CO 08 CPY #508 
9748 DO EE BNE $9738 
97a 60 RTS 


aktuelle ID (erstes Zeichen) 

in Puffer für Sektorheader schreiben 
aktuelle ID (zweites Zeichen) 

in Puffer für Sektorheader schreiben 
Pufferzeiger zurücksetzen 

Spur des aktuellen Jobs holen und 

in Headerpuffer übernehmen 
Pufferzeiger auf nächstes Byte 
Nummer des aktuellen Sektors 

in Header übernehmen 

Prüfsumme errechnen : 

ID 1 

ID 2 

Spurnummer 

Sektornummer 

Prüfsumme in Headerpuffer 


‘Header in GCR-Werte wmrechnen 


Zahl der Leseversuche (90) 

setzen 

auf nächste Sync-Markierung warten 
Byte aus Headerpuffer holen 

auf 'Byte Ready'-Signal 

warten 

mit Byte auf Diskette vergleichen 
identisch ? 

ja, nächstes Byte vergleichen 

Zahl der Bytes des Headers 
gesamter Header schon verglichen ? 
ja, zurück zur aufrufenden Routine 
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97481 C6 4B DEC $4B noch ein Versuch 

9740 DO E6 BNE $9735 Zahl der Leseversuche zu Ende ? 

Y7AF A902 LDA #802 ja, Fehlernumer für '!Read Error (21)! 
9751 4C B5S 99 JMP $99B5 Rückmeldung übergeben 


[9453/9603/9735/9CDD/9D08/BF21] vgl. F556 


auf nächste Sync-Markierung warten 


9754 A2 OF 
9756 AO 00 
9758 2C 00 IC 
975B 10 0B 
975D 88 

975E DO F8 
9760 CA 

9761 DO F5 
9763 A9 03 
9765 4C B5 99 


[Y60A] vgl. F56E 


LDX #$0F 

LDY #$00 

BIT $1C00 
BPL $9768 
DEY 

BNE $9758 
DEX 

BNE $9758 
LDA #803 

JMP $99B5 
LDA $1C01 
LDY #00 

RTS 


Zähler für Versuche setzen 


(ca. 47 / 23 ms suchen) 
ıSync'-Signal prüfen 

ist Sync gesetzt ? 

nein, Zähler erniedrigen 

Zähler schon abgelaufen 

Zähler erniedrigen 

schon 256 Testzyklen abgelaufen ? 
Fehlernummer für 'sync not found! 


. Rückmeldung übergeben 


ıByte Ready! (CA1) initialisieren 
Register löschen 
zurück zur aufrufenden Routine 


Sektor schreiben, wenn Jobcode $90 (Befehlbits $10) 


Y76E C9 10 
9770 FO 03 
9772 4C 98 98 


Sektor schreiben 
9775 20 EI F5 
Y778 85 3A 
977A AD 00 IC 
977 29 10 
Y977F DO 05 
9781 AY 08 
9783 _4C B5 99 
9786 20 8F F7 
9789 20 OF 97 
978C_ AO 09 
Y978E  2C OF 18 
9791 30 FB 
9793 2C 00 IC 


CMP #$10 
BEQ $9775 
JMP $9898 


JSR $F5E9 
STA $3A 
LDA $1C00 
AND #810 
BNE $9786 
LDA #%08 
JMP $99B5 
JSR $F78F 
JSR $970F 
LDY #509 
BIT $180F 
BMI $978E 
BIT $1C00 


auf Jobcode für "Schreiben! prüfen 
soll Sektor geschrieben werden ? 
nein, Jobcode weiter prüfen 


Prüfsumme des Puffers errechnen 

und merken 

Laufwerkssteuerregister holen 

und Bit für 'Write Protect! prüfen 

ist Schreibschutz gesetzt ? 

Ja, Fehlernumer für 'write protect on! 
Rückmeldung setzen 

Pufferinhalt in GCR-Werte umrechnen 
Blockheader suchen 

Zahl der Bytes für Lücke bis Datenblock 
auf 'Byte Ready'-Signal 

warten 

Kopf wieder bereit machen 
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9796 88 DEY noch ein Byte 
9797 DO F5 BNE $978E Lücke schon übersprungen ? 
9799 A9 FF LDA #$FF ja, Kopfregister auf Ausgang 
979B 8D 03 IC STA $1C03 umstellen 
979E AD OC IC  LDA $ICOC Steuerregister holen 
97A1 29 1F AND #$1F und Kopfelektronik 
97A3 09 CO ORA #$C0 auf Schreiben stellen 
97A5 8D OC IC STA $1COC (CB2 auf Low) 
97A8 A9Y FF LDA #$FF Wert für Sync-Markierung 
97AA AD 05 LDY #805 Zahl der Sync-Bytes 
97AC_ 8D 01 IC STA $1C01 Byte auf Diskette schreiben 
-97AFT 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
97B2 30 FB BMI $97AF warten Ä 
97B4 2C 00 IC BIT $1C00 ıByte Ready! zurücksetzen 
97B7 88 - DEY nächstes Sync-Byte 
97B8 DO F5 BNE $97AF gesamte Markierung schon geschrieben ? 
97BA. AO BB LDY #%BB ja, Pufferzeiger auf Zusatzpuffer 
975c\ B9 00 01 LDA $0100,Y Byte aus Puffer holen 
97BF 2C OF’18 BIT $180F auf 'Byte Ready'!-Signal 
97C2 30 FB BMI $97BF warten 
97C4 8D 01 1C  STA $1C01 GCR-Byte auf Diskette schreiben 
97C7 CB INY Zeiger auf nächstes Byte richten 
97C8. DO F2 BNE $97BC ganzer Zusatzpuffer auf Diskette ? 
97CA, Bi 30 LDA ($30),Y ja, Byte aus aktuellem Puffer holen 
97CC 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
97CF 30 FB BMI $97CC warten 
91 80 01 IC STA $1C01 GCR-Byte auf Diskette schreiben 
97D4 CB INY Pufferzeiger auf nächstes Byte setzen 
9705. DO F3 BNE $97CA ganzer Puffer geschrieben ? 
9707! 2C OF 18 BIT $180F auf 'Byte Ready'!-Signal 
97DA 30 FB BMI $97D7 warten, bis Byte geschrieben 
97Dc AD OC IC LDA $ICOC Kopfelektronik 
97DF 09 EO ORA #$E0 auf Lesen umschalten 
97E1 8D OC IC STA $ICOC (CB2 auf High) 
Y7E4 AY 00 LDA #800 Kopfregister auf 
97E6 8D 03 IC  STA $1C03 Eingang stellen 
97E9 20 F9 97 JSR $97FY Puffer von GCR nach Binär zurückwandeln 
Y7EC A4 3F LDY $3F Nummer des aktuellen Puffers 
97EE BY 00 00 LDA $0000,Y Jobceode holen 
97F1 49 30 EOR #%30 und in 'Sektor überprüfen! umwandeln 


97F3 99 00 00 STA $0000,Y neuen Jobcode setzen 
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97F6 A4C 4F 94 JMP $Y4AF Header des Sektors suchen 


[Y7E9Y/YIBE] vgl. F5F2 
aktuellen Puffer und Zusatzpuffer ($01BB-$1FF) von GCR nach Binär wandeln 


97F9 AY9 00 LDA #800 Low-Byte des Zeigers für den 

97’FB 85 2E STA $2E aktuellen Datenpuffer und den 

97FD 85 30 STA $30 Zusatzpuffer initialisieren 

Y7’FF 85 4F STA $4F momentanen Wert des 

9801 A5 31 LDA $31 Zeigers auf den aktuellen Datenpuffer 

9803 85 4E STA $4E in $4E/$4F retten 

9805 A9 01 LDA #%01 Pufferzeiger auf 

9807 85 31 STA $31 Zusatzpuffer richten 

9809 85 2F STA $2F (High-Byte) 

980B AY BB LDA #%BB Pufferzeiger für Umwandlungsroutine auf 

980D 85 34 STA $34 Beginn des Zusatzpuffers richten ($1BB) 

980F 85 36 STA $36 Zeiger auf akt. Binärbyteposition setzen 

9811 20 D9 98 2 JSR $9809 5 GCR-Bytes in 4 Binärbytes umwandeln 
9814 AS 52 LDA $52 Kennzeichen des Datenblocks holen 

9816 85 38 STA $38 und merken 

9818 AL 36 LDY $36 Pufferzeiger auf nächstes Binärbyte 

holen 

Y98iA AS 53 LDA $53 Datenbyte holen 

98ic 91 2E STA ($2E),Y und in Puffer schreiben 

98IE CB INY Pufferzeiger auf nächstes Byte setzen 

Y98iF AS 54 LDA $54 Datenbyte holen 

9821 91 2E STA ($2E),Y und in Puffer schreiben 

9823 CB INY Pufferzeiger auf nächstes Byte setzen 

9824 A555 LDA $55 Datenbyte holen 

9826 91 2ZE STA ($2E),Y und in Puffer schreiben 

9828 C8 INY Pufferzeiger auf nächstes Byte setzen 

9829 84 36 STY $36 Pufferzeiger merken 

982B 20 D9 98 UJSR $9809 5 GCR-Bytes in 4 Binärbytes umrechnen 

982E A4 36 LDY $36 Pufferzeiger wieder holen 

9830 AS 52 LDA $52 Datenbyte holen 

9832 91 2E STA ($2E),Y und in Puffer schreiben 

9834 C8 INY Pufferzeiger auf nächstes Byte setzen 

9835 A5 53 LDA $53 Datenbyte holen 

9837 91 2E STA ($2E),Y und in Puffer schreiben 

9839 C8 INY Pufferzeiger auf nächstes Byte setzen 

983A FO OE BEQ $984A Ende des Zusatzpuffers erreicht ? 


983C AS 54 LDA $54 nein, Datenbyte holen 
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983E 
9840 
9841 
9843 
9845 
9846 
9848 
Y84A 
YB4C 
Y84E 
Y84F 
9851 
9853 
9854 
9856 
9859 
985B 
985D 
Y85F 
9860 
9862 
9864 
9865 
9867 
9869 
YE6A 
Y86C 
Y86E 
YB6F 
9871 
9873 
9875 
9877 
9879 
987B 
987D 


1 


l 


9g7r! 


9881 
9883 
9884 
9886 


91 
c8 
A5 
91 
c8 
84 
DO 


2E 


55 
2E 


36 
E1 


AS 54 


91 
c8 
AS 
91 
c8 
84 


20 D9 98 


A4 
A5 
91 
c8 
A5 
91 
C8 
A5 
91 
c8 
A5 
91 
c8 
84 
co 
90 


30 


55 
30 


36 


36 
52 
30 


53 
30 


54 
30 


55 
30 


36 
BB 
E1 
45 
2E 
31 
2r 
BA 


STA 
INY 
LDA 
STA 
INY 
STY 
BNE 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
sTY 
CPY 
BCC 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
BNE 
LDA 
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($2E),Y 


$55 
($2E),Y 


536 
$982B 
$54 
($30),Y 


$55 
($30),Y 


936 
$9809 
$36 
$52 
($30),Y 


$53 
($30),Y 


$54 
(830) ,Y 


$55 
($30),Y 


$36 
#$BB 
$9856 
#345 
$2E 

$31 

$2F 
#SBA 
($30),Y 
($2E),Y 


$987F 
(830) ,Y 


301 


und in Puffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
Datenbyte holen 

und in Puffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
Pufferzeiger merken 

Ende des Zusatzpuffers erreicht ? 

ja, umgewandeltes Binärbyte holen und 
in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
umgewandeltes Binärbyte holen und 

in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
Pufferzeiger merken 

5 GCR-Bytes in 4 Binärbytes umwandeln 
Pufferzeiger wieder holen 
umgewandeltes Binärbyte holen und 

in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
umgewandeltes Binärbyte holen und 

in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
umgewandeltes Binärbyte holen und 

in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
umgewandeltes Binärbyte holen und 

in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
Pufferzeiger merken und 

mit Endwert vergleichen 

Ende des Datenpuffers erreicht ? 

ja, Zeiger auf 

Zieladresse der 

nachfolgenden Verschiebeaktion 

setzen 

Bytes in Datenpuffer von Position 
$01-$8BB nach Position $46-$FF im Puffer 
nach oben verschieben 

Pufferzeiger auf nächstes Byte 

schon alle Zeichen verschoben ? 

ja, Byte $00 nach 
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9888 91 2E STA ($2E),Y Position $45 kopieren 

988A. A2 BB LDX #%BB Zeiger auf Beginn des Zusatzpuffers 
9ssc] BD 00 01 LDA $0100,X Byte aus Zusatzpuffer holen 

988F 91 30 STA ($30),Y und in Datenpuffer kopieren 

9891 C8 INY Pufferzeiger für Daten- und 

9892 EB INX Zusatzpuffer auf nächstes Byte richten 
9893 DO F7 BNE $9Y88C schon ganzer Puffer kopiert ? 

9895 86 50 STX $50 ja, Flag für 'Puffer in GCR' löschen (0) 
9897 60 RTS zurück zur aufrufenden Routine 


[9772] vgl. F691 | 
Sektor überprüfen (Verify), wenn Jobcode $AO ist (Befehlbits $20) 


9898 C9 20 CMP #$20 auf Jobcode für 'Sektor prüfen! testen 
989A FO 02 BEQ $989E soll Sektor verifiziert werden ? 
989C DO 30 BNE $Y8CE nein, immer Sprung nach $98CE 


Sektor verify 


EYE 20 E9 F5 UJSR $F5E9 Prüfsumme des Puffers errechnen 
Y8A1 85 3A STA $3A und merken 
98A3 20 8F F7  JSR $F78F Puffer von Binär nach GCR umwandeln 
YBEA& 20 00 96 JSR $9600 Sektorheader suchen 
98A9 AO BB LDY #$BB Zeiger auf Zusatzpuffer richten 
Y98AB. BY 00 01 LDA $0100,Y Byte aus Puffer holen 
GBAE 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
98B1 30 FB BMI $98AE warten 
98B3 4D 01 IC EOR $1C01 und mit Byte von Diskette vergleichen 
98B6 DO IC BNE $98D4 identisch ? 
98B8 CB INY ja, Pufferzeiger auf nächstes Byte 
9889. DO FO BNE $938AB ganzer Zusatzpuffer verglichen ? 
Y8BB, Bi 30 LDA ($30),Y Byte aus Datenpuffer 

| 9ann! 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
98C0O 30 FB BMI $98BD warten 
98C2 4D 01 IC EOR $1C01 mit Byte von Diskette vergleichen 
98C5 DO OD BNE $98D4 identisch ? 
98C7 CB INY ja, Pufferzeiger auf nächstes Byte 
98C8 CO FD CPY #SFD Zeiger mit Endwert vergleichen 
98CA DO EF BNE $98BB Ende des Datenpuffers erreicht ? 
98cC. FO 03 BEQ $98D1 ja, immer Sprung nach $98D1 
9ECE, 20 OF 97 JSR $970F nächsten Sektorheader suchen 
98D1 A9 01 LDA #801 Nummer der 'Ok'! Meldung 


9803 2C .byte $2C nächste 2 Bytes überspringen 
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98042 A9 07 LDA #807 Fehlernummer für '!Verify Error! setzen 


98D6 ACC B5S 99 JMP $99B5 Rückmeldung übergeben 
[9541/9550/9811/9828/9856/9979/9993/BF30] vgl. F7E6 
5 GCR-Bytes in 4 Binärbytes umrechnen 


9809 AL 34 LDY $34 Zeiger auf nächstes GCR-Byte holen 

98DB B1 30 LDA ($30),Y GCR-Byte aus Puffer holen 

980D 85 56 STA $56 und ersten GCR-Wert merken 

9EDF 29 07 AND #%07 1. Teil des 2. GCR-Werts 

98E1 85 57 STA $57 merken 

Y8E3 CE INY Zeiger auf nächstes GCR-Byte 

98E4 DO 06 BNE $98EC Ende des Zusatzpuffers erreicht ? 

98E6 AS 4E LDA $4E ja, Zeiger auf Beginn des 

98EE8 85 31 2 STA $31 aktuellen Datenpuffers setzen 

9BEA. A4 4F LDY $4F Zeiger auf Position in Puffer setzen 

9secl B1 30 LDA ($30),Y GCR-Byte aus Puffer holen 

98EE 85 58 STA $58 und merken 

98F0O 29 CO AND #8%C0 2. Teil des 2. GCR-Werts holen 

g98F2 05 57 ORA $57 und ersten Teil einblenden 

98F4 85 57 STA $57 zweiten GCR-Wert merken 

98F6 AS 58 LDA $58 orginal GCR-Byte nochmal holen 

98F8 29 01 AND #%01 und 1. Teil des 3. GCR-Werts holen 

98FA 85 59 STA $59 Wert merken 

YBrFC C8 INY Pufferzeiger auf nächstes Byte setzen 

98FD B1 30 LDA ($30),Y Byte aus Puffer holen 

9EFF AA TAX und merken 

9900 29 FÜ AND #$F0 2. Teil des 3. GCR-Werts herstellen 

9902 05 59 ORA $59 und mit erstem Teil verknüpfen 

9904 85 59 STA $59 gesamtes Byte merken 

9906 BA TXA orginal GCR-Byte nochmal holen 

9907 29 OF AND #$0F und 1. Teil des 4. GCR-Werts 

9909 85 5A STA $5A merken 

Y990B C8 INY Pufferzeiger auf nächstes Byte richten 

990C Bi 30 LDA ($30),Y Byte aus Puffer holen 

990E 85 5B STA $5B und merken 

9910 29 80 AND #380 2. Teil des 4. GCR-Werts holen 

9912 05 5A ORA $5A und vorherigen ersten Teil einblenden 
9914 85 5A STA $5A gesamten Wert merken 

9916 A5 5B LDA $5B orginal GCR-Byte nochmal holen 

9918 29 03 AND #%03 und 1. Teil des 5.GCR-Werts 


991A 85 5C STA $5C isolieren 
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c8 
DO 08 


AD 


9F 


9F 


A2 


INY 


BNE $9927 


LDA $4E 
STA $31 
LDY $4F 
STY $30 


LDA ($30),Y 


STA $5D 

AND #$E0 
ORA $5C 

STA $5C 

INY 

STY $34 

LDX $56 


LDA $A00D,X 


LDX $57 


ORA $9FOD,X 


STA $52 
LDX $58 


LDA $A10D,X 


LDX $59 


ORA $9FOF ‚X 


STA $53 
LDX $5A 


LDA $9F1D,X 


LDX $5B 


ORA $A20D,X 


STA $54 
LDX $5C 


LDA $9F2A,X 


LDX $5D 


ORA $A30D,X 


STA $55 


Zeiger auf nächstes Byte setzen 

Ende des Zusatzpuffers erreicht ? 

ja, Zeiger auf aktuellen 

Datenpuffer richten 

Zeiger auf Position in Puffer 

setzen 

Byte aus Puffer holen 

und merken 

2. Teil des 5. GCR-Werts holen 

und ersten Teil einblenden 

gesamten GCR-Wert merken 

Pufferzeiger auf nächstes Zeichen 

und merken 

ersten GCR-Wert holen und äquvalentes 
höherwertiges Binärhalbbyte feststellen 
zweiten GCR-Wert holen und 
niederwertiges Binärhalbbyte bilden 
erstes umgewandeltes Binärbyte merken 
dritten GCR-Wert holen und äquvalentes 
höherwertiges Binärhalbbyte feststellen 
vierten GCR-Wert holen und 
niederwertiges Binärhalbbyte bilden 
zweites umgewandeltes Binärbyte merken 
fünften GCR-Wert holen und äquvalentes 
höherwertiges Binärhalbbyte feststellen 
sechsten GCR-Wert holen und 
niederwertiges Binärhalbbyte bilden 
drittes umgewandeltes Binärbyte merken 
siebten GCR-Wert holen und äquvalentes 
höherwertiges Binärhalbbyte feststellen 
achten GCR-Wert holen und 
niederwertiges Binärhalbbyte bilden 
letztes umgewandeltes Binärbyte merken 
zurück zur aufrufenden Routine 


[BF27/Routine wird im DOS nicht benutzt] vgl. F8EO 
Zusatztpuffer von GCR nach Binär umwandeln 


9965 
9967 
9969 
996B 


A9 00 
85 34 
85 2E 
85 36 


LDA #800 
STA $34 
STA $2E 
STA $36 


Zeiger auf akt. GCR-Byte 
zurücksetzen 

Zeiger auf Zielpuffer löschen 
Zeiger auf akt. Datenposition 
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996D AY 01 LDA #01 Zwischenspeicher für 

996F 85 4E STA $4E Adresse des aktuellen Datenpuffers 

9971 A9 BA LDA #8BA auf Beginn des Zusatzpuffers 

9973 85 4F STA $4F richten 

9975 A5 31 LDA $31 Pufferzeiger auf Wert des aktuellen 
. 9977 85 2F STA $2F Datenpuffers setzen 

9979 20 D9 98 JSR $9809 5 GCR-Bytes in 4 Binärbytes wandeln 

997C AS 52 LDA $52 erstes Binärbyte holen und als 

Y9Y7E 85 38 STA $38 Kennzeichen des Datenblocks übernehmen 

9980 AL 36 LDY $36 Zeiger auf akt. Byte 

9982 AS 53 LDA $53 zweites umgewandeltes Byte holen 

9984 91 2E STA ($2E),Y und in Puffer schreiben 

9986 CB INY Pufferzeiger auf nächstes Byte 

9987 A5 54 LDA $54 drittes umgewandeltes Byte holen 

9989 91 2E STA ($2E),Y und in Puffer schreiben 

998B CE INY Pufferzeiger auf nächstes Byte 

998C AS 55 LDA $55 letztes umgewandeltes Byte holen 

YYBE 9Yi 2E STA ($2E),Y und in Puffer schreiben 

9990. CB INY Pufferzeiger auf nächstes Byte 

9991 1 84 36 STY $36 und merken 

9993 20 D9 98 JSR $98D9 5 GCR-Bytes in 4 Binärbytes wandeln 

9996 AL 36 LDY $36 Pufferzeiger wieder holen 

9998 AS 52 LDA $52 erstes umgewandeltes Byte holen 

999A 91 2E STA ($2E),Y und in Puffer schreiben 

999C CB INY Pufferzeiger auf nächstes Byte 

999 FO 11 BEQ $99B0 Ende des Puffers erreicht ? 

9Y9F AS 53 LDA $53 nein, zweites umgewandeltes Binärbyte 

99A1 91 2E STA ($2E),Y holen und in Puffer schreiben 

Y99A3 CB INY Pufferzeiger auf nächstes Byte setzen 

99A4 AS 54 LDA $54 drittes umgewandeltes Byte holen 

9916 91 2E STA ($2E),Y und in Puffer schreiben 

Y9Y9AB CB INY Pufferzeiger auf nächstes Byte 

9949 AS 55 LDA $55 drittes umgenandeltes Byte holen 

99AB 91 2E STA ($2E),Y und in Puffer schreiben 

99AD CB INY Pufferzeiger auf nächstes Byte 

99YAE, DO EI BNE $9991 Ende des Puffers erreicht ? 

99801 AS 2F LDA $2F ja, Zeiger auf aktuellen Datenpuffer 

9982 85 31 STA $31 wieder herstellen 


9984 60 RTS zurück zur aufrufenden Routine 
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[Y2EB/Y3ICE/IAA6/YABI/I70C/9751/9765/9783/9806/9Y04E/IDEO/BF15] vgl. F969 
Rückmeldung der Jobschleife übergeben 


99B5 
99B7 
99BA 
YIBC 
99BE 


A4 
99 
A5 
FO 
20 


20 8F F9 
A6 


9A 
4c 


3F 
00 00 
50 
03° 
F9 97 


49 


c8 92 


LDY $3F 

STA $0000,Y 
LDA $50 

BEQ $99C1 
JSR $97F9 
JSR $FIBF 
LDX $49 

TXS 

JMP $92C8 


Nummer des aktuellen Puffers 
Rückmeldung in Jobregister schreiben 
Flag für 'Puffer in GCR-Code! 

ist der Puffer noch in GCR ? 

ja, Puffer von GCR nach Binär wandeln 
Laufwerksmotor ausschalten 
Stapelzeiger wieder 

einrichten 

1571 Jobschleife 


[92D2/92F8/9302/9329/9522/9855/9B64/9041/9D56/BF72] 


Teil der 


99CA 
99CD 
I9D0 
9903 
9905 
99D7 
9909 
99DB 
99DE 
99EO 
99E2 
YIE4 
99E7 
99EA 
YIEC 
9Y9EE 


l 


l 


99F3 
99F5 
99F7 
99F9 
99FB 
9Y9FE 
9AO1 
9A03 
9A0DS5 
9A07 


AD 
8D 
AD 
29 


Jobschleife für Motor- und Steppersteuerung 


07 IC 
05 IC 
00 1C 
10 
1E 
1E 


AB 02 


AB 02 
64 87 


CE AB 02 


AD FE 02 


LDA $1C07 
STA $1C05 
LDA $1C00 
AND #810 
CMP $1E 
STA $1E 
BNE $99E2 
LDA $02AB 
BNE $99FO 
BEQ $9YFE 
LDA #$FF 
STA $02AB 
JSR 38764 
LDA #801 
STA $IC 
BNE $9YYFE 
DEC $02AB 
BNE $Y9YFE 
LDA $20 
CMP #500 
BNE $99YFE 
JSR $8770 
LDA $02FE 
BEQ $YA18 
CMP #802 
BNE $YADE 
LDA #%00 


Timer 1 (High-Byte) 


wieder setzen 

Laufwerkssteuerregister holen 

und 'Write Protect! prüfen 

mit letzter Prüfung vergleichen 

und aktuellen Zustand merken 

hat sich der 'Write Protect! geändert ? 
nein, Zähler für Motorlaufzeit 

ist Motor angeschaltet ? 

nein, immer Sprung nach $99YFE 

Zähler für Motorlaufzeit bei Diskwechsel 
setzen 

Motor ausschalten 

Flag für 'Disketten neu initialisieren' 
setzen 

immer Sprung nach $9YFE 

zähler für Motorlaufzeit erniedrigen 
Motor jetzt ausschalten ? 

ja, Laufwerksstatus holen 

mit Wert für 'Motor aus! vergleichen 
identisch ? 

ja, Laufwerksmotor ausschalten 
Steuerbyte für Kopf bei Lesefehlern 


- soll Kopf neben Spur gesetzt werden ? 


nein, auf 'Steuerbyte angenommen! prüfen 
ist Kopf gerade gesetzt worden ? 
Steuerbyteregister 
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9A09 8D FE 02 


9AOC, FO 
9noel 85 
9A10 A9 
9A12 8D 
9AIS| 4C 
9A18” A6 
9AlA 30 
9AlC A5 
9AIE AB 
9AIF 9 
9A21_ DO 
923” 4c 
9A26 
9A28 DO 
9A2A 98 
9A2B 10 
9A2D 29 
9A2F, 85 
91311 
933 FO 
935 6 
9A37 DO 
9A39 20 
9A3C A9 
9ABE 85 
9ALO A9 
9A42 85 
9A4L_ FO 
9AL6” 98 
HALT 29 
9A49 DO 
HALB, 4C 
QA4E A5 
9A5O DO 
952 A5 
9A54 FO 


DA 
4A 
02 


02 
9A 


9A 


STA $O2FE 
BEQ $9A18 
STA $4A 
LDA #802 
STA $02FE 
JMP $9A56 
LDX $3E 
BMI $9A23 
LDA $20 
TAY 

CMP #820 
BNE $9A26 
JMP SYAC9I 
DEC $48 
BNE $9A46 
TYA 

BPL $9A31 
AND #&7F 
STA $20 
AND #$10 
BEQ $YA46 
DEC $35 
BNE $9A46 
JSR $8770 
LDA #$FF 
STA $3E 
LDA #00 
STA $20 
BEQ $9A23 
TYA 


Löschen 

immer Sprung nach $9A18 

Zahl der auszuführenden Schritte setzen 
Flag für 'Steuerbyte übernommen"! 
setzen 

Kopf weiter positionieren 

Flag für Laufwerk aktiv 

ist Flag gesetzt ? 

nein, Laufwerksstatus holen 

und merken 

mit Flag für 'Motor an! vergleichen 
ist Laufwerk bereit ? 

ja, zurück zur aufrufenden Routine 
Zähler für Anlaufverzögerung des Motors 
ist Motor auf Drehzahl ? 

ja, Laufwerksstatus holen 

Flag für 'Motor nicht bereit! gesetzt ? 
ja, dann Flag 

Löschen 

Flag für 'Motor in Ausschaltphase!' 
soll Motor ausgeschalten werden ? 

noch auszuführende Jobschleifenaufrufe 
Jobschleife nochmal aufrufen ? 

nein, Laufwerksmotor ausschalten 

Flag für 'Laufwerk aktiv"! 

Löschen 

Laufwerksstatus 

zurücksetzen 

immer Sprung nach $9A23 
Laufwerksstatus wieder holen 

Flag für 'Stepper in Betrieb! testen 
wird Kopf bewegt ? 

nein, zurück zur aufrufenden Routine 
Flag für aktuelle Stepperphase 

ist Kopf positioniert ? 

nein, Zahl der zu fahrenden Schritte 
Zähler gesetzt ? 


308 Das _Disk-Operating-System (DOS) 


[9A15] 

Kopfsteuerroutine 

9A56 ADS 4A LDA $4A ja, Zahl der Halbschritte holen 

9158 10 59 BPL $9AB3 soll Kopf nach außen bewegt werden ? 
Y9ASA 98 TYA ja, Laufwerksstatus holen 

YA5B 48 PHA und retten 

9A5C, AD 63 LDY #863 Zahl der Abtastversuche (99) 

onsel AD OF 18 LDA $180F Steuerregister A holen und Zustand der 
YA61 6A ROR A Spur0-Lichtschranke ins Carry setzen 
9A62 08 PHP Carry merken 

9A63 AD OF 18 LDA $180F Steuerregister nochmal lesen und 
9A66 6A ROR A Lichtschranke erneut testen 

9A67 6A ROR A Ergebnis in Bit? setzen 

QA68 28 PLP vorheriges Ergebnis holen 

9A69 29 80 AND #%80 letztes Ergebnis herstellen 

YA&B 90 04 BCC $9A71 ist im ersten Test SpurO aktiv ? 
YA6&D 10 1D BPL $9YA8C nein, ist SpurO jetzt erreicht ? 
YhöF. 30 02 BMI $9A73 ja, immer Sprung nach $9A73 

garıl 30 19 BMI $YASC ist SpurO immer noch aktiv ? 


Zustand der SpurO-Lichtschranke hat sich nicht geändert 


9A73 88 DEY ja, noch ein Versuch 

974 DO ES BNE $YA5E schon alle Abtastversuche durchgeführt ? 

976 BO 14 BCS $YASC Ja, war SpurO gesetzt ? 

9A7T8 AS TB LDA $7B ja, aktuelles Kopfsteuerbyte bei Fehlern 
9A7TA DO 10 BNE $YASC gesetzt ? 

9A7TC AD 00 IC LDA $1C00 nein, Laufwerkssteuerregister holen 

9A7TF 29 03 AND #803 und Stepperbits holen 

9481 DO 09 BNE $YABC eine Stepperspule aktiv ? 

YaA83 68 PLA nein, Laufwerksstatus wieder holen 

YABL AB TAY und merken 

985 AY 00 LDA #800 Zähler für 

987 85 4A STA $4A zu fahrenden Schritte löschen 

9189 ACC C9 YA JUMP SYACY Ende 


Zustand der SpurO-Lichtschranke hat sich geändert 


YASC” 68 PLA Laufwerksstatus wieder holen 
YA8BD AB TAY und merken 

YABE E6 4A INC $4A Zähler einen Schritt nach außen 
9A90O AD 00 IC LDA $1C00 Steuerregister holen 


9A93 38 SEC und Stepperbits für 
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9A94 
9A96 
9AY9 
Y9A9B 
YA9D 
YAYF 


E9 01 


A9 02 
85 48 
85 62 


C6 48 
DO 23 
A5 20 
29 BF 
85 20 
A9 00 
85 &2 


QAB3 C6 4A 


AD 00 


m man a 0 m a a m a m a m am m mn an a a m m a a a a m a a a an nam mn ann um an nn m u u a mm m au mn m m um nm 


[YA9Y6] Steppersteuerung setzen 


YABB 
YABD 
YABF 
YJAC2 


29 03 
85 4B 
AD 00 
29 FC 
9AC4 05 48 
9AC6_ 8D 00 
9ac9O 60 

[YB6C] Spur 
9889 AS 3B 
 9B8B 10 03 
9B8ED, 20 DC 
9890 AD 26 
9693 18 

9B94 AI 03 
9B96 85 33 
9898 A9 00 
9BYA 85 32 
9B9YC 8D 28 
9B9F AO 00 


4C BB 9A 


4cC C9 9A 


4C Cc9 9A 


[9A58] Einen Halbspurschritt nach 


1C 


IC 


SBC #801 
JMP $YABB 
LDA #802 
STA $48 
STA $62 
JMP $Y9AC9 
DEC $48 
BNE $9AC9 
LDA $20 
AND #$BF 
STA $20 
LDA #800 
STA $62 
JMP $9AC9 


DEC $4A 
LDA $1C00 
CLC 

ADC #%01 


AND #%03 
STA $4B 
LDA $1C00 
AND #$FC 
ORA $4B 
STA $1C00 
RTS 


formatieren 


9A 
06 


06 


LDA $3B 
BPL $9B90 
JSR SYADC 
LDA $0626 
CLC 

LDA #803 
STA $33 
LDA #800 
STA $32 
STA $0628 
LDY #800 


einen Schritt nach außen 

setzen 

Verzögerungszähler auf zwei weitere 
IRQs setzen 

Stepperflag auf 'Beruhigungsphase!' 
zurück zur aufrufenden Routine 
Verzögerung für Kopfberuhigungszeit 
Kopf bereit ? 

Ja, Laufwerksstatus holen 

und Flag für 'Stepper an!’ 

Löschen 

Stepperflag 

zurücksetzen 

zurück zur aufrufenden Routine 


innen 

Schrittzähler einen Schritt nach innen 
Steuerregister holen 

und Stepperbits für 

einen Halbspurschritt nach innen 


setzen 

Wert merken 

Steuerregister holen 

und neuen Wert 

der Stepperbits 

einblenden 

zurück zur aufrufenden Routine 


Befehlsnummer holen und Flags testen 
soll Spurkapazität ermittelt werden ? 
ja, Spurkapazität feststellen 
[Fehler siehe 7.1.5] 

[unsinnige Operation] 

Zeiger $32/$33 

auf Beginn des 

Datenpuffers 0 

setzen 

erste Sektornummer setzen (0) 
Pufferzeiger auf zurücksetzen 
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oBa1 A5 39 LDA $39 Kennzeichen für Sektorheader 
9BA3 91 32 STA ($32),Y in Puffer schreiben 
9BA5 CE INY Pufferzeiger auf nächstes Byte setzen 
9BA& AY 00 LDA #%00 Leerbyte für Prüfsumme 
9BAB 91 32 STA ($32),Y in Puffer schreiben 
9BAA C8 INY Pufferzeiger auf nächstes Byte setzen 
9BAB AD 28 06 LDA $0628 Sektornummer holen und 
9BAE 91 32 STA ($32),Y in Puffer schreiben 
9BBO C8 INY Pufferzeiger auf nächstes Byte setzen 
9BB1 AS 51 LDA $51 aktuelle Spurnummer 
9BB3 91 32 STA ($32),Y in Puffer schreiben 
9BB5 C8 INY Pufferzeiger auf nächstes Byte setzen 
9BB6 AS 13 LDA $13 zweites Zeichen der ID holen und 
9BB8 91 32 STA ($32),Y in Puffer schreiben 
O9BBA CB INY Pufferzeiger auf nächstes Byte setzen 
9BBB A5 12 LDA $12 erstes Zeichen der ID holen und 
9BBD 91 32 STA ($32),Y in Puffer schreiben 
OBBF CB INY Pufferzeiger auf nächstes Byte setzen 
9BC0 A9 OF LDA #$0F Wert für Leerbyte 
98cC2 91 32 STA ($32),Y in Puffer schreiben 
9BCA CB INY Pufferzeiger auf nächstes Byte setzen 
98C5 91 32 STA ($32),Y in Puffer schreiben 
98C7 C8 INY Pufferzeiger auf nächstes Byte setzen 
9BC8 98 TYA Pufferzeiger holen 
9BC9 48 PHA und retten 
9BCA A207 LDX #807 Zahl der einzurechnenden Bytes 
9BCC AY 00 LDA #%00 Prüfsumme 
9BCE, 85 3A STA $3A Löschen 
9BD0 88 DEY Pufferzeiger auf vorheriges Byte setzen 
9BD1 Bi 32 LDA ($32),Y Byte aus Headerpuffer holen 
9803 45 3A EOR $3A und in Prüfsumme einrechnen 
9805 85 3A STA $3A Wert merken 
9BD7 CA DEX noch ein Byte 
9BD8 DO F& BNE $9BDO schon ganzer Header eingerechnet ? 
9BDA 91 32 STA ($32),Y ja, Prüfsumme in Header schreiben 
9BDC 68 PLA aktuellen Pufferzeiger 
9BDD AB TAY wieder setzen 
9BDE EE 28 06 INC $0628 nächsten Sektor anwählen 
9BEI AD 28 06 LDA $0628 aktuelle Sektornummer 
GBEL C5 43 CMP $43 mit maximaler Nummer vergleichen 


9BE6 90 BY BCC $9BA1 ist Sektornummer erlaubt ? 
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 9BE8 
9BEA 
9BEC 
IBEF 


oarıl 


9BF3 
9BF5 
9BF7 
9BFY 
9BFB 
9BFD 
9BFE 
9c00 
? 

9C02 


9c04 


907 
9C09 
9COA 
ICOC 
9COD 
9COF 
9c11 
9C13 
9C15 
9C16 
9C18 
9C19 
9C1B 
9C1E 
9C20 
9023 
9C25 
9c27 
9c29 
9C2C 
IC2E 
9C31 
9033 
9C35 
9038 


A9 03 
85 31 
20 30 FE 


BY BB 01 
91 32 


10 F8 
18 


85 31 
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LDA #$03 
STA $31 

JSR $FE3O 
LDY #8BA 
LDA ($32),Y 
LDX #845 
STX $32 

STA ($32),Y 
LDX #800 
STX $32 

DEY 

CPY #SFF 
BNE $9BF1 


LDY #844 


_ LDA $01BB,Y 


STA ($32),Y 
DEY 

BPL $9C04 
CLC 

LDA #803 
ADC #802 
STA $31 
LDA #800 
TAY 

STA ($30),Y 
INY 

BNE $9C16 
JSR $F5E9 
STA $3A 
JSR $F78F 
LDA #800 
STA $1B 
LDX #806 
JSR $9063 
LDY #805 
BIT $180F 
BMI $9C2E 
LDA #$FF 
STA $1C01 
BIT $1C00 
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nein, Pufferzeiger für Puffer $0300 
initialisieren 

Blockheader in GCR-Bytes umwandeln 
Pufferzeiger auf Zusatzpuffer richten 
Byte aus Zusatzpuffer holen 

Zeiger auf zweiten Pufferbereich 

setzen 

GCR-Byte in höheren Pufferteil schreiben 
Zeiger wieder auf Anfang 

setzen 

Pufferzeiger auf nächstes Byte setzen 
mit Endwert vergleichen 

Bereich $300-$344 nach $345-$389 kopiert 


Pufferzeiger auf Zusatzpuffer richten 
Byte aus Zusatzpuffer holen und 

in Datenpuffer schreiben 

Pufferzeiger auf nächstes Byte setzen 
schon ganzer Puffer übertragen ? 

ja, Pufferzeiger auf 

neuen Puffer für 

Datenblockinhalt 

setzen 

Wert für Füllbyte 

Pufferzeiger löschen 

Leerbyte in Puffer schreiben 
Pufferzeiger auf nächstes Byte setzen 
schon ganzer Puffer gelöscht ? 

ja, Prüfsumme berechnen 

und merken 

Puffer in GCR-Bytes umwandeln 

Zeiger auf aktuelle Position im 
Headerpuffer löschen 

1536 mal $55 (%01010101) 

auf Diskette schreiben 

Zahl der Sync-Bytes 

auf 'Byte Ready'-Signal 

warten 

Byte für Sync-Markierung 

auf Diskette schreiben 

Sync-Flag zurücksetzen 
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9C3B 88 DEY nächstes Byte 
9c3C DO FO BNE $9C2E schon ganze Markierung geschrieben ? 
9C3E A2 OA LDX #$0A ja, Zahl der Headerbytes 
9C40O_ A4 1B LDY $1B Pufferzeiger holen 
9042” 2C OF 18 BIT $180F auf 'Byte Ready'!-Signal 
9C45 30 FB BMI $9C42 warten 
947 Bi 32 LDA ($32),Y Byte aus Headerpuffer holen 
9649 8D 01 IC STA $1C01 und auf Diskette schreiben 
9SC4AC 2C 00 IC BIT $1C00 Sync-Flag zurücksetzen 
IC4F CB INY Pufferzeiger auf nächstes Byte setzen 
9C50 CA DEX Zahl der Headerbytes 
9651 DO EF BNE $9C42 schon ganzer Header geschrieben ? 
9C53_ AO 09 LDY #509 ja, Zahl der Bytes für Lücke 
9c55” 2C OF 18 BIT $180F auf !Byte Ready'!-Signal 
9C58 30 FB BMI $9C55 warten 
9C5A AY 55 LDA #$55 Leerbyte in Lücke zwischen Header und 
9C5C 80 01 IC STA $1C01 Datenblock schreiben 
9C5F 2C 00 1C BIT $1C00 Steuerregister zurücksetzen 
9062 88 DEY Zahl der Lückenbytes 
9C63 DO FO BNE $9C55 Lücke geschrieben ? 
90665 A9 FF LDA #$FF Sync-Markierung für 
9C67_ AO 05 LDY #$05 Datenblockbeginn schreiben 
969” 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
9C6C 30 FB BMI $9C69 warten 
IC6E 8D 01 IC STA $iC0i Sync-Byte auf Diskette schreiben 
971 2C 00 IC BIT $1C00 Eingang für Sync Signal initialisieren 
9C74 88 DEY nächstes Byte 
9C75 DO F2 BNE $9C69 ist Sync-Narkierung geschrieben ? 
9C77_ AO BB LDY #%BB ja, Pufferzeiger auf Zusatzpuffer setzen 
9C79” 2C OF 18 BIT $180F auf 'Byte Ready'!-Signal 
9C7C 30 FB BMI $9C79 warten 
IC7TE BY 00 01 LDA $0100,Y Datenbyte holen 
9C81 8D 01 IC STA $1C01 und auf Diskette schreiben 
9C84 2C 00 1C BIT $1C00 Eingang für Byte Ready initialisieren 
9687 C8 INY Pufferzeiger auf nächstes Byte setzen 
9C88_ DO EF BNE $9C79 ganzer Zusatzpuffer geschrieben ? 
9C8A” 2C OF 18 BIT $I8OF ja, auf 'Byte Ready'-Signal 
9C8D 30 FB BMI $9C8A warten bis letztes Byte geschrieben 
9C8F B1 30 LDA ($30),Y Byte aus Datenpuffer holen 
991 8D 01 IC STA $1C01 und auf Diskette schreiben 


9694 2C 00 IC BIT $1C00 Eingang für Sync-Signal initialisieren 
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9697 C8 INY Pufferzeiger auf nächstes Byte setzen 
9C98 DO FO BNE $9C8A Datenpuffer auf Diskette geschrieben ? 
9C9A A9 55 LDA #855 ja, Füllbyte für Lücke zwischen Sektoren 
9C9C, AC 26 06 LDY $0626 Zahl der Bytes zwischen Sektoren 
SC9F” 2C OF 18 BIT $180F auf 'Byte Ready!-Signal 
9cA2 30 FB BMI $9C9F warten 
9CA4 8D 01 IC STA $1C01 Byte auf Diskette schreiben 
9CA7’ 2C 00 IC BIT $1C00O Eingang für Byte Ready initialisieren 
9CAA 88 DEY nächstes Byte 
9CAB DO F2 BNE $9C9F Lücke geschrieben ? 
O9CAD A5 1B LDA $1B ja, Zeiger in Headerpuffer holen 
9CAF 18 CLC und Zahl der GCR-Bytes 
9CBO 69 OA ADC #$&0A je Header dazurechnen 
: 9CB2 85 1B STA $1B neuen Zeiger merken 
9CB4 CE 28 06 DEC $0628 Zahl der Sektoren erniedrigen 
9CcB7 FO 03 BEQ $ICBC alle Sektoren geschrieben ? 
9CB9_ 4AC 2C 9C JUMP $9C2C nein, nächsten Sektor schreiben 
9CBC” 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
SCBF 30 FB BMI $9CBC warten bis letztes Byte geschrieben ist 
9CcC1. 2C 00 IC BIT $1C00 Eingang für Byte Ready initialisieren 
9cc4 1 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
9CC7 30 FB BMI $9CC4 warten 
9CC9 2C 00 IC BIT $1C00 Eingang für Byte Ready initialisieren 
SccC 20 00 FE JSR $FEOO Kopf auf Lesen wmschalten 
SCCF A9Y CE LDA #$%C8 Zahl der Leseversuche (200) 
9cD1. 8D 23 06 STA $0623 festlegen 
9co4 | A9 00 LDA #800 Pufferzeiger auf aktuellen 
90606 85 1B STA $1B Header löschen 
9cD8 AS 43 LDA $43 Zahl der Sektoren auf Spur holen 
ICDA, 8D 28 06 STA $0628 und in Zähler setzen 
9co! 20 54 97 JSR $9754 auf nächste Sync-Markierung warten 
9CEO A2 OA LDX #$0A Zahl der Headerbytes 
ICE2. A4 1B LDY $1B Zeiger auf aktuellen Header holen 
9CE4L Bi 32 LDA ($32),Y und erstes Headerbyte holen 
ICE& 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
9CE9 30 FB BMI $9CE6 warten 
9CEB CD 01 1C  CMP $1C01 Byte von Diskette mit Header vergleichen 
ICEE DO ODE BNE $9CFE identisch ? 
9CFO C8 INY ja, Zeiger auf nächstes Byte setzen 
9CF1 CA DEX Zahl der Headerbytes 


9cF2 DO FO BNE $9CE4 schon ganzer Header geprüft ? 
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9CF4 18 CLC ja, Pufferzeiger 
9CF5 A5 1B LDA $1B auf nächsten 
9CF7 69 OA ADC #S0A Sektorheader im Puffer 
9CF9 85 1B STA $1B richten 
ICFB_ 4C 08 9D_ JMP $9D08 Datenblock prüfen 
9CFE” CE 23 06  DEC $0623 Zahl der Leseversuche erniedrigen 
9001 DO D1 BNE $9CD4 noch ein Versuch ? 
9003 A9Y 06 LDA #06 nein, Nummer für 'Formatierfehler' 
9005. 4AC 51 9D JMP $9D51 Rückmeldung übergeben 
9008 20 54 97 SR $9754 auf nächste Sync-Markierung warten 
9D0OB. AO BB LDY #$BB Pufferzeiger auf Zusatzpuffer richten 
9D0OD. B9 00 01 LDA $0100,Y Byte aus Puffer holen 
9010 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 
9013 30 FB BMI $9D10 warten 
9015 CD 01 IC CMP $1C01 Puffer mit Diskette vergleichen 
9018 DO EA BNE $9CFE identisch ? 
9D1A CB INY ja, Pufferzeiger auf nächstes Byte 
9D1B, DO FO BNE $9DOD schon ganzen Puffer überprüft ? 
90101 B1 30 LDA ($30),Y ja, Byte aus Datenpuffer holen 
9DiF 2C OF 18 BIT $180F auf 'Byte Ready'-Signal 

9022 30 FB BMI $9D1F warten 
9024 CD 01 IC CMP $1C01 und Byte mit Diskette vergleichen 
9027 DO D5 BNE $9CFE ‚Identisch ? 
9029 CB INY ja, Pufferzeiger auf nächstes Byte 
9D2A DO Fi BNE $9D1D ganzer Puffer überprüft ? 
%D2C CE 28 06 DEC $0628 ja, nächsten Sektor 
9D2F DO AC BNE $9CDD schon alle Sektoren gelesen ? 
9031 E6 51 INC $51 ja, Zeiger auf nächste Spur setzen 
9033 AS 51 LDA $51 aktuelle Formatierspur holen 
9035 2C B1 01 BIT $01B1 Flag für Diskettenseite testen 
9038 30 03 BMI $9D3D ist 2. Seite gesetzt ? 
9D3A C9Y 24 CMP #$24 nein, Spur auf maximaler Spur prüfen 
DC. 2C „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
90301 c9 47 CMP #547 Spur mit maximaler Spur vergleichen (71) 
9D3F BO 03 BCS $9D44 ist aktuelle Spur kleiner ? 
9041, AC CA 99 JMP S99CA ja, Stepper auf nächste Spur bewegen 
4a A9 FF LDA #$FF Flag für aktuelle 
9046 85 51 STA $51 Formatierspur löschen 
9048 A9Y 00  LDA #$00 Flag für 'Pufferdaten in GCR' 
9DLA 85 50 STA $50 “ löschen 


9D4cC A9 01 LDA #01 Nummer für 'Ok' Meldung 
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ID4E 


kC B5 99 


JMP $99B5 


Rückmeldung übergeben 


[9B70/9D05] 
Formatieren beenden 


9051 
9054 
9056 
9059 


CE 20 06 
FO 03 
4C CA 99 
AO FF 
84 51 


DEC $0620 
BEQ $9059 
JMP SI9CA 
LDY #$FF 
sTY 851 
INY 

STY $50 
JMP $99B5 


noch auszuführende Jobschleifenaufrufe 
Stepperschleife nochmal aufrufen ? 

ja, Stepperkommandos ausführen 

Flag für "Formatieren im Gang! 

Löschen 

Flag für !'Pufferdaten in GCR-Code! 
Löschen . 

Rückmeldung übergeben 


[8D56/9AEO/YC29] 


X mal 256 Bytes $55 (%01010101) auf Diskette schreiben 


9063 
9D66 
9D68 
I9DEA 
IDED 
I9D6F 
9072 
9074 


AD 0C IC 
29 IF 
09 CO 
8D OC IC 
A9 FF 
8D 03 IC 
A9 55 
AO 00 
2C OF 18 
30 FB 
2C 00 1C 
01 IC 


DO F2 


DO EF 


LDA $1COC 
AND #$1F 
ORA #%C0 
STA $ICOC 
LDA #$FF 
STA $1C03 
LDA #855 
LDY #800 
BIT $180F 
BMI $9D76 
BIT $1C00 
STA $1C01 
DEY 

BNE $9D76 
DEX 

BNE $9D76 
RTS 


Steuerregister holen 

und Kopfelektronik 

auf Schreiben 

umstellen 

Kopfregister 

auf Ausgang schalten 

Leerbyte $55 

zähler initialisieren 

auf 'Byte Ready'-Signal 

warten 

Eingang für 'Byte Ready! initialisieren 
Byte auf Diskette schreiben 

zähler erniedrigen 

schon 256 Bytes geschrieben 
Blockzähler erniedrigen 

noch einmal 256 Bytes schreiben ? 
nein, zurück zur aufrufenden Routine 


[über Vektor 02A9 von FE67/BFOO] 


1541 Interruptroutine für Bus- und Diskcontroller 


9088 
9089 
9D8A 
9D8B 
9DEC 
9DED 


48 
8A 
48 
98 
48 
AD OD 40 


PHA 
TXA 
PHA 
TYA 
PHA 
LDA $400D 


Akku retten 

X-Register 

retten 

Y-Register 

retten 

Flag für Interrupt durch serielles 
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9D90 29 08 AND #%08 Ein-/Ausgaberegister holen 
9092 FO 26 BEQ $9DBA ist Flag gesetzt ? 
9094 2C AF 02 BIT $02AF Ja, Flag für IRQ Modus 
9097 30 21 BMI $9DBA auf 1571 IRQ Routine umschalten ? 
9099 AD OF 18 LDA $180F ja, Elektronik 
9D9C 09 20 ORA #%20 auf 1571 Modus 
9D9E 8D OF 18 STA $180F schalten (2 MHz Takt) 
9DA1 A9 DE LDA #%DE Interrupt-Vektor 
9DA3 8D A9 02 STA $02A9 in $O2AY/EOZAA 
9DA6 AY ID LDA #$9D auf Routine $9DDE 
9DAB 8D AA 02 STA $02AA richten 
9DAB A9Y 40 LDA #$40 Timer 1 (High-Byte) 
9DAD 8D 07 IC STA $1C07 auf etwa 8 ms (2 MHz Takt) 
9D0B0O 8D 05 IC STA $1C05 einstellen 
9083 AY 00 LDA #%00 Flag für Stepperphase 
9DB5 85 62 STA $62 Löschen 
90B7_ 4C EA 9D MP $9DEA 1571 Jobschleife 
9DBA” AD OD 18 LDA $180D Interrupt Flags testen 
9DBD 29 02 AND #$02 und CA1 Eingang isolieren 
9DBF FO 03 BEQ $IDCA ist ATN aufgetreten ? 
9%0C1. 20 53 E8 JSR $E853 ja, Flags f. Interrupt vom seriellen Bus 
90C4 AD OD IC LDA $1COD Interruptflagregister holen 
90C7 OA ASL A und Flag für Timer 1 testen 
9DC8 10 03 BPL $9DCD Zeitgeber abgelaufen ? 
9DCA. 20 BO F2 JSR $F2BO ja, zu 1541 Kontroller-Routine 
ooco] BA TSX Stapelzeiger holen 
9DCE BD 04 01 LDA $0104,X und Status vom Stapel holen 
9001 29 10 AND #810 Flag für Einprung durch 'BRK' prüfen 
90D3 FO 03 BEQ $9DD8 wurde Interrupt durch 'BRK' aufgerufen ? 
9%D5. 20 BO F2_ JSR $F2B0O ja, 1541 Kontroller-Routine ausführen 
song! 68 PLA Y-Register wieder auf 
9009 AB TAY Ausgangswert setzen 
 9DDA 68 PLA X-Register wieder auf 
9DDB AA TAX Ausgangswert setzen 
9oDC 68 PLA Akku wieder holen 
9pDpD 40 RTI zurück zur Unterbrechungsstelle 


[über Vektor 02A9 von FE67/BFO3] 

1541 Interruptroutine für Bus- und Diskcontroller 
9DDE 48 PHA Akku retten 
9D0DF 8A TXA X-Register 
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9DEO 48 PHA retten 

9DE1I 98 TYA Y-Register 

9DE2 48 PHA retten 

9DE3 AD OD 4D LDA $400D Flag für Interrupt durch serielles 
9DE6 29 08 AND #808 Ein-/Ausgaberegister holen 

9DEB. FO 08 BEQ $9DF2 ist Flag gesetzt ? 

9DEA AS 37 LDA $37 Busstatusbyte holen 

SDDEC 09 40 ORA #%40 und Flag für '1571 Bus Modus! 
GDEE 85 37 STA $37 setzen 

9DFO, DO 22 BNE $9E14 immer Sprung nach $9E14 

o9DF2 AD OD 18 LDA $180D Interrupt Flags testen 

o9DF5 29 02 AND #$02 und CA1 Eingang isolieren 

oSDpF7 FO 07 BEQ $IEOO ist ATN aufgetreten ? 

9DF9 2C 01 18 BIT $1801 ja, Flag wieder zurücksetzen 
9DOFCc A9 01 LDA #01 Flag für 'ATN aufgetreten! 

9DFE, 85 7C STA $7C setzen 

9EOO BA TSX Stapelzeiger holen 

9EO1 BD 04 01 LDA $0104,X und Status vom Stapel holen 
9E04 29 10 AND #810 Flag für "Einprung durch BRK' prüfen 
9E06 FO 03 BEQ $YEOB wurde Interrupt durch '!BRK'! aufgerufen ? 
9E0O8. 20 BA 92 JSR $92BA ja, 1571 Jobschleife ausführen 
9eopl AD OD 1C LDA $1COD Interruptflagregister holen 
JEDE DA ASL A und Flag für Timer 1 testen 
9EOF 10 03 BPL $9E14 Zeitgeber abgelaufen ? 

9E11|Ä 20 BA 92 USR $92BA ja, 1571 Jobschleife ausführen 
9E14” 68 PLA Y-Register wieder auf 

9E15 AB TAY Ausgangswert setzen 

9E16 68 PLA X-Register wieder auf 

9E17 AA TAX Ausgangswert setzen 

JE1B 68 PLA Akku wieder holen 

9E19 40 RTI zurück zur Unterbrechungsstelle 
gEIA FF... unbenutzter 

9FOC ... FF ROM-Bereich 


Tabellen für Umwandlung von 5 GCR-Bytes in 4 Binärbytes 
($FF bedeutet, daß dieser GCR-Wert nicht existiert) 
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[9632/9650/993B/9FOF:9683 ,96F1,9947/YFID:Y6AD ,Y9A4E/YF2A:96C4 ,995A] 
: Tabelle für GCR-Werte 2, 4, 5 und 7 

9FOD OC 04 05 FF FF 02 03 FF OF 06 07 FF 09 OA OB FF 
9F1ID OD OE 80 FF 00 00 10 40 FF 20 CO 60 40 AD 50 EO 
9F2D FF FF FF 02 20 08 30 FF FF 00 FO FF 60 01 70 FF 
9F3D FF FF 90 03 AO OC BO FF FF 04 DO FF EO 05 80 FF 
YF4D 90 FF 08 OC FF OF 09 OD 80 O2 FF FF FF 03 FF FF 
9F5D 00 FF FF OF FF OF FF FF 10 06 FF FF FF 07 00 20 
YF6D AD FF FF 06 FF 09 FF FF CO OA FF FF FF OB FF FF 
9F7TD AO FF FF 07 FF OD FF FF 50 OE FF FF FF FF 10 30 
9F8D BO FF 00 04 02 06 OA ODE 80 FF FF FF FF FF FF FF 
9F9D 20 FF 08 09 80 10 CO 50 30 30 FO 70 90 BO DO FF 


[864 F/866B/8697/A424/A439/AA50/D651/DEDY] 
Jobschleife aufrufen und Job ausführen 


9FB6 00 BRK Jobschleife aufrufen 

9FB7 EA NOP Rücksprungadresse ausgleichen 

9FB8 B5 00 LDA $00,X Jobregister holen 

9FBA 30 FC BMI $9FB8 ist Job ausgeführt ? 

YFBC 60 RTS ja, zurück zur aufrufenden Routine 


nun 0.0000 5 0 m 0 0 a a a En a a a an nn ET a a SS 5 a nn m m a nn nn m na nn a m 


Tabelle für GCR-Werte 2, 4, 5 und 7 (2.Teil) 

9FBD 60 FF 01 OB FF FF FF FF 70 FF FF FF OFF OFF OCO FO 
YFCD DO FF 01 05 03 07 OB FF 90 FF FF FF FFFFOFFOFF 
9FDD AO FF OC OD FF FF FF FF BO FF FF FF FF OFF 4O 60 
9FED EO FF 04 DE FF FF FF FF DO FF FF FF FF EFF FF FF 
YFFD EO FF 05 FF FF FF FFFFOFFOFFOFFOFFOFFOFFO5O 70 
[9619/9644 /9936] Tabelle für GCR-Wert 1 

AOOD OC 04 05 FF FF 02 03 FF OF 06 07 FF 09 OA OB FF 
AD1D OD OE 80 FF 00 00 10 40 FF 20 CO 60 40 AO 50 ED 
AD2D FF FF FF 02 20 08 30 30 30 00 FO FF 60 01 70 FF 
AO3D FF FF 90 03 AO OC BO FF FF 04 DO FF EO 05 80 FF 
AO4D 90 FF 08 OC FF OF 09 OD 80 80 80 80 80 80 80 80 
AO5D 00 00 00 00 00 00 00 00 10 10 10 10 10 10 10 10 
AD&D AO FF FF 06 FF 09 FF FF CO CO CO CO CO CO CO CO 
AO7TD 40 40 40 40 40 40 40 40 50 50 50 50 50 50 50 50 
A0O8D BO FF 00 04 02 06 OA DE 80 80 80 80 80 80 80 80 
AD9D 20 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 
AOAD FF FF 00 OA OA OA OA OA FO FO FO FO FO FO FO FO 
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AOBD 60 60 60 60 60 60 60 60 70 70 70 70 70 70 70 70 
AOCD DO FF 01 05 03 07 OB FF 90 90 90 90 90 90 90 90 
AODD AO AO AO AO AO AD AO AO BO BO BO BO BO BO BO BO 
AOED EO FF 04 OE FF FF FF FF DO DO DO DO DO DO DO DO 
ADFD EO EO EO EO EO EO EO EO 05 05 05 05 05 05 50 70 
[I66A/YEDA/Y942] Tabelle für GCR-Wert 3 

A10D FF FF FF FF FFEFFOFFEFFOFFOFFOFFEFFFFFFFF OFF 
-A11D FF FF 80 80 00 00 10 10 FF FF CO CO 40 40 50 50 
A12D FF FF FF FF 20 20 30 30 FF FF FO FO 60 60 70 70 
A13D FF FF 90 90 AO AD BO BO FF FF DO DO EO EO FF FF 
A1AD FF FF FE FFFFEFFFFFFEFFFEFF FF FF FF FF FF 
A15SD FF FF 80 80 00 00 10 10 FF FF CO CO 40 40 50 50 
A1l6D FF FF FF FF 20 20 30 30 FF FF FO FO 60 60 70 70 
A17D FF FF 90.90 AD AD BO BO FF FF DO DO EO EO FF FF 
A18D FF FF FF FFFFEFFFFEFFFFFFFFFFFFFF FF FF 
A1i9D FF FF 80 80 00 00 10 10 FF FF CO CO 40 40 50 50 
A1AD FF FF FF FF 20 20 30 30 FF FF FO FO 60 60 70 70 
A1BD FF FF 90 90 AO AD BO BO FF FF DO DO EO EO FF FF 
AICD FF FF FF FFEEFFFFFOFFOFFOFFOFFOFFOFFOFFOFFOFF 
A1DD FF FF 80 80 00 00 10 10 FF FF CO CO 40 40 50 50 
A1ED FF FF FF FF 20 20 30 30 FF FF FO FO 60 60 70 70 
AIFD FF FF 90 90 AO AD BO BO FF FF DO DO EO EO FF FF 
[96AB/9953] Tabelle für GCR-Wert 6 

A20D FF FF FF FF FFFFFFFFOFFOFFOFFOFFOFFOFFOFFOFF 
A2iD FF FF FF FFFFFFEFFFF EFF FF FF FF FF FF FF OFF 
A22D FF FF FF FF 08 08 08 08 00 00 00 00 01 01 01 01 
A23D FF FF FF FF OC OC OC 0C 04 04 04 04 05 05 05 05 
A24D FF FF FFFFOFFOFFOFFOFF O2 02 02 02 03 03 03 03 
A2a5D FF FF FF FF OF OF OF OF 06 06 06 06 07 07 07 07 
A26D FF FF FF FF 09 09 09 09 OA OA OA OA OB OB OB OB 
A27D FF FF FF FF OD OD OD OD ODE OE ODE DE FF FF FF FF 
A28D FF FF FF FF FF FFEFFOFFOFFOFFOFFOFFOFFOFFOFFOFF 
A29%D FF FF FF FFFFEFFEFFOFFOFFOFFOFFOFFOFFOFFOFF OFF 
A2AD FF FF FF FF 08 08 08 08 00 00 00 00 01 01 01 01 
A2BD FF FF FF FF OC OC 0C 0C 04 04 04 04 05 05 05 05 
A2eCcD FF FF FF FF FF FF OFFOFF 02 02 02 02 03 03 03 03 
A2eDD FF FF FE FF OF OF OF OF 06 06 06 06 07 07 07 07 
AED FF FF FF FF 09 09 09 09 OA OA OA OA OB OB OB OB 
A2FD FF FF FF FF OD OD OD OD ODE DE ODE ODE FF FF FF FF 
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[IYSCC/995FJ] Tabelle für GCR-Wert 8 

A30D FF FF FF FF FF FF FF FF OFF 08 00 01 FF 0C 04 05 
A31D FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 
A32D FF FF FFFFFFFFFF FF FF 08 00 01 FF OC 04 05 
A33D FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 
A34D FF FF FFFFFFFFFF OFF OFF 08 00 01 FF OC 04 05 
A35D FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 
A36D FF FF FF FF FFFFFFFFOFF 08 00 01 FF OC 04 05 
A37D FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 
A38D FF FF FFFFFFFFFFOFFOFF 08 00 01 FF OC 04 05 
A39D FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD ODE FF 
ASAD FF FF FFFFFFFFFFOFFOFF 08 00 01 FF OC 04 05 
A3BD FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 
‚ASCcD FF FF FF FFFFFFFFOFFOFF 08 00 01 FF OC 04 05 
A3DD FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 
A3ED FF FF FF FF FF FF FFFFOFF 08 00 01 FF OC 04 05 
ASFD FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 


[A783/A989] 

Diskette im 1571-Commodore-Format formatieren 

ALOD AY 47 LDA #$47 Nummer der größten 

A4AOF 8D AC 02 STA $O2AC zu formatierenden Spur 

A412 AY 03 LDA #803 Nummer des aktuellen Puffers 
A414 20 D3 D6  JSR $D6D3 Spur und Sektor an Jobschleife 
A417 A2 03 LDX #03 Puffer 3 anwählen 

A419 AI 00 LDA #800 Flag für Diskettenseite auf 
A41B 8D B2 01 STA $01B2 Seite 1 setzen 

A4IE AY FO LDA #$F0 Jobcode für 'Formatieren! 
A420 85 3B STA $3B merken 

A422 95 00 STA $00,X an Jobschleife übergeben 
A424 20 B6 Y9F JSR $YFB6 Job (Formatieren) ausführen 
A427 C9Y 02 CMP #$02 Rückmeldung auf 'Ok'! prüfen 
AL29 BO 45 BCS $A47O ist Job fehlerfrei verlaufen ? 
A42B, AD 03 LDY #803 Zahl der Leseversuche (4) 
14201 A9 01 LDA #$01 ja, Spurnummer (1) an 

AL2F 85 0C STA $0OC Jobschleife übergeben 

A431 A9 00 LDA #$00 Sektornummer (0) für 

A433 85 OD STA $0D Jobschleife setzen 

A435 AY 80 LDA #80 Jobceode für 'Sektor lesen! 


A437 95 00 STA $00,X an Jobschleife 
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A439 20 B6 9F UJSR $9FB6 


A43C C9 02 CMP #802 
AU3E 90 05 BCC $A445 
AuLO 88 DEY 

A441 10 EA BPL $A42D - 
A443. BO 2B BCS $A47O 
A445 a9 01 LDA #801 
A4hT 8D B2 01 STA $01B2 
AuhA A9 FO LDA #$F0 
A4hC 85 38 STA $3B 
A44E 95 00 STA $00,X 
A450 20 B6 9F  JSR $9FB6 
A453 C9 02 CMP #802 
A455 BO 19 BCS $A47O 
A457. AO 03 LDY #803 
Ma59l a9 24 LDA #824 
A45SB 85 0C STA $OC 
A45D A9 00 LDA #800 
A45SF 85 0D STA $0D 
A461 A9 80 LDA #$80 
A463 95 00 STA $00,X 
A465 20 B6 IF  JSR $IFB6 
A468 C9 02 CMP #802 
A46A BO 01 BCS $A46D 
A46C. 60 RTS 

A460! 88 DEY 

A46E_ 10 E9 BPL $A459 
A470” A2 00 LDX #800 


A472 2C 98 02 BIT $0298 
A4T5 BE 98 02 STX $0298 
A4&7T8 10 01 BPL $A47B 
ALTA, 60 RTS 

A47B] 4COAE JMP $E6OA 


[8294 /82A1/885E/BF39] 
45 Taktzyklen Verzögerung 


ALTE 8A TXA 
ALTF A2 05 LDX #%05 
A481 DO 03 BNE $A486 


Sektor 1,0 testlesen 

Rückmeldung auf 'Ok'! prüfen 

ist Job fehlerfrei verlaufen 
nächster Leseversuch 

schon 4 Versuche durchgeführt ? 
ja, immer Sprung nach $A470 

Flag für Diskettenseite 

auf Seite 2 setzen 

Jobceode für 'Formatieren' 

setzen 

an Jobschleife übergeben 

Job ausführen 

Rückmeldung mit 'Ok! vergleichen 
ist Job fehlerfrei verlaufen ? 

ja, Zahl der Leseversuche setzen 
Spurnummer (36) 

an Jobschleife 

Sektornummer (0) 

an Jobschleife 

Jobceode für 'Sektor lesen! 

setzen 

Sektor 36,0 testlesen 

Rückmeldung auf 'Ok'! prüfen 

ist ein Fehler aufgetreten ? 

nein, zurück zur aufrufenden Routine 
nächster Versuch 

schon drei Versuche durchgeführt ? 
ja, Flagwert für 'Fehler beachten! 
Fehlerstatusflag holen 

und neuen Wert setzen 

sollte Fehler beachtet werden ? 
nein, zurück zur aufrufenden Routine 
Fehlermeldung ausgeben , 


X-Register retten 
Verzögerungswert setzen 
immer Sprung nach $A486 
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[8181/8187/8298/82A8/8FOA/8F51/903A/9056/A7BE/BF33] 
80 Taktzyklen Verzögerung 


ALB3 BA TXA X-Register retten 

A484. A2 OD LDX #%$0D Verzögerungswert setzen 

14861 CA DEX Zähler erniedrigen 

A487 DO FD BNE $A486 Verzögerung zu Ende ? 

A4B9 AA TAX ja, X-Register wieder herstellen 
A4BA 60 RTS zurück zur aufrufenden Routine 


LA4AC2/A5S08/AS1IE/AS4F/ASA7/A678/A962] 
BAM-Pufferzeiger retten 


A48BB AS 6D LDA $6D Low-Byte holen und 

A4H8ED 8D AD 02 STA $O2AD zwischenspeichern 

A4L9O ADS 6E LDA $6E High-Byte holen und 

A492 8D AE 02 STA $O2AE zwischenspeichern 

A495 60 RTS zurück zur aufrufenden Routine 


[LA4D1/A51B/A5S31/A5S8A/A5SC2/ASC7/AGE2/AYTB) 
BAM-Pufferzeiger wieder herstellen 


A496 AD AD 02 LDA $O02AD Low-Byte aus Zwischenspeicher 
A499 85 6D STA $6D holen und wieder setzen 

AL9YB AD AE 02 LDA $O02AE High-Byte aus Zwischenspeicher 
A4YYE 85 6E STA $6E holen und wieder setzen 

A4AO 60 RTS | zurück zur aufrufenden Routine 


[A851/A887/A8BBC/ABF5S/A918/AY31] 
Zeiger auf BAM-Muster des Sektors setzen (für Seite 2) 


A4A1 A6 7F LDX $7F Nummer des aktuellen Laufwerks (0) 
A4A3 BD FF 00 LDA $00OFF,X Laufwerksstatus holen 
A4A6 FO 05 BEQ $A4AD ist Laufwerk bereit ? 
A4AB A9Y 74 LDA #%74 nein, Fehlermeldung 
A4AA. 20 48 E6 JSR $E64LB ı74 drive not ready! ausgeben 
A4aD! 20 19 Fi JSR $F119 Kanalnummer der BAM feststellen 
A4BO 20 DF FO JSR $FODF BAM von Diskette einlesen 
A4B3 AD F9 02 LDA $02F9 Flag für 'BAM gültig/ungültig'!' testen 
A4B6 FO 07 BEQ $A4BF ist BAM auf Disk gültig ? 
A4BB 09 80 ORA #%80 ja, Flag für 'BAM schreiben! 
A4GBA 8D F9 02 STA $02F9 setzen 
A4BD, DO 03 BNE $A4C2 immer Sprung nach $A4C2 
A4BF, 20 8D A5 JSR $A58D BAM auf Diskette schreiben 


A4C2" 20 8B A4 JSR $A4BB BAM Pufferzeiger retten 
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A4C5S 20 34 A5 JSR $A534 neuen Pufferzeiger setzen 

A4LCB AS 80 LDA $80 Nummer der aktuellen Spur holen 

A4CA 38 SEC und auf Spur 

A4CB EY 24 SBC #824 von Seite 1 umrechnen 

A4CD AB TAY dann dazugehörige Zahl der freien Blocks 

A4CE B1 6D LDA ($6D),Y der Spur aus Puffer holen 

A4DO 48 PHA Wert merken 

ALDI 20 96 A4  JSR $ALI6 alten Pufferzeiger wieder herstellen 

AuD4 68 PLA Zahl der Blocks wieder holen 

A4D5 60 RTS zurück zur aufrufenden Routine 

ALD6 FF... unbenutzter 

AGE6 ... FF ROM-Bereich 

[AB5S4/ABBA/ASCF] - 

BAM-Bit eines Sektors holen (für Seite 2) 

A4E7 AS 80 LDA $80 Nummer der gewünschten Spur 

A4E9 38 SEC physikalische Spurnummer 

A4EA EY 24 SBC #%24 errechnen 

A4EC AB TAY und merken 

ALED A5 81 LDA $81 Nummer des gewünschten Sektors holen 
A4EF 4A LSR A und durch acht teilen (da 8 Bits 

A4FO 4A LSR A pro Byte) und so entsprechdes Byte der 

A4Fi 4A LSR A drei BAM-Bytes anwählen 

A4rf2 18 CLC zu Position in BAM-Muster 

AaAF3 79 DB AS ADC $A5DB,Y Position der Spur addieren 

A4F6 AS TAY und als Zeiger auf BAM-Muster merken 

A4F7T AS 81 LDA $81 Nummer des gewünschten Sektors holen 

A4F9 29 07 AND #507 und Position des BAM-Bits im 

A4FB AA TAX Byte-Muster bestimmen 

AAFC BY 46 01 2 LDA $0146,Y Byte-Muster aus BAM-Puffer holen 

AAFF 3D E9 EF AND $EFEY,X und Bit des Sektors isolieren 

A502 08 PHP Wert merken 

A503 B9 46 01 LDA $0146,Y gesamtes Byte-Muster nochmal holen 
A506 28 PLP und vorherigen Wert dazu holen 

A507 60 RTS zurück zur aufrufenden Routine 

[A862] 

Zahl der freien Blocks einer Spur in der BAM erhöhen 

A508 20 8B A4 JSR $A4BB aktuellen BAM-Zeiger retten 


A50B 20 34 A5 JSR $A534 Zeiger auf BAM-Muster setzen 
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ASOE A5 80 LDA $80 Nummer der gewünschten Spur holen 
A510 38 SEC und physikalische Spurnummer 

A511 EY 24 SBC #824 (Seite-1-Wert) errechnen 

A513 AB TAY und merken 

A514 18 CLC dann 

A515 B1 6D LDA ($6D),Y Byte für Zahl der freien Blocks der 
A517 69 01 ADC #801 Spur holen und 

A519 91 ED STA ($6D),Y um eins erhöhen 

A51B 4C 96 A4 JUMP $ALI6 aktuellen BAM-Zeiger wieder holen 
[A898] 

Zahl der freien Blocks einer Spur in der BAM erniedrigen 

ASIE 20 8B A4  JSR $A4EB aktuellen BAM-Zeiger retten 

A521 20 34 A5 JSR $A534 BAM-Zeiger auf Byte-Muster der Spur 
A524 AS 80 LDA $80 Nummer der gewünschten Spur 

A526 38 SEC holen und physikalische Spurnummer 
A527 EY 24 SBC #$24 (Seite-1-Wert) errechnen 

A529 AB TAY und merken 

AS2A 38 SEC Zahl der freien 

A52B B1 6D LDA ($6D),Y Blocks der Spur 

A52D EY 01 SBC #801 in zugehörigem Byte 

A52F 91 6D STA ($6D),Y der BAM erniedrigen 

A531 4C 96 Ak JMP $ALIE alten BAM-Zeiger wieder setzen 


[LALC5/A5SOB/A521/A552/A965] 
Pufferzeiger für 2. Puffer vom internen Kanal 6 setzen 


A534 A2 OD LDX #%0D Kanalnummer (6) für 2. Puffer 
A536 B5 A7 LDA $A7,X zugeordnete Puffernummer 

A538 29 OF AND #$0F holen und 

AS3A AA TAX merken 

A5S3B BD EO FE LDA $FEEO,X High-Byte der Pufferadresse holen 
AS3E 85 6E STA $6E und in Pufferzeiger Übernehmen 
A540 A9 DD LDA #%DD Low-Byte für BAM-Zeiger 

A542 85 6D STA $6D setzen 

A544 60 RTS zurück zur aufrufenden Routine 
[A8BF/A9LE] 

Zahl der freien Blocks in BAM überprüfen (Seite 2 BAM) 

A545 AS 6F LDA $6F Zwischenspeicher 

A547 48 PHA retten 


A548 AS 80 LDA $80 aktuelle Spurnumer (Seite 2) holen 


Das _ große Floppybuch 1571/70 325 


AS4A 38 SEC und auf physikalische Nummer 
A54B EY 24 SBC #24 umrechnen 
A54D AB TAY Spurnummer 
AS4E 48 PHA merken 
AS4F 20 8B A4  JSR $AABB aktuellen BAM-Zeiger retten 
A552 20 34 A5 JSR $A534 Zeiger auf BAM-Muster setzen 
A555 B1 6D LDA ($6D),Y Zahl der angegebenen freien Blocks 
A557 48 PHA holen und merken 
A558 A9Y 00 LDA #800 Zwischenspeicher für Zahl der freien 
AS5SA 85 6F STA $6F Blocks löschen 
AS5SC A9 01 LDA #$01 Zeiger auf Puffer für 
A55E 85 6E STA $6E Rückseite setzen 
A560 BY DB A5 LDA $A5DB,Y Position des BAM-Musters in Puffer 
A563 18 CLC holen und auf Pufferbereich 
A564 69 46 ADC #$46 $0146-$01BB umrechen 
A566 85 6D STA $6D BAM-Zeiger setzen 
A568. AO 02 LDY #502 Zahl der BAM-Muster-Bytes -1 
AS6A, A2 07 LDX #807 Zahl der Bits pro Byte -1 
assc! B1 6D LDA ($6D),Y Bit-Muster der Sektorenbelegung holen 
AS6E 3D E9 EF AND $EFE9I,X und Bit eines Sektors isolieren 
A571 FO 02 BEQ $A575 | ist Sektor frei ? 
A573, E6 6F INC $6F ja, Zahl der freien Blocks erhöhen 
15751 CA DEX nächstes Bit prüfen 
A576 10 F4 BPL $A56C ist schon ganzes Byte beachtet ? 
A578 88 DEY nächstes BAM-Byte der Spur einrechen 
A579 10 EF BPL $A56A Blocks der gesamten Spur geprüft ? 
A5S7TB 68 PLA Ja, Zahl der in BAM angegebenen Blocks 
AS7TC C5 6F CMP $6F holen und mit neuer Zahl vergleichen 
ASTE FO 05 BEQ $A585 sind Blockangaben richtig ? 
A580 AY 71 LDA #$71 nein, Fehlermeldung 
A582. 20 45 E6 JSR $E645 ı71 Dir Error! ausgeben 
asss 68 PLA Nummer der bearbeiteten Spur 
A586 AB TAY wieder holen 
A587 68 PLA Zwischenspeicher wieder 
A588 85 6F STA $6F herstellen 
A58A 4C 96 A4 JMP $ALY6 BAM-Zeiger wieder herstellen 


[A4BF/EF37/FOOT/FO9CI 

1571/1541 BAM auf Diskette schreiben 

AS8D AD OF 18 LDA $180F Steuerregister holen 

A590 29 20 AND #820 und Flag für Betriebsmodus holen 
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A592. DO 03 BNE $A597 ist Floppy im 1541-Modus ? 
A594 4C 8A D5 JMP $D58A ja, Puffer auf Diskette schreiben (1541) 
A597 AD AC 02 LDA $02AC Nummer der größten Spur der Diskette 
AS9A C9Y 25 CMP #825 holen und auf 35 testen 
A5S9C 90 F6 BCC $A594 hat die Diskette zwei Seiten ? 
ASYE A6 FY LDX $F9 ja, Nummer des aktuellen Puffers holen 
A5SAO BD 5B 02 LDA $025B,X dazugehörigen Jobcode 
A5A3 48 PHA feststellen und retten 
ASA4 20 8A D5 JSR $D58A Sektor auf Diskette schreiben 
:A5A7 20 8B A4  JSR $A4BB aktuellen BAM-Zeiger retten 
ASAA 20 3A EF UJSR $EF3A BAM in Puffer einlesen 
ASAD 20 08 FO JSR $F008 Puffer für BAM löschen 
A5SBO A5 FY LDA $F9 Nummer des aktuellen Puffers holen 
A5B2 OA ASL A und verdoppeln (da Zeiger 
ASB3 AA TAX auf 2-Byte-Tabelle) 
A5B4 AY 35 LDA #$35 Spur 18, Seite 2 (Spur 53) an 
AS5B6 95 06 STA $06,X Jobschleife übergeben 
A5B8ß., AD 68 LDY #868 Pufferzeiger auf Ende der 1571 BAM 
ASBA B9 46 01 LDA $0146,Y Byte aus BAM-Puffer holen 
ASBD 91 6D STA ($6D),Y und in aktuellen Datenpuffer schreiben 
A5SBF 88 DEY Zeiger auf nächstes Byte richten 
ASCO 10 F8 BPL $A5SBA schon ganzer Puffer kopiert ? 
ASC2 20 96 Ak JSR $A496 ja, BAM-Zeiger wieder herstellen 
ASC5S 20 8A D5 JSR $D58A Sektor auf Diskette schreiben 
ASC8 A5 FY9 LDA $F9 Nummer des aktuellen Puffers holen 
ASCA DA ASL A und verdoppeln (da Zeiger auf 
ASCB AA TAX Tabelle mit 2-Byte-Werten) 
ASCC AD 85 FE LDA $FEB85 Nummer der Directoryspur (Seite 1) holen 
ASCF 95 06 STA $06,X und an Jobschleife übergeben 
A5D1I 20 86 D5 JSR $D586 Sektor von Diskette einlesen 
A5D4 68 PLA Jobcode wieder holen 
A5D5 A6 FY LDX $FY Nummer des aktuellen Puffers 
A5D7’ 9 5B 02 STA $025B,X Jobcode wieder in Tabelle schreiben 
ASDA 60 RTS zurück zur aufrufenden Routine 


[verwendet in : A4F3/A560] 

Position der BAM-Muster der Spuren im BAM-Puffer 
ASDB 00 03 06 09 OC OF 12 15 18 1B 1E 21 24 27 2A 2D 
ASEB 30 33 36 39 30 3F 42 45 48 4B 4E 51 54 57 5A 5D 
ASFB 60 63 66 
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buch 1571/70 


Routine für &-Befehl 


ASFE AD OF 18 
A601 29 20 
A603 FO OF 
A605 AO 00 
A607 A2 00 
A609 AY 01 
A60B 8D 7A 02 
A6OE 20 12 C3 
A611, 4C AB E7 


[EBFC] 


_ Befehl vom Rechner ausführen 


A6iC 20 46 C1 
A6&IF 20 B2 81 
AS 37 
29 7F 
85 37 
4C FF EB 


LF997] 


LDA $180F 
AND #820 
BEQ $A614 
LDY #800 
LDX #800 
LDA #801 
STA $027A 
JSR $C312 
JMP $E7A8 
LDA #%8D 
JSR $C268 
JMP $E7AB 


JSR $C146 
JSR $81B2 
LDA $37 
AND #$7F 
STA $37 
JMP $EBFF 


Steuerregister holen 

und Betriebsmodus testen 

ist Floppy im 1571 Modus ? 

ja, [Fehler siehe 7.1.5] 
[unnötige Initialisierung] 
Zeiger auf Beginn des Eingabepuffers 
richten 

Laufwerksnummern holen 

zurück zur 1541 &-Routine 
Endekennzeichen (Shift + Return) 
in Befehlstring suchen 

zurück zur 1541 &-Routine 


Befehlsstring ausführen 


1571 Bus auf Eingang schalten 


Busstatusbyte holen 

und Flag für '1571 Modus! 
Löschen 

zurück zur Warteschleife 


Zähler für 'Motor ausschalten! initialisieren 


A62B A9 FF 
A62D 85 48 
A62F A9 06 
A631 85 35 


LFYAB] 

Motor anschalten 
A634 DO 07 
A636 AD AB 02 
A639 DO 10 

A63B, FO 1A 

A630 | A9 FF 
A63F 8D AB 02 
A642 20 64 87 


LDA #$FF 
STA $48 

LDA #806 
STA $35 

RTS 


zähler für Nachlaufzeit des Motors 
festlegen 

Zahl der noch auszuführenden 
Stepperroutinen-Aufrufe 

zurück zur aufrufenden Routine 


und warten bis auf Drehzahl 


BNE $A63D 
LDA $02AB 
BNE $A64B 
BEQ $A657 
LDA #$FF 
STA $02AB 
JSR $8764 


hat sich 'Write Protect! geändert ? 
zähler für Hochlaufphase holen 

ist Motor auf Drehzahl ? 

ja, immer Sprung nach $A657 

Zähler für Nachlaufzeit 

setzen 

Motor anschalten 
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A645 A9 01 LDA #801 Flag für 'Diskette initialisieren! 
A647 85 1C STA $1C setzen 

A649 DO 0C BNE $A657 immer Sprung nach $A657 

16481 CE AB 02 DEC $02AB Zahl der Warte-IRQs erniedrigen 
A64E DO 07 BNE $A657 ist Motor auf Drehzahl ? 

A650 A5 20 LDA $20 ja, Laufwerksstatus holen 

A652 DO 03 BNE $A657 wurde Motor angeschaltet ? 

A654 , 20 70 87 JSR $8770 nein, Motor anschalten 

A657 4C BI F9 _JMP $FYB1 zurück zur Kopfsteuerroutine 
[FF15] 

Ein-/Ausgaberegister initialisieren 

A65A A9 02 LDA #02 Data-Ausgang auf 

A65C 8D 00 18 STA $1800 High setzen 

A65F A9Y 20 LDA #820 auf 1571 Modus schalten, Bus auf Eingang 
A661 8D 01 18 STA $1801 und Kopf auf Seite 1 ansteuern 
A664 4C 18 FF JMP $FF18 zurück zur Reset-Routine 

[DO5D/F107] 

1571/1541 BAM von Diskette 

A667 AD OF 18 LDA $180F Steuerregister holen 

A66A 29 20 AND #820 und auf Betriebsmodus testen 
. A66C, DO 03 BNE $A671 ist Floppy im 1541 Modus ? 

A66E! 4C 86 D5 4JMP $D586 ja, Sektor lesen 

A671 AD AC 02 LDA $O2AC Nummer der größten Spur holen 
A674 C9 25 CMP #825 und mit 35 vergleichen 

A676 90 F6 BCC $A66E sind 2 Seiten verwendet ? 

A678 20 8B A4  JSR $AABB ja, aktuellen BAM-Zeiger retten 
A6’B A9 00 LDA #$00 BAM-Zeiger auf Pufferbeginn 

A67D 85 6&D STA $6D richten 

A6’F A6 F9 LDX $FY Puffernummer holen 

A681 BD EO FE LDA $FEEO,X und High-Byte der Pufferadresse holen 
A684 85 6E 'STA $6E und in Pufferzeiger setzen 

A686 A9 FF LDA #$FF Flag für 'Fehler bei Jobausführung 
A688 8D 98 02 STA $0298 nicht beachten! setzen 

A68B A5 F9 LDA $F9 Puffernummer wieder holen 

A68D OA ASL A und verdoppeln (da Tabelle aus je 
A68BE AA TAX 2 Parametern besteht) 

A68F A9Y 35 LDA #$35 Spur 18, Seite 2 (Directoryspur) an 
A691 95 06 STA $06,X Jobschleife übergeben 

A693 20 86 D5 JSR $D586 Sektor lesen 


Das 


A696 
A698 
A699 
A69B 
A69D 
A6A0 
A6A2 
A6A4 
A6A6 
A6A9 
A6AA 
A6acl 
A6AE 
A6B1 
A6B3 
A6B4 
A6B5 
A6B8 
A6BA 
A6BD 
A6BF 
A6C1 
A6C2 
A6C4 
A6C7 
A6CA 
A6CB 
ASCE 
A6D 1 
_ A6D3 
A6D5 
A6D8 
A6DA 
A6DC 
A6DD 
A6DF- 
A6E2 


l 


roße Flo 


c9 02 
6A 

29 80 
49 80 
8D AF 01 
10 0A 
AO 68 

B1 6D 
99 46 01 


8D 98 02 


20 86 D5 


2D AF 01 


A9 47 
8D AC 02 
4C 96 A4 
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CMP #802 
ROR A 

AND #80 
EOR #%80 
STA $O1AF 
BPL $A6AC 
LDY #568 


LDA ($6D),Y 
STA $0146,Y 


DEY 

BPL $A6A4 
LDA #$FF 
STA $0298 
LDA $F9 
ASL A 

TAX 

LDA $FE85 
STA $06,X 
JSR $D586 
CMP #802 
BCC $A6D1 
TAX 

LDA #824 


STA $O2AC | 


JSR $ALY6 
TXA 

JSR $E6SOA 
JMP $0644 
LDY #03 


LDA ($6D),Y 


AND $01AF 
BMI $A6DD 
LDA #$24 
„byte $2C 
LDA #547 
STA $02AC 
JMP $A4I6 


Rückmeldung auf Fehler testen 
Ergebnis in Bit? merken (1=Fehler) 
und Bit isolieren 

Bit für Prüfung in $A6D5 vorbereiten 
und merken (0= Fehler aufgetreten) 
ist ein Fehler aufgetreten ? 

nein, Zeiger auf Ende der 1571-BAM 
Byte aus Datenpuffer lesen 

und Byte in 1571 BAM-Puffer schreiben 
Zeiger auf nächstes Byte richten 
schon alle Bytes übertragen ? 

Flag für 'Fehler bei Jobausführung 
nicht beachten! setzen 

Nummer des aktuellen Datenpuffers 
holen und verdoppeln (da Zeiger in 
2-Byte-Werte Tabelle) 

Nummer der Directoryspur (18) holen und 
als Spurnummer des Jobs setzen 

Sektor lesen 

Rückmeldung mit 'Ok! vergleichen 

ist Job fehlerfrei verlaufen ? 

ja, Rückmeldung merken (0/1) 

Spur 35 als größte Spur setzen 

(d.h. nur eine Seite wird benutzt) 
aktuellen BAM-Zeiger wieder herstellen 
Rückmeldung wieder holen 
Fehlermeldung ausgeben 

Job Fehlerbehandlung 

Pufferzeiger setzen und Kennzeichen 
für 1571 Diskette ($80) holen 
Kennzeichen mit vorherigem Fehler prüfen 


vorheriges Lesen und Kennzeichen ok ? 


nein, Spurzahl für eine Seite benutzt 
nächste 2 Bytes überspringen (Bitbefehl) 
Spurzahl für 2 Diskettenseiten 

setzen 

BAM-Pufferzeiger wieder herstellen 
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[DO3F] 

auf 1571 Diskette prüfen (Initialisieren) 

A6E5S 20 8C D5 JSR $D58C Jobcode übergeben und ausführen 

A6EB 48 PHA Rückmeldung merken 

A6EY9 C9Y 02 CMP #302 Meldung auf 'Ok'! prüfen 

A6GEB BO 49 BCS $A736 ist Job fehlerfrei verlaufen ? 

A6ED AD OF 18 LDA $180F ja, Steuerregister holen 

A6FO 29 20 AND #820 und Betriebsmodus feststellen 

A6f2 FO 42 BEQ $A736 ist Floppy im 1571 Modus ? 

A6bF4 AY 47 LDA #847 ja, max. Spurnummer +1 (71) 

A6F6 8D AC 02 STA $O2AC setzen 

A6F9 AI FF LDA #$FF Flag für 'Fehler bei Jobausführung 

A6FB 8D 98 02 STA $0298 nicht beachten! setzen 

A6FE A5 16 LDA $16 erstes Zeichen der ID des letzten 

A700 48 PHA Sektorheaders retten 

A7TO1 AS 17 LDA $17 zweites Zeichen der ID des letzten 

A703 48 PHA Sektorheaders retten 

A704 AS F9 LDA $F9 Nummer des aktuellen Datenpuffers holen 
A706 OA ASL A und verdoppeln (da Tabelle aus 

A7TO7T AA TAX 2-Byte-Werten besteht) 

A708 AY 35 LDA #$35 Spur 18, Seite 2 (Directory Rückseite) 
ATOCA 9 06 STA $06,X an Jobschleife übergeben 

A7’OC A9 BO LDA #%B0O Jobcode für 'Sektor suchen! 

ATOE 20 8C D5 JSR $D58C an Jobschleife übergeben und ausführen 
A’I1 Cc9 02 CMP #802 Rückmeldung mit 'Ok! vergleichen 

A713 68 PLA zweites Zeichen der zuletzt gelesenen 
A714 A8 TAY ID wieder holen 

A715 68 PLA erstes Zeichen der zuletzt gelesenen 
A716 AA TAX ID wieder holen 

A717 BO 0B BCS $A724 ist Job fehlerfrei verlaufen ? 

A719 E4 16 CPX $16 ja, letzte ID mit neuer ID vergleichen 
A7T1B DO 07 BNE $A724 identisch ? 

A7ID C4 17 CPY $17 ja, auch zweites ID-Zeichen vergleichen 
A7TIF DO 03 BNE $A724 identisch ? 

AT21 A9 47 LDA #847 ja, Zahl der Spuren +1 für 2 Seiten (71) 
: A723_ 2C „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
A724” A9 24 LDA #24 Zahl der Spuren +1 für 1 Seite (35) 
A726 8D AC 02 STA $O2AC als max. Spurnummer setzen 

A729 84 17 STY $17 zuerst gelesene ID 

A7T2B 86 16 STX $16 wieder zurücksetzen 


A7T2D AS FY LDA $F9 Nummer des aktuellen Datenpuffers holen 
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AT2F OA ASL A und verdoppeln (da Zeiger auf 

A730 AA TAX 2-Byte-Werte) 

A731 AD 85 FE LDA $FEB5S Nummer der Directoryspur (18) holen 
A734_ 95 06 STA $06,X als Spurnummer des Jobs setzen 
A7362 68 PLA Wert für Rückmeldung '!Ok! 

A737 60 RTS zurück zur aufrufenden Routine 
ıF005] 

1571 BAM-Puffer löschen 

A738 20 3A EF JSR $EF3A Pufferzeiger setzen 

A7T3B AD OF 18 LDA $i80F Steuerregister holen 

A7T3E 29 20 AND #$20 und Betriebsmodus testen 

A7T4AO FO OA BEQ $A74C ist Floppy im 1571 Modus ? 

A742 A9 00 LDA #800 ja, Wert für Leerbyte 

A74A_ AO 68 LDY #568 Pufferzeiger setzen 

A746 99 46 01 STA $0146,Y Byte in BAM-Puffer löschen 

A749 88 DEY Pufferzeiger auf nächstes Byte setzen 
ATLA. 10 FA BPL $A746 schon ganzer Puffer gelöscht ? 

A7T4AC 4C 08 FO  JMP $FO008 ja, Zeiger für 1541 BAM setzen 
[F24B] 

physikalische (absolute) Spurnummer berechnen 

AT4F 48 PHA Spurnummer merken 

A750 AD OF 18 LDA $180F Steuerregister holen 

A753 29 20 AND #$20 und Betriebsmodus testen 

A755 FO 08 BEQ $A75F ist Floppy im 1571 Modus ? 

A757 68 PLA ja, Spurnummer wieder holen und mit 
A758 C9 24 CMP #%24 max. Nummer +1 (für Seite 1) vergleichen 
ATSA 90 04 BCC $A760 ist Spur auf Seite 2 ? 

A’SC EY 23 SBC #823 ja, Spurnumner auf Seite 1 umrechnen 
ATSE, 24 68 .byte $24 nächstes Byte überspringen (Bit-Befehl) 
A’TSF_ 68 PLA Stack wieder korregieren 

A760 AE D6 FE LDX $FED6 Zahl der Spurzonen holen 

1763 60 RTS zurück zur aufrufenden Routine 
[EES6] 

neue BAM erzeugen (1571/1541) 

A764 20 05 FO JSR $F005 BAM-Puffer löschen 

A767 AD OF 18 LDA $180F Steuerregister holen 

AT6A 29 20 AND #%20 und Betriebsmodus testen 


A76C DO 03 BNE $A771 ist Floppy im 1571 Modus ? 
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AT6E AY 24 LDA #$24 ja, max. Spurnummer +1 (36) 
A770, 2C „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
A7T7Ti A947 LDA #847 max. Spur für 2 Seiten (71) 
A773 8D AC 02 STA $02AC festlegen 
A776 4C 43 EE JMP $EE43 neue BAM erzeugen 


[FF42] 


Commodore Diskette formatieren 


A779 AD OF 18 LDA $180F Steuerregister holen 

ATTC 29 20 AND #820 und Betriebsmodus testen 

A7T’E DO 03 BNE $A783 ist Floppy im 1541 Modus ? 
A780. 4C C6 CB JUMP $C8C6 ja, 1541 Diskette formatieren 
A783 4C OD A4 JUMP $A4OD 1571 Diskette formatieren 


[EBE4] 

CIA 6526 bei Reset initialisieren 

A786 AD 01 18 LDA $1801 Steuerregister holen 

A789 29 DF AND #$DF und auf 1541 Betrieb 

A7T8B 8&D 01 18 STA $1801 umschalten 

AT8E 20 83 A4 JSR $A4B3 ca. 80 Taktzyklen Verzögerung 
A791 A9 7F LDA #$7F Interruptregister 

A793 8&D OD 4DO STA $400D zurücksetzen 

A796 AI 08 LDA #808 Timer A auf 'one shot! (nur ein 
A798 8D OE 40 STA $400E Durchlauf) setzen 

A7T9B 8D OF 40  STA $400F Timer B auf gleichen Modus setzen 
A’TYE A9Y 00 LDA #00 Timer A High-Byte 

ATAO 8D 05 40 STA $4005 Löschen 

A7’A3 AY 06 LDA #806 Timer A Low-Byte auf 6 Taktzyklen 
ATA5 8&D 04 40 STA $4004 setzen 

ATA8 A9 01 LDA #01 Timer A 

ATAA 8D ODE 40 STA $400E starten 

A’TAD 20 B2 81 JSR $81B2 1571 Bus auf Eingang 

A7TBO 4C 59 EA JMP $EA59Y auf ATN-Kommandomodus prüfen 
[Y24B/EA68/ECO4] 

ATN-Kommando vom Bus annehmen 

A7B3 AD OF 18 LDA $180F Steuerregister holen 

A7B6 29 20 AND #%20 und Betriebsmodus testen 

A’TB8 FO 03 BEQ $A7BD ist Floppy im 1571 Modus ? 

ATBA, 4C CE 80 JMP $80CE ja, ATN-Kommando vom 1571 Bus holen 
A7’BD 4C 5B E8 UJMP $E85B ATN-Kommando vom 1541 Bus holen 
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[EB22] 
Patch (=Korrektur) für Reset-Routine 
A7’CO 78: SEI Bus- und Kontrolleraufruf abschalten 
A7TCi A2 45 LDX #845 Stackpointer auf Bereich $100-$145 
ATC3 9A TXS . initialisieren 
A7’C4 4C 25 EB JUMP $EB25 zurück zur Reset Routine 
[ED8F/EES6] 
neue 1571/1541-BAM erzeugen 
. A7TC7 AD OF 18 LDA $180F Steuerregister holen 
ATCA 29 20 AND #$20 und Betriebsmodus testen 
A’CC, DO 09 BNE $A7D7 ist Floppy im 1541 Modus ? 
a7cEl AD 03 LDY #503 Pufferzeiger auf Kennzeichen für Disktyp 
A’DO A9 00 LDA #%00 Kennzeichen für 1541 Diskette in 
ATD2 91 6&D STA ($6D),Y BAM schreiben 
A7TDA., 4C B7EE JMP $EEB7 1541 BAM erzeugen 
arozl AD AC 02 LDA $02AC Nummer der größten Spur holen 
ATDA C9Y 25 CMP #825 und mit 37 vergleichen 
A7’DC 90 FO BCC $A7CE ist Seite 2 benutzt ? 
ATDE AO 01 LDY #%01 ja, Nummer der ersten Spur festlegen 
A7TEO, A2 00 LDX #%00 ersten Sektor setzen 
a7e2! co 12 CPY #812 mit Nummer der Directoryspur vergleichen 
ATE4 FO 34 BEQ $ABIA Directoryspur schon erreicht ? 
ATE6 8A TXA nein, Nummer des aktuellen Sektors 
ATE7 48 PHA merken 
ATE8B A9 00 LDA #00 Rechenregister 
ATEA 85 6F STA $6F für Bitmuster 
ATEC 85 70 STA $70 der belegten Sektoren 
ATEE 85 71 STA $71 Löschen 
A7TFO BY 2B 94 LDA $942B,Y Zahl der Sektoren der Spur feststellen 
A7TF3, AA TAX und merken 
ATF4 38 SEC Flagwert für '!Sektor frei! 
A7TF5S 26 6F ROL $6F in Rechenregister 
A’F7T 26 70 ROL $70 für Bitmuster 
ATF9 26 71 ROL $71 einschieben 
A’FB CA DEX nächsten Sektor anwählen 
ATFC DO F6 BNE $A7F4 schon alle Sektoren angelegt ? 
ATFE 68 PLA Nummer des ersten Sektors und 
ATFF AA TAX Pufferzeiger wieder setzen 


A800 AS 6F LDA $6F erstes Byte des Bitmusters holen und 
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ABO2 9D 46 01 STA $0146,X in BAM-Puffer schreiben 

A805 A5 70 LDA 70 zweites Byte des Bitmusters holen und 
A807 9D 47 01  STA $0147,X in BAM-Puffer schreiben 

A8BOCA AS 71 LDA $71 drittes Byte des Bitmusters holen und 
ABOC ID 48 01 STA $0148,X in BAM-Puffer schreiben 

A8OF E8 INX 3 Bytes des Bitmusters 

AB10O E8& INX mit Pufferzeiger 

A811 E8 INX überspringen 

A812 EO 33 CPX #%33 auf Position für Directoryspur prüfen 
A814 DO 04 BNE $A81A Spur 18 schon erreicht ? 

ABI6 E8 INX BAM-Eintrag 

A817 EB INX von Spur 18 

AB1I8 EB INX mit Pufferzeiger überspringen 

A81Y_ CB INY Zeiger der aktuellen Spur auf 

ABIA C8 INY Spur 19 setzen 

A81IB CO 24 CPY #%24 mit Ende der ersten Seite vergleichen 
A8BID 90 C3 BCC $A7E2 ist Spur kleiner ? 
"ABIF 20 B7 EE JSR $EEB7 nein, 1541 BAM anlegen 

A822 AO 03 LDY #03 Pufferzeiger initialisieren 

A824 A9 80 LDA #380 Kennzeichen für 1571-Diskette 

A826 91 6D STA ($6D),Y in Directorysektor schreiben 

A828 AD FF LDY #$FF Pufferzeiger setzen 

A82A_ A2 22 LDX #822 Zahl der Spuren (ohne Directoryspur) 
a82cl BD 2C 94 LDA $942C,X Anzahl der freien Blocks der Spur 
AB2F 91 6D STA ($6D),Y in BAM-Puffer schreiben 

AB31 88 DEY Pufferzeiger auf nächstes Byte setzen 
A832 CA DEX Zeiger auf nächsten Spureintrag 

A833 10 F7 BPL $AB2C schon alle Spuren eingetragen ? 

A835 AO EE LDY #SEE Ja, Zeiger auf Spur 18, Seite 2 richten 
A837’ A9 00 LDA #800 Zahl der freien Blocks der Spur 

A839 91 ED STA ($6D),Y Löschen (da Directoryspur) 

A8SB 4C 75 DO JUMP $0075 freie Blocks der Diskette berechnen 
[EFSF] 

Sektor in BAM freigeben 

AB3E AD OF 18 LDA $180F ja, Steuerregister holen 

A841 29 20 AND #$20 und Betriebsmodus testen 

A843 DO 06 BNE $A84B ist Floppy im 1541 Modus ? 

A845 20 CF EF JSR $EFCF ja, Zeiger auf Bit eines Sektors setzen 
AB4LB. 4C 62 EF JUMP $EF62 Sektor freigeben 


AB4LB A5 80 LDA $80 Nummer der aktuellen Spur holen und 
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ABLD C9 24 CMP #$24 mit maximalem Wert der Seite vergleichen 
AB4F 90 F4 BCC $A845 ist Spurnummer kleiner ? 

AB51 20 Ai A4  JSR $AAAI nein, Zeiger auf BAM-Bit des Sektors 
A854 20 E7T A4 JSR $A4E7 BAM-Bit des Sektors holen 

A857 DO 19 BNE $A872 ist Sektor frei ? 

AB59 1D EY EF ORA $EFEY,X ja, BAM-Bit setzen 

A8BSC 99 46 01 STA $0146,Y und in Puffer schreiben (freigeben) 
A8SSF 20 88 EF JSR $EF88 Flag für 'BAM ungültig! setzen 

AB62 20 08 A5 JSR $A508 Zahl der freien Blocks erhöhen 

AB65 AS 80  LDA $80 Nummer der aktuellen Spur auf 

A867 CY 35 CMP #35 Spur 18, Seite 2 (Directory) prüfen 
A869 FO 08 BEQ $A873 identisch ? 

AB6B A5 7F LDA $7F nein, Nummer des aktuellen Laufwerks 
AB6D DA ASL A holen und verdoppeln 

AB6E AA TAX (da Tabelle aus 2-Byte-Werten besteht) 
AB6F, 4C 7F EF JMP $EFTF Zahl der freien Blocks der Disk erhöhen 
A872 38 SEC Fehlerflag 'Sektor schon freigegeben! 
A873 60 RTS zurück zur aufrufenden Routine 

[EFY3] 

Sektor in BAM belegen 

A874 AD OF 18 LDA $180F Steuerregister holen 

A877 29 20 AND #820 und Betriebsmodus testen 
A879 DO 06 BNE $A881 ist Floppy im 1541 Modus ? 

ara] 20 CF EF JSR $EFCF Zeiger auf BAM-Bit des Sektors setzen 
ABTE. 4C 96 EF JMP $EF96 Sektor in BAM freigeben 

A881 AS 80 LDA $80 ‘Nummer der gewünschten Spur holen 
A883 C9Y 24 CMP #$24 und auf max. Wert +1 für 1 Seite prüfen 
A885 90 F4 BCC $A87B ist Spur auf Seite 2 ? 

A887 20 Al A4  JSR $A4AI ja, BAM-Zeiger auf Spureintrag setzen 
ABBA 20 E7 A4 JSR SALE? BAM-Bit des Sektors holen 

A8sD FO 19 BEQ $ABAS ist Sektor freigegeben ? 

AB8BF 5D E9 EF EOR $EFEY,X ja, Sektor belegen (Bit = 0) 

A392 99 46 01 STA $0146,Y und BAM Muster wieder speichern 

A895 20 88 EF JSR $EF8S Flag für 'BAM ungültig! setzen 

A898 20 IE A5  JSR $A5SIE freien Blocks der Spur erniedrigen 
A8IB A5 80 LDA $80 Nummer der angewählten Spur holen und 
A8YD CY 35 CMP #$35 auf Spur 18, Seite 2 prüfen 

A8BIYF FO 07 BEQ $ABAB identisch ? 

ABA1I AS 7F LDA $7F nein, Nummer des aktuellen Laufwerks 


A8A3 OA ASL A holen und verdoppeln 
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ABA4 AA TAX (da Blocktabelle aus 2-Bytes besteht) 
A8A5S_ 4AC B2 EF JMP $EFB2 Zahl der freien Blocks erniedrigen 
ABA” 60 RTS zurück zur aufrufenden Routine 

[FIFA] 


nächsten freien Sektor der Spur suchen 


A8A9 AD OF 18 LDA $180F Steuerregister holen 

ABSAC 29 20 AND #$20 und Betriebsmodus testen 
ABAE, DO 06 BNE $A8B6 ist Floppy im 1541 Modus ? 
A8BO 20 11 FO  JSR $F0i1 ja, BAM-Zeiger setzen 


A8BB3. 4C FD Fi JMP $FiFD nächsten freien Sektor suchen 


A8B6 A5 80 LDA $80 Nummer der aktuellen Spur 
A8B8 C9 24 CMP #$24 auf max. Spur +1 der 1. Seite prüfen 
A8BA 90 F4 BCC $A8BO ist Spur auf Seite 2 ? 


A8SBC 20 Al A4  JSR $AAAI 
A8BF 20 45 A5 JSR $A545 
A8C2 BY 2C 94 LDA $942C,Y 


Zeiger auf BAM-Eintrag der Spur setzen 
Zahl der freien Blocks der Spur prüfen 
Zahl der Sektoren der Spur holen 


A8C5, 8D 4E 02 STA $024E und merken 

ascal A5 81 LDA $81 Nummer des aktuellen Sektors 
ASCA CD 4E 02 CMP $024E mit max. Sektornummer vergleichen 
A8CD BO 09 BCS $A8DE ist Sektornummer im erlaubten Bereich ? 
ABCF 20 E7 A4 JSR $A4E7 ja, BAM-Bit des Sektors holen 
A8D2 DO 06 BNE $A8DA ist Sektor frei ? 

A8D4 E6 81 INC $81 nein, nächsten Sektor anwählen 
A8D6, DO FO BNE $A8C8 immer Sprung nach $A8C8 

A8D8 _ AY 00 LDA #%00 Flag für 'kein Sektor frei' 

ABSDA 60 RTS zurück zur aufrufenden Routine 
[F12D] 


nächsten freien Sektor suchen 


 A8DB AD OF 18 LDA $180F Steuerregister holen 
A8DE 29 20 AND #820 und Betriebsmodus testen 
A8BEO_ DO 06 BNE $ABE8 ist Floppy im 1541 Modus ? 
age21 AS 6F LDA $6F ja, Zahl der freien Blocks der Spur 
ABEL 48 PHA retten 
ABES, 4C 30 Fi 4JMP $F130 nächsten freien Sektor suchen 
a8es! A5 80 LDA $80 Nummer der aktuellen Spur 
ABEA C9Y 24 CMP #824 auf max. Spur +1 der 1. Seite prüfen 
ABEC 90 F4 BCC $ABE2 ist Spur auf Seite 2 ? 
ABEE CY 35 CMP #%35 ja, auf Spur 18, Seite 2 testen 
A8FO FO OE BEQ $A9YOO identisch ? 
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A8F2 AS 6F LDA $6F Zeropagestelle 

ABF4 48 PHA retten 

A8F5 20 Al A4  JSR $A4AI Zeiger auf BAM-Muster setzen 

A8F8 AB TAY Zahl der freien Blocks merken 

ABF9 68 PLA Zeropagestelle wieder 

A8FA 85 6F STA $6F herstellen 

A8dFC 98 TYA Zahl der freien Blocks der Spur holen 
A8FD, 4AC 38 Fi JMP $F138 freien Sektor holen 

A900 A9Y 00 LDA #00 Zahl der freien Blocks der Spur setzen 
A902 4C 38 F1  JMP $F138 nächsten freien Sektor suchen 

LF1C4] 

BAM Zeiger auf Bit eines Sektors setzen 

A905 AD OF 18 LDA $180F Steuerregister holen 

A908 29 20 AND #%20 und Betriebsmodus testen 

A9DA. DO 06 BNE $A912 ist Floppy im 1541 Modus ? 

agoc! 20 11 FO JSR $F011 ja, BAM-Zeiger setzen und 

AYOF, AC C7 Fi  JMP $FiC7 optimalen freien Sektor holen 

A912 AS 80 LDA $80 Nummer der aktuellen Spur 

A914 CY 24 CMP #824 auf max. Spur +1 der 1. Seite prüfen 
A9Y1I6 90 F4 BCC $AYOC ist Spur auf Seite 2 ? 

A918 20 Al A4  JSR $AAAI BAM-Zeiger setzen 

A9YIB AC C9 Fi JMP $FiCY9 optimalen freien Sektor holen 

[F1D1] 

freien Sektor suchen 

AYIE AD OF 18 LDA $180F Steuerregister holen 

A921 29 20 AND #%20 und Betriebsmodus testen 

A923, DO 06 BNE $A92B ist Floppy im 1541 Modus ? 

A925 20 11 FO  JSR $F011 ja, BAM-Zeiger setzen 

A928, 4C E2 Fi JUMP $FIE2 freien Sektor suchen 

A92B AS 80 LDA $80 Nummer der aktuellen Spur 

A92D CY 24 CMP #$24 auf max. Spur +1 der 1. Seite prüfen 
AY2F 90 F4 BCC $A925 ist Spur auf Seite 2 ? 

A931 20 Al A4  JSR $A4AI Zeiger auf BAM-Bit setzen 

A934 4C EL Fi JMP $FIE4 freien Sektor suchen 

[EF28] 

Zahl der freien Blocks in BAM prüfen 

A937 AD OF 18 LDA $180F Steuerregister holen 


AY3A 29 20 AND #820 und Betriebsmodus testen 
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AY3SC| DO 03 BNE $A941 ist Floppy im 1541 Modus ? 

AYZE.- 4C 20 F2 JMP $F220 ja, Blockangaben prüfen 

A941 AD AC 02 LDA $O2AC Nummer der größten Spur holen und 
A9LL CY 25 CMP #825 mit 37 vergleichen 

A9YL6 90 F6 BCC $AY3E nur eine Diskseite verwendet ? 

AY4B AS 80 LDA $80 nein, Nummer der aktuellen Spur holen 
A9LA C9Y9 24 CMP #$24 und mit 36 vergleichen 

AYLC 90 FO BCC $A93E ist Spur auf Seite 2 ? 

AYLHE 4C 45 A5  JMP $A545 ja, Blockangaben überprüfen 

[D097] 

Zahl der freien Blocks der Diskette berechnen 

A95I 9D FA O2 STA $02FA,X Low-Byte der freien Blocks speichern 
A954 AD OF 18 LDA $180F Steuerregister holen 

A957 29 20 AND #820 und Betriebsmodus testen 

A959 FO 23 BEQ $A9TE ist Floppy im 1571 Modus ? 

A95SB AD AC 02 LDA $O2AC ja, maximale Spurnummer feststellen 
AYSE C9 25 CMP #$25 und mit max Spur +2 verleichen (37) 
AY6O 90 IC BCC $A9YTE ist Spur auf Seite 2 ? 

A962 20 8B A4  JSR $AABB aktuellen BAM-Zeiger retten 

A965 20 34 A5 JSR $A534 BAM-Zeiger auf Spureintrag setzen 
A968 AD 22 LDY #822 Zahl der Spuren auf einer Seite -1 
AY6A, AD FA 02 LDA $02FA Low-Byte der freien Blocks holen 
a9so 18 CLC Ä und Byte das freie Blocks der Spuur 
AY6E 71 6D ADC ($6D),Y angibt einrechnen 

A9Y7TO 8D FA 02 STA $02FA neue Blockzahl merken 

A973 90 03 BCC $A978 ist ein Übertrag entstanden ? 

AY’S_ EE FC 02 INC $O2FC ja, High-Byte der 'Blocks free! setzen 
1978] 88 DEY nächste Spur anwählen 

A979 10 F2 BPL $AYSD alle Spuren berücksichtigt ? 

AYTB_ 4C 96 Ak JUMP $ALI6 ja, BAM-Zeiger auf alten Wert setzen 
AYTE 60 RTS zurück zur aufrufenden Routine 
[DCD6] 

Patch (=Korrektur) für Zahl der freien Blocks und Zeiger löschen 

AY’F 95 B5 STA $B5,X Zahl der belegten Blöcke einer Datei 
A981 95 BB STA $BB,X (Low- und Highbyte) löschen 

A983 AI 00 LDA #$00 Zahl der noch zu übertragenden 

A985 9D 44 02 STA $0244,X Datenbytes löschen 


AYBB 60 RTS zurück zur aufrufenden Routine 
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[84E4] 
Diskette im 1571 Format formatieren 
A989 20 OD A&  JSR $AALOD Diskette formatieren 
A9SC AO 00 LDY #$00 Flag für "Fehler beachten! 
AYBE 8C 98 02 STY $0298 setzen 
A999 60 RTS zurück zur aufrufenden Routine 
A992 FF ... unbenutzter 
AY9C ... FF | ROM-Bereich 


[C183] Patch für 1541 Routine (Fehler bei FF,X behoben) 


A9Y9YD AY 00 LDA #800 Laufwerksstatus 
A9YF 9D FF 00  STA $OOFF,X für 'Laufwerk bereit! setzen 
AYA2 4C B7 C1 JMP $CiB7 zurück zur 1541 Routine 


[C661] Patch für 1541 Routine (Fehler bei FF,X behoben) 


AYA5 98 TYA Rückmeldung holen 

AYA6 9D FF 00 STA $OOFF,X und in Laufwerksstatus übertragen 
AYA9 AC 64 C6 JUMP $C664 zurück zur 1541 Routine 
[EA6B] 

seriellen Bus nach ATN-Kommando bearbeiten 

AYAC AD OF 18 LDA $180F Steuerregister holen 

AYAF 29 20 AND #%20 und auf Betriebsmodus testen 
A9B1 FO 03 BEQ $A9BS ist Floppy im 1571 Modus ? 
A9B3. 4AC 5A 81 JMP $815A ja, 1571 Bus bediehnen 

A9B6“ 4C D7 E8ß JUMP $E8D7 1541 Bus bearbeiten 

[E6SOA] 

Fehlermeldung ausgeben und Klartextmeldung bereitsstellen 

A9YBY 48 PHA Fehlernummer retten 

A9IBA 86. F9 STX $F9 Nummer des Puffers merken 
A9BC AD OF 18 LDA $180F Steuerregister holen 

A9BF 29 20 AND #%20 und auf Betriebsmodus testen 
A9C1I FO OF BEQ $A9D2 ist Floppy im 1571 Modus ? 
A9YC3 24 37 BIT $37 ja, Busstatusbyte auf 1571 Modus prüfen 
A9C5S 10 OB BPL $A9D2 Flag gesetzt ? 

AYC7T AS 37 LDA $37 ja, Flag für 

A9C9 29 7F AND #&7F 1571 Modus im Busstatusbyte 
AOCB 85 37 STA $37 Löschen 


A9CD 68 PLA Fehlernummer wieder holen 
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A9CE 
A9CF 


A9D2  4C OD E6 


AA 
4c 99 91 


TAX 
JMP $9199 


JMP $ES6OD 


und für Ausgabe vorbereiten 
Nummer auf 1571 Bus und Meldung erzeugen 
Klartextmeldung bereitstellen 


[CICE] 


Fehlermeldung im 


A9D5 
A9D6 
A9D9 
A9DB 
A9DD 
_ A9DF 
A9E1 
_A9EB 
A9ES 
A9ET 
A9EB 
A9EA 
A9ED 
A9EF 
A9F1 
A9FA 
A9FS 


48 

AD OF 18 
29 20 

FO 17 

24 37 

10 13 

A5 37 
29 TF 

85 37 
78 

A2 02 

20 28 92 
A9 00 

85 83 

20 CO DA 
68 

4C 45 E6 


Fehlerpuffer erzeugen 


PHA 

LDA $180F 
AND #$20 
BEQ $AY9F4 
BIT $37 
BPL $AYF4 
LDA $37 
AND #$7F 
STA $37 
SEI 

LDX #802 
JSR $9228 
LDA #800 
STA $83 
JSR $DACO 
PLA 

JMP $E645 


Nummer des Fehlers retten 
Steuerregister holen 

und auf Betriebsmodus testen 

ist Floppy im 1571 Modus ? 

ja, Busstatusbyte auf 1571 Modus prüfen 
Flag gesetzt ? 

ja, Flag für 

1571 Modus im Busstatusbyte 


Löschen 


Bus- und Kontrolleraufruf abbschalten 
Fehlernummer für 'File Not Found! 

auf 1571 Bus ausgeben 

Sekundäradresse für Load 

setzen 

Datei schließen 

Fehlernummer wieder holen 
Fehlermeldung erzeugen 


[F263] 
A9FB 


Patch für 1541 Routine (neu: Status löschen) 


A9 00 
85 20 
AD OC IC 
4C 66 F2 


LDA #$00 
STA $20 
LDA $ICOC 
JMP $F266 


Laufwerkstatus für Laufwerk 0 
Löschen 

Peripheres Steuerregister holen 
zurück zur 1541 Routine 


[C2BA/C2C2] 


neuen 
AAO2 
AA0S5 
AAU7 
AAO9 
AAOC 
AAOE 
Anio! 


UserO-Befehl beachten 


AD 00 02 
c9 55 

DO 07 

AD 01 02 
c9 30 

FO 04 

B9 00 02 
2C 

A9 00 


LDA $0200 
CMP #855 
BNE $AA10 
LDA $0201 
CMP #830 
BEQ $AA14 


LDA $0200,Y 


„byte $2C 
LDA #800 


1. Zeichen aus Befehlsstring holen 

und mit 'U! (User-Befehl) vergleichen 
identisch ? 

Ja, 2. Zeichen aus Befehlsstring holen 
und auf '0' prüfen 

ist Befehl 'U0'! ? 

nein, Zeichen aus Befehlsstring holen 
nächste 2 Bytes überspringen (Bitbefehl) 
Leerparameter bei UserO zurückgeben 
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AA16 60 RTS 


[C66B] Patch für 1541 Routine (Fehler bei. FF,X behoben) 


zurück zur aufrufenden Routine 


AA17 A6 TF LDX $7F Nummer des aktuellen Laufwerks 

AA19 BD FF 00 LDA $OOFF,X dazugehörigen Laufwerksstatus holen 
AAIC 60 RTS zurück zur aufrufenden Routine 
[D071] Patch für 1541 Routine (Fehler bei FF,X behoben) 


AA1D 95 IC STA $1C,X Flag für Diskette initialisieren setzen 
AAIF 9D FF 00 STA $OOFF,X Laufwerksstatus festlegen 
AA22 4C 75 DO JUMP $0075 zurück zur 1541 Routine 


[F017] Patch für 1541 Routine (Fehler bei FF,X behoben) 


AA25 A6 TF LDX $7F Nummer des aktuellen Laufwerks 
AA27. BD FF 00 LDA $O00OFF,X dazugehörigen Laufwerksstatus holen 
ARZAl 4C 1B FO  JMP $FO1B zurück zur 1541 Routine 
[CB81] 

: User-Befehle (UA bis UK) ausführen 
AA2D AS 75 LDA $75 Low-Byte der User-Routine holen 
AAZF C9 67 CMP #867 und auf IRQ prüfen 
AA31 DO 09 BNE $AA3C identisch ? 
AA33 AS 76 LDA $76 Ja, High-Byte holen und 
AA35 C9Y FE CMP #$FE mit Adresse für IRQ vergleichen 
AA37 DO 03 BNE $AA3C identisch ? 
AA39 00 BRK Ja, Jobschleife aufrufen 
AAZ3A EA NOP Rücksprungadresse ausgleichen 
AA3B_ 60 RTS zurück zur aufrufenden Routine 
AASC” 6C 75 00 JUMP ($0075) User-Befehl ausführen 
AA3F FF unbenutzter 
BEFF ... FF ROM-Bereich 


[Tabelle wird im DOS nicht verwendet] 
Tabelle der wichtigsten DOS-Routinen 


BFOO 4C 88 9D UJMP $9D88 1541 IRQ Routine 
BF0O3_ 4C DE 9D JMP $9DDE 1571 IRQ Routine 
BF0O6 4C BO F2_ JMP $F2BO 1541 Jobschleife 
BFO9 AC BA 92 JMP $92BA 1571 Jobschleife 
BFOC 4C 93 F3_ _JMP $F393 Pufferzeiger für Jobschleife setzen 
BFOF 4C DI 93 JMP $93D1 Pufferzeiger für Jobschleife setzen 
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BF12 4C 69 F9__JMP $F969 Job abschließen; Rückmeldung übergeben 
BF15 4C B5 99 MP $99B5 Job abschließen; Rückmeldung übergeben 
BF18 4C 00 FE JMP $FEOO Kopf auf Lesen umschalten 

BF1B 4C 34 F9 JUMP $F934 Blockheader in GCR-Werte umrechnen 

BFIE 4C 56 F5  JMP $F556 auf Sync-Markierung warten (1541) 

BF21 4C 54 97 JMP $9754 auf Sync-Markierung warten (1571) 

BF24 4C EO F8 UJMP $F8EO Zusatzpuffer von GCR nach Binär wandeln 
BF27 4C 65 99 JMP $9965 Zusatzpuffer von GCR nach Binär wandeln 
BF2A 4C E9 F5 JUMP $F5EY Prüfsumme des Sektors berechnen 

BF2D 4AC E6 F7_JMP $F7E6 5 GCR-Bytes in 4 Binärbyte umwandeln 
BF30 4C D9 98 MP $98D9 5 GCR-Bytes in 4 Binärbyte umwandeln 
BF33 4C 83 A4 JUMP $A4B3 ca. 80 Taktzyklen warten 

BF36 4C F3 FE JUMP $FEF3 Verzögerung für seriellen 1541-Bus 

BF39 4C TE A4  JMP SAALTE ca. 45 Taktzyklen warten 

BF3C 4C 05 FO  JMP $F005 Puffer für BAM löschen 

BF3F 4C DI FO  JMP $FOD1 Spurnummer für BAM holen 

BF4A2 40 46 CI JMP $C146 Befehlsstring ausführen 

BF4S5 4C 68 02 JMP $C268 Befehlsstring auf Parameter untersuchen 
BF48 4C B3 C2 JUMP $C2B3 Zeiger für Befehlstringanalyse setzen 
BF4B 4C DC C2 JMP $C2DC alle Dateizeiger löschen 

BF4E 4C E6 86 JMP $86E6 Routine mit Nr. in Akku ausführen 

BF51 4C 64 87 JMP $8764 Laufwerksmotor einschalten 

BF54 4C 70 87  JMP $8770 Laufwerksmotor ausschalten 

BF57 4C 8E 80 JMP $808E [Fehler siehe 7.1.5] 

BFSA 4C IE CF JMP $CFiE Puffer suchen und setzen 

BF5D 4C BA D7’ JUMP $D7B4A Open Befehl vom Bus ausführen 

BF60 4C CO DA JMP $DACO Kanal und Datei schließen 

BF63 4C OA E6 JMP $E6OA Fehlermeldung der Jobschleife ausgeben 
BF66 4C 80 90 JMP $9080 Datei einlesen (PRG/SEQ/USR) 

BF69 4C 4E 92 JMP $9Y24E Prüfsumme des ROMs testen 

BF6C 4C 59 F2_ JUMP $F259 1541-Diskkontroller initialisieren 

BF6F 4C 9C F9 JUMP $FYYC 1541-Jobschleife abschließen 

BF72 4C CA 99 JUMP $99CA Steppersteuerrung 

BF75 4C 95 FE  JMP $FEY5 [Fehler siehe 7.1.5] 

BF78 FF... ‘  unbenutzter 


COFF ... FF ROM-Bereich 
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[C38C/C439/CA6A/CAYA/CEOB/CFA2/D39IE/D7EI] 


vgl. 877C/C118 


LED am aktuellen Laufwerk einschalten 
(Routine aus alten Doppellaufwerken entnommen) 


c100 
c101 
c103 
C106 
c107 
C109 
C10B 
c10C 
CI0E 
c110 
c111 


1 


78 

A9 F7 
2D 00 IC 
48 

AS 7F 
FO 05 
68 

09 00 
DO 03 
68 
09 08 


8D 00 Ic 


58 


SEI 

LDA #$F7 
AND $1C00 
PHA 

LDA $7F 
BEQ $C110 
PLA 

ORA #800 
BNE $C113 
PLA 

ORA #%08 
STA $1C00 
CLI 


Diskcontroller abschalten 

Maske für LED-Bit (Bit3) 

erstellen, wobei LED-Bit gelöscht wird 
Maske merken 

Laufwerknummer (immer 0) 

daher immer Sprung nach $C110 
unbenutzt, da die Station keine 

zwei Laufwerke hat 

bei Laufwerk 1, immer Sprung nach $C113 
Maske wieder holen 

LED-Bit setzen (Bit3=1) 

LED an 

Diskcontroller wieder einschalten 
Zurück zur aufrufenden Routine 
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[Routine wird im DOS nicht verwendet] 
LED am 1571-Laufwerk einschalten 


vgl. 877C/C100 


Diskcontroller abschalten 

LED-Bit (Bit3) setzen (Bit3=1) 
andere Bits des Registers übernehmen 
LED an 

Diskcontroller wieder einschalten 
zurück zur aufrufenden Routine 


Löschen der Fehlerflags 
Fehlernummer loeschen 

Flag für LED-Blinken löschen 
zurück zur aufrufenden Routine 


Diskcontroller ausschalten 
X-Register 

retten 

LED-Blinkzähler auf 80 
setzen 


Cc118 78 SEI 

C119 A9 08 LDA #$08 

C11B OD 00 1C ORA $1C00 

C11E 8D 00 IC STA $1C00 

c121 58 CLI 

C122 60 RTS 

[C1IAA/DA25/E6BC] 

Fehlerflags löschen 

c123 A9 00 LDA #500 

Cc125 8D 6C 02 STA $026C 
. 6128 8D 6D 02 STA $026D 

C12B 60 RTS 

[E650] 

LED-Blinken bei Fehler einschalten 

ci2C 78 SEI 

C12D 8A TXA 

C12E 48 PHA 

ci2F A9 50 LDA #$50 

C131 8D 6C 02 STA $026C 


00 
CA 
6D 
00 
00 


FE 
02 
1C 
1C 


LDX #800 


LDA $FECA,X 


STA $026D 
ORA $1C00 
STA $1C00 
PLA 
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Laufwerk 0 anwählen 

LED-Maske für angewähltes Laufwerk 
merken 

LED am Laufwerk 

einschalten 

X-Register 

zurücksetzten 

Diskcontroller einschalten 

zurück zur aufrufenden Routine 


[A61C/BF42] 
Befehlsstrings 


146 A9 
C148 8&D 
C14B AD 
CI4E 85 
c150 20 
C153 AS 
c155 10 
c157 29 
c159 9 
C15B FO 
C1SD| 4C 
c160” 20 
163 Bi 
C165 & 
C168_ A2 
c16al u 
C16D CD 
c170 FO 
172 CA 
c173 10 
c175 9 
C177_ 4C 
cızal 8E 
c17D EO 
c17F 90 
c181, 20 
C184° AE 


00 
F9 
8E 
7F 
BC 
84 
09 
OF 
OF 
03 
B4 
B3 
A3 
75 
OB 
89 
75 
08 


F5 
31 
c8 
2A 
09 
03 
EE 
2A 


D7 
Cc2 


C1 
02 


c1 
02 


c187 BD 95 FE 


C18A 85 


6F 


LDA #$00 
STA $02F9 
LDA $028E 
STA $7F 
JSR $E6BC 
LDA $84 
BPL $C160 
AND #%0F 
CMP #8$0F 
BEQ $C160 
JMP $D7B4 
JSR $C2B3 


LDA ($A3),Y 


STA $0275 
LDX #$0B 


LDA $FE89,X 


CMP $0275 
BEQ $C17A 
DEX 

BPL $CI6A 
LDA #$31 
JMP $CIC8 
STX $022A 
CPX #509 
BCC $C184 
JSR $CIEE 
LDX $022A 


LDA $FE95,X 


STA $6F 


vom Rechner ausführen 


Flag für 'BAM auf Diskette schreiben! 
setzen 

letztes benutztes Laufwerk 

als aktuelles Laufwerk übernehmen 
IOK'-Meldung erzeugen 

letzte IEC Sekundäradresse holen 

war das ein Close Kommando ? 

Nummer des angewählten Kanals holen 
und auf Kommandokanal prüfen 

ist Kommandokanal angeesprochen ? 
nein, 

Parameter zur Befehlsbearbeitung setzen 
erstes Zeichen aus Eingabepuffer 

holen und merken 

Zahl der Floppy-Befehle | 

Zeichen aus 1541-Kommandotabelle holen 
und mit Befehlszeichen vergleichen 

ist das der gewünschte Befehl ? 

nein, nächstes Kommandozeichen anwählen 
mit allen Kommandos verglichen ? 

ja, Fehlermeldung 

13] Syntax Error! ausgeben 

Nummer des Befehls merken 

mit Nummer für !Rename' vergleichen 
ist Befehl 'R'!, 'S' oder 'N'! ? 

ja, Syntax prüfen 

Nummer des Kommandos zurückholen 
Low-Byte des Befehls aus Tabelle holen 


und in Zeiger setzen 
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C18C BD AI FE LDA $FEA1,X High-Byte der Startadresse 
c18F 85 70 STA $70 übertragen 
C191 6C 6F 00 JMP ($O006F) Befehl ausführen 


[YIYS/CIYE/CIAL/CAC9/CBöF/CCI8B/CCFB/CD16/CD5SC/CD70/CD94/CDAO/CDB7/CDCF] 
[DOOB/D7FO/DY9YD/DAE6/DAFC/E272/EDBO/EEB4] 

Beenden eines Rechnerbefehls, erzeugen der Fehlermeldung 

C194 A9 O0 LDA #00 Flag für 'BAM auf Diskette schreiben! 
C196 8D F9 02 STA $02F9 Löschen 


[DAO6] Befehlsende; aber BAM nicht auf Diskette schreiben 


C199 AD 6C 02 LDA $026C Fehlerflag holen 

C19C DO 2A BNE $C1C8 ist ein Fehler aufgetreten ? 
CI9E AD 00 LDY #$00 nein, OK-Meldung bereitstellen 
C1AO 98 TYA Fehlernummer löschen 


[C87A] Befehlsende; Fehler ignorieren 


C1A1 84 80 STY $80 Spur und 
C1A3 84 81 STY $81 Sektor auf Null setzen 
-C1A5 84 A3 STY $A3 Zeiger auf Eingabepuffer zurücksetzen 
C1A7 20 C7 E6 JSR $E6C7 IOK'!-Meldung erzeugen 
C1AA 20 23 Ci JSR $C123 Fehlerflags löschen 


[DAEY/DAFFJ] Befehlsende; keine Rückmeldung bereitstellen 


C1AD AS 7F LDA $7F aktuelles Laufwerk (immer OD) 
CiAF 8D 8E 02 STA $028E als letzte Drivenummer merken 
C1iB2 AA TAX für aktuelles Laufwerk 
C1B3 4C 9D A9 JUMP $AY9D Flag für 'Laufwerk aktiv! löschen 
C1B6 EA NOP [durch Modifikation des 1541 ROM] 
C1B7 20 BD C1 JSR $C1BD Eingabepuffer löschen ($0200-$0228) 
C1BA 4C DA D4 JUMP $D4DA interne Lese/Schreibkanäle schließen 
[C187/E648] 
Eingabepuffer für Befehle vom Rechner löschen 

 CiBD AO 28 LDY #828 41 Zeichenpositionen 
CiBF, A9 00 LDA #800 mit Null überschreiben 
C1iC1 99 00 02 STA $0200,Y (Bereich $0200-$0228) 
C1IC4 88 DEY nächstes Zeichen 
c1C5 10 FA BPL $C1C1 Schon alle Zeichen gelöscht ? 


C1C7 60 RTS ja, zurück zur aufrüfenden Routine 
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[8S0E/85AC/9023/91C7/C177/C19C/CIF5/C265/C2D9/C41D/CBC3/C925/C984/CAE3] 
[CAF1T/CBAD/CBA2/CC28/CC2D/CD33/CDE2/CF78B/CFFA/D214/D38E/D839/DBED/DEF2] 
[D947/D959/D967/DICO/EOD3/E16B/E216/E225/E299/E365/E4AB/E7C2/EE16/FOEF] 


[F15C] 

Fehlermeldung ausgeben, Nummer im Akku erforderlich 

C1C8 AO 00 LDY #$00 Zeiger löschen 

CICA 84 80 STY $80 Spurnummer und 

CICC 84 81 STY $81 Sektornummer löschen 

CICE 46 D5 A9 JMP $A9D5 Meldung im Puffer erstellen 
[DO05/D7FF/EDB4] 

Sucht !:! und Laufwerksnummer im Befehlsstring 

(Y-Register muß auf aktuelle Position im Puffer zeigen) 

Cc1D1 A2 00 LDX #800 Zeiger auf Position der Laufwerks- 
C1D3 8E 7A 02 STX $027A nummer im Eingabepuffer löschen 

C1D6 A9Y 3A LDA #83A Doppelpunkt als zu suchendes Zeichen 
C108 20 68 C2 JSR $C268 sucht Zeichen im Eingabepuffer 

C1DB FO 05 BEQ $C1E2 wurde Doppelpunkt gefunden ? 

C1iDD 88 DEY ja, Y-Register zeigt auf Position +1 des 
CIDE 88 DEY Zeichens; 

CiDF, 8C 7A 02 STY $027A Position der Laufwerksnummer (vor '!:') 
C1IE2° 4C 68 C3 JMP $C368 Laufwerk setzen und LED anschalten 
[C1IEE/C9YO4/D82B/DA86] 

Sucht Doppelpunkt im Befehlsstring 

C1E5 AO 00 LDY #$00 Startposition der Suche auf Anfang 
C1E7 A2 00 LDX #$00 Anzahl der gefundenen Filenamen 

C1E9_ A9 3A LDA #83A Doppelpunkt als zu suchendes Zeichen 
CiEB 4C 68 C2 JUMP $C268 Eingabepuffer durchsuchen 

[C181] 

Prüft bei Befehlen mit 2 Dateinennungen auf Syntax 

CIEE 20 ES CI UJSR $CIES Sucht Doppelpunkt im Eingabepuffer 
CiF1, DO 05 BNE $C1F8 wurde Doppelpunkt gefunden ? 

CIF3 AY 34 LDA #$34 nein, Fehlermeldung 

CIF5_ 4C C8 Ci JUMP $C1C8 134 Syntax Error! ausgeben 

C1F8”7 88 DEY Y-Register zeigt auf Position +1 
C1F9 88 DEY Zeiger auf Zeichen vor !:! setzen 
CiAFA 8C 7A 02 STY $027A Position der Laufwerksnummer merken 
CIFD 8A TXA Zahl der bereits gefundenen Dateinamen 
CIFE DO F3 BNE $C1F3 wurden mehrere Namen gefunden ? 


Das 


1 


roße Flo 


C200° A9 3D 


c202 
C205 
C206 
c208 
C20A 
C20C 
C2OF 
c210 
c213 
c216 
c219 
C21B 
c21D 
C220 
c223 
C225 
c228 
c229 
C22B 
C22E 
C231 
C234 
C236 
c239 
C23A 
C23D 
C23E 
C241 
C243 
C245 
C248 
C24A 
C24C 
C24E 
C251 
C254 
c257 
C25A 
C25D 
c25F 


1 


1 


l 


l 


1 


20 68 C2 
8A 

FO 02 

A9 40 

09 21 

8D 8B 02 
EB 

8E 77 02 
8E 78 02 
AD 8A 02 
FO OD 

A9 80 

0D 8B 02 
8D 8B 02 
A9 00 

8&D 8A 02 
98 

FO 29 

9D 7A 02 
AD 77 02 
80 79 02 
A9 8D 

20 68 C2 


8E 78 02 


09 04 

09 03 

4D 8B 02 
8D 8B 02 
AD 8B 02 
AE 2A 02 
3D A5 FE 
DO 01 

60 
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LDA #%3D nein, '!=! - Zeichen 
JSR $C268 Zeile nach '='! durchsuchen 
TXA Zahl der dabei gefundenen Dateinamen 
BEQ $C20A ist nur eine Datei gefunden worden ? 
LDA #$40 nein, Bit 6 als Flag für weitere Dateien 
ORA #$21 Bit O0 und 5 für '1. Dateinamen gefunden! 
STA $028B Bitflags merken 
INX zeigt auf Ende des 1.Dateinamens 
STX $0277 Anzahl der Dateien, die für die erste 
STX $0278 Dateibeschreibung gefunden wurden 
LDA $028A Flag für Joker ('*') 
BEQ $C228 Joker im Dateinamen vorhanden ? 
LDA #80 ja, Flag im Syntaxbyte 
ORA $028B setzen und 
STA $028B Flag wieder merken 
LDA #500 ‚Jokerflag der Suchroutine 
STA $028A Löschen 
TYA Position des '=! - Zeichens im Befehl 
BEQ $C254 Ende der Befehlszeile gefunden ? 
STA $027A,X nein, Position des Dateinamens merken 
LDA $0277 Zahl der Dateien für erste Dateinennung 
STA $0279 als Zahl für zweite Nennung setzen 
LDA #%8D Endekennzeichen des Befehlsstrings und 
JSR $C268 bis zum Ende weiter untersuchen 
INX Zahl der gefundenen Kommas und somit 
STX $0278 Zahl der weiteren Dateinamen merken 
DEX ursprünglichen Wert herstellen 
LDA $028A Flag für Joker ('!*ı) 
BEQ $C245 Joker vorhanden ? 
LDA #%08 ja, Bit 3 als Flag setzen 
CPX $0277 Länge mit altem Wert vergleichen 
BEQ $C24C weitere Dateinamen gefunden ? 
ORA #804 ja, Flag für Dateinamen nach '!=! Zeichen 
ORA #%03 Flag für '='! Zeichen vorhanden 
EOR $028B bisherige Flags einblenden und 
STA $028B als neuen Syntaxstatus merken 
LDA $028B Syntaxflag für Befehl 
LDX $022A Nummer des Befehls 
AND $FEA5,X vorhandene mit erlaubten Syntaxelementen 
BNE $C260 vergleichen; alle erlaubt ? 
RTS ja, zurück zur aufrufenden Routine 


348 


c260l 8D 6C 


C263 A9Y 30 
C265 4C C8 


02 


c1 


STA $026C 
LDA #$30 
JMP $C1C8 
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Art der fehlerhaften Syntax merken 
Fehlermeldung 
ı30 Syntax Error! ausgeben 


[C1D8/C1EB/C202/C236/CC21/CC75/D845] 

Untersucht die Eingabezeile auf Zeichen aus Akku 

(Y-Register muss die aktuelle Position im Eingabepuffer enthalten; 
(X-Register enthält danach die Zahl der gefundenen Parameter) 


C268_ 8D 75 
C26B CC 74 
C26E BO 2E 
c270 B1 A3 
c272 C8 

c273 CD 75 
C276 FO 28 
c278 C9 2A 
C27A FO 04 
c27C C9 3F 
C27E, DO 03 
. C280_ EE 8A 
c283° C9 2C 
C285 DO E4 
c287 98 

c288 9D 7B 
C28B AD 8A 
C28E 29 7F 
c290 FO 07 
Cc292 AY 80 
C294 95 E7 
C296 8D BA 
c2991 E8 

C29A EO 04 
Cc29C_ 90 CD 
C29E AO 00 
C2AD AD 74 
C2A3 9D 7B 
C2A6 AD BA 
C2A9 29 7F 
C2AB FO 04 
C2AD A9 80 
C2AF 95 E7 


02 
02 


02 


02 


02. 


02 


02 
02 
02 


STA $0275 
CPY $0274 
BCS $C29E 


LDA ($A3),Y 


INY 
CMP $0275 
BEQ $C2AO 
CMP #82A 
BEQ $C280 
CMP #$3F 
BNE $C283 
INC $028A 
CMP #$2C 
BNE $C26B 
TYA 


STA $0278,X 


LDA $028A 
AND #$7F 

BEQ $C299 
LDA #$80 

STA $E7,X 
STA $028A 
INX 

CPX #804 

BCC $C26B 
LDY #800 

LDA $0274 


STA $0278,X 


LDA $028A 
AND #8$7F 
BEQ $C2B1 
LDA #$80 
STA $E7,X 


Zeichen nach dem gesucht werden soll 
Länge des Befehlsstrings prüfen 

Ende erreicht ? 

nein, Zeichen aus Eingabepuffer holen 
Zeiger auf nächstes Zeichen setzen 
Zeichen, das gesucht wird 

identisch mit Zeichen aus Eingabezeile ? 
nein, mit Joker ('*'!) vergleichen 
identisch ? 

nein, mit Joker ('?'!) vergleichen 
identisch ? 

ja, Jokerflag setzen 

aktuelles Zeichen mit ',' vergleichen 
identisch ? 

ja, Position des Kommas +1 als Start- 
position des nächsten Parameters merken 
Jokerflag zurückholen 

Flag für Joker löschen 

ist Joker aufgetreten ? 

ja, Bit 7 als Flag setzen und 

Dateiname als Name mit Joker markieren 
Bit 7 des Jokerflag setzen 

Zahl der gefundenen, durch Komma 
getrennten Parameter erhöhen; max. Zahl 
von 5 verarbeitbaren Dateien erreicht ? 
ja, Y-Wert =0 signalisiert Ende 

Länge der Befehlszeile als Startposition 
des letzten Parameters merken 
Jokerflag des letzten Dateinamens holen 
Bit 7 ausblenden 

Joker im Parameter vorhanden ? 

ja, Dateiname in Dateitabelle 

als Name mit Joker kennzeichen 


Das 


c2B1l 98 


C2B2 60 


roße Flo 


buch 1571/70 
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Position in Eingabezeile (bei Ende =0) 
zurück zur aufrufenden Routine 


[BF48/C160/D789/E207/C2DC:BF4B,DA86] 
Setzt alle Flags und Tabellen um Befehlsstring zu untersuchen 


C2B3 A4 
c2B5 FO 
C2B7 88 
c2B8 FO 
C2BA 20 
C2BD C9 
C2BF FO 
c2c1 88 
c2c2 B9 
c2c5 c9 
c2c7 FO 
c2c9. cC8 
C2CA_ C8 
C2CB“ 8C 
C2CE CO 
C2D0 AO 
C2D2 90 
C2D4 8C 
c2D7 A9 
C2D9_ 4C 
c20c> 
 C2DE 98 
C2DF 85 
C2E1 8D 
C2E4 8D 
C2E7 8D 
C2EA 85 
C2EC 8D 
C2EF 8D 
c2F2 8D 
c2F5 8D 
C2F8 8D 
C2FB, A2 
carol 9D 


A3 
14 


10 
02 


OD 
DA 


96 


79 


C300 95 D7 
c302 95 DC 


02 


02 


LDY $A3 
BEQ $C2CB 
DEY 

BEQ $C2CA 
JSR $AAOD2 
CMP #$0D 
BEQ $C2CB 
DEY 


LDA $0200,Y 


CMP #%0D 
BEQ $C2CB 
INY 

INY 

STY $0274 
CPY #&82A 
LDY #$FF 
BCC $C2DC 
STY $022A 
LDA #$32 
JMP $C1C8 
LDY #$00 
TYA 

STA $A3 
STA $0258 
STA $024A 
STA $0296 
STA $D3 
STA $0279 
STA $0277 
STA $0278 
STA $028A 
STA $026C 
LDX #805 


STA $0279,X 


STA $D7,X 
STA $DC,X 


Low Byte des Eingabepuffer-Zeigers 
Adresse $A3/$A4 =$0200 ? 

nein, Pufferzeiger korregieren 

ist $A3 =1 ? 

nein, auf User Befehl prüfen 

Zeichen aus Befehl auf Return prüfen 
Zeilenende erreicht ? 

nein, Zeiger zuf Zeichen davor setzen 
Zeichen aus Puffer holen und mit Return 
(= Zeilenende) vergleichen 

identisch ? 

nein, Pufferzeiger auf Ausgangswert 
zurücksetzen | 
Wert des Zeigers als Ende des Befehls- 
strings merken; max. Länge erreicht ? 
Wert für Befehlsnummer auf 'kein Befehl! 
Befehlsstring kleiner als Puffer (42) ? 
nein, Befehlsnummer löschen 

Zeile zu lang 

Fehler '32 Syntax Error! ausgeben 
Tabellen, Zeiger und Flags löschen 

und zurücksetzen 

Zeiger auf Eingabepuffer auf $0200 
aktuelle Recordlänge 

aktueller Dateityp 

Dateityp aus Befehlsstring 

Zeiger auf ersten Dateinamen 

Zeiger auf Dateinamen 

Zahl der Dateien für 1. Dateinennung 
Zahl der Dateien für 2. Dateinennung 
Flag für Joker im Dateinamen aufgetreten 
Flag für Synatxfehler 

Tabellen zu den fünf Dateinamen löschen 
Endposition des Dateinamen im Puffer 
Diectorysektor der Datei 

Position der Datei in Directorysektor 
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C304 95 E1 STA $E1,X Laufwerksnummer der Datei 

c306 95 E6 STA $E6,X Dateityp und Jokerflags 

c308 9D 7F 02 STA $027F,X aktuelle Spurnummer der Datei 

C30B 9D 84 02 STA $0284,X aktuelle Sektornummer der Datei 

C30E CA DEX Tabellen für nächsten Dateinamen 

c30F DO EC BNE $C2FD bereits alle fünf möglichen Dateinamen ? 
C311 60 RTS zurück zur aufrufenden Routine 


[9YOBB/ASOE/DBAC/EEOD/C320:C826,C90OF ,CA88,DA9Y6] 
Laufwerksnummern der Dateien holen und in Dateitabellen setzen 


c312 AD 78 02 LDA $0278 Zahl der Dateien für die Datei- 
c315 8D 77 02 STA $0277 nennung retten 
c318 A9 01 LDA #$01 Anzahl der zu bearbeitenden 
C31A 8D 78 02 STA $0278 auf eine Dateiangabe 
C31D 8 7 02 STA $0279 setzen 
C320 AC 8E 02 LDY $028E zuletzt aktives Laufwerk 
c323 _ A2 00 LDX #$00 aktuelle Nummer des Dateinamens 
c325> 86 D3 STX $03 Nummer merken 
c327 BD 7A 02 LDA $027A,X Startposition des Dateinamens im Puffer 
C32A 20 3C C3_ JSR $C33C Laufwerksnummer aus Puffer holen 
C32D A6 D3 LDX $D3 Nummer des aktuellen Dateiparameters 
c32F 9D 7A 02 STA $027A,X Position im Befehlstring merken 
c332 98 TYA dazu Position des Laufwerks holen 
C333 95 E2 STA $E2,X Laufwerksnummer für Datei setzen 
c335 Ed INX nächste Datei anwählen 
C336 EC 78 02 CPX %0278 mit Anzahl der zu bearbeitenden Dateien 
Cc339 90 EA BCC $C325 vergleichen; bereits alle fertig ? 
c33B 60 RTS ja, zurück zur aufrufenden Routine 
[C32A] 
Laufwerksnummer aus Befehlsstring holen 
C33C AA TAX Position des Dateinamens im Puffer 
- C33D AO 00 LDY #00 Nummer des Standardlaufwerks 
C33F A9Y 3A LDA #$3A Doppelpunkt '!:' 
C341 DD 01 02 CMP $0201,X Doppelpunkt hinter aktueller Position ? 
C344 FO 0C BEQ $C352 ja, dann Syntax richtig und nach $C352 
C346 DD 00 02 CMP $0200,X mit aktueller Position vergleichen 
C349 DO 01 ‚BNE $C361 steht Zeiger auf Doppelpunkt ? 
C34B. E8 INX ja, dann keine Laufwerksangabe 
C34C_ 98 TYA Nummer des Laufwerks 
C34D ° 29 01 AND #%01 nur 0 oder 1 erlauben 
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c34rl 


Cc350 
C351 
c352 
C355 
C356 
c357 
c359 
C35B 
C35D 
C35F 


[C1E2] 


AB 
8A 
60 
BD 00 02 
E8 


TAY 
TXA 
RTS 


LDA $0200,X 


INX 

INX 

CMP #830 

BEQ $C34D 
CMP #$31 

BEQ $C34D 
BNE $C34C 
TYA 

ORA #80 

AND #%81 


“ BNE $C34F 


und Laufwerk in Y-Register merken 
aktuelle Position im Eingabepuffer 
zurück zur aufrufenden Routine 
Nummer des Laufwerks aus Befehlsstring 
Zeiger in Eingabepuffer hinter 
Laufwerksnennung (!:'!) setzen 
Laufwerk Null ? 

ja, dann Laufwerk setzen 

auf Laufwerk 1 prüfen 

identisch ? 

nein, immer Sprung nach $C34C 
Standard Laufwerksnummer (0) 

Flag für mangelhafte 
Laufwerksnummer setzen 

und an aufrufende Routine übergeben 


Initialisiert Laufwerk und schaltet LED am Laufwerk ein. 


C368 
C36A 
C36D 
c370 
c372 


A9 00 

8D 88 02 
AC 7A 02 
B1 A3 
20 BD C3 
10 11 

c8 

CC 74 02 
BO 06 
AC 74 02 
88 

DO ED 

CE 88 02 
A9 00 
29 01 
85 7F 

4C 00 c1 


LDA #800 
STA $028B 
LDY $027A 


LDA ($A3),Y 


JSR $C3BD 
BPL $C388 
INY 

CPY $0274 
BCS $C383 
LDY $0274 
DEY 

BNE $C370 
DEC $028B 
LDA #800 
AND #$01 
STA $7F 
JMP $C100 


Befehlssyntaxflag 

Löschen 

aktuelle Position im Eingabepuffer 
Zeichen aus Befehlsstring holen 
testet auf gültige Laufwerksnummer 
Nummer richtig ? 

nein, Zeiger auf nächstes Zeichen 
Länge des Befehlsstrings 

Ende erreicht ? | 

nein, Länge des Befehlsstrings 
Zeiger auf letztes Zeichen setzen 
ist nur 1 Befehlsbuchstabe vorhanden ? 
ja, "nicht gefunden! in Syntaxflag 
Nummer des Standardlaufwerks 

als aktuelle Laufwerksnnummer 
setzen 

LED einschalten 


[C40E/C420/C427/C467/C497/C704/C7OB] 


Auf anderes Laufwerk umschalten 


C38F 
391 
393 


AS 7F 
49 01 
29 01 


LDA $7F 
EOR #%01 
AND #%01 


aktuelle Laufwerksnummer 
Bit für Laufwerk umdrehen und 
andere Bits ausblenden 
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c395 85 7F STA $7F als aktuelles Laufwerk speichern 

0397 60 RTS zurück zur aufrufenden Routine 
[C823/DA9Y8] 
Dateityp festellen und setzen 
c398 AO 00 LDY #00 ersten Dateinamen für Tabelle auswählen 
C39A AD 77 02 LDA $0277 Position des 1. Dateinamens 
C39D CD 78 02 CMP $0278 auf Position der Dateitypkennung prüfen 
C3AD FO 16 BEQ $C3B8 identisch ? 
C3A2 CE 78 02 DEC $0278 nein, dann Zeiger auf Dateitypzeichen 
C3A5 AC 78 02 LDY $0278 setzen 
C3A8 B9 7A 02 LDA $027A,Y Zeiger auf Endposition des Dateinamens 
C3AB AB TAY übernehmen und dazugehöriges 
C3AC B1 A3 LDA ($A3),Y Zeichen aus dem Dateinamen holen 
C3AE, AO 04 LDY #804 Anzahl der möglichen Dateitypen 
c3go0l D9 BB FE CMP $FEBB,Y Zeichen in der Tabelle der Dateitypen 
C3B3 FO 03 BEQ $C3B8 vorhanden ? 
C3B5 88 DEY Zeiger auf nächsten Dateityp richten 
C3B6_ DO F8 BNE $C3B0 bereits alle Dateitypen getestet 
3887 98 TYA ja, Nummer des Dateityps 
C3B9 8D 96 02 STA $0296 (=0 wenn nicht vorhanden) merken 
C3BC 60 RTS zurück zur aufrufenden Routine 
[C372/DA68] 
Laufwerksnummer auf Gültigkeit prüfen 
C3BD C9Y 30 CMP #%30 Ist Laufwerksnummer 
C3BF FO 06 BEQ $C3C7 gleich Laufwerk 0 ? 
C3C1 cC9 31 CMP #31 nein, ist Laufwerksnummer dann 
c3cC3 FO 02 BEQ $C3C7 gleich Laufwerk 1 ? 
C3C5_ 09 80 ORA #880 nein, Bit7 als Fehlerflag setzen und 
3C7 29 81 AND #881 restliche Bits (vom Ascii-Wert) löschen 
C3C9 60 RTS zurück zur aufrufenden Routine 


[CAAF/C829/D84F/DAYE] 
In Dateinamen angegebene Laufwerke initialisieren 


C3CA A9 00 LDA #%00 Zwischenspeicher zur Erzeugung 

C3CC 85 6F STA $6F des Index auf Steuerbyte löschen 

C3CE 8D 8D 02 STA $028D Flag für Anzahl der Laufwerke löschen 
C3D1 48 PHA Stack für folgendes Programm präparieren 
C3D2_ AE 78 02 LDX $0278 Anzahl der zur Nennung gehörigen Dateien 


C3D57 68 PLA Zeiger auf Steuerbyte 
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C3D6 05 6F ORA $6F letztes Ergebnis eintragen 
C3D8 48 PHA und merken 
Cc3D9 A9 01 LDA #801 Flag für 'Laufwerksnennung vorhanden! 
C3DB 85 6F STA $6F setzen 
C3DD CA DEX zähler für zu prüfende Dateinamen 
C3DE 30 OF BMI $C3EF bereits Laufwerksnummern aller Dateien ? 
C3E0 B5 E2 LDA $E2,X Laufwerksnummer der Datei holen 
. C3E2 10 04 BPL $C3E8 Laufwerksnennung gesetzt ? 
C3E4 06 6F ASL $6F nein, Bitflags 
C3E6. 06 6F ASL $6F korregieren 
c3e81 4A LSR A Laufwerksnummer testen 
C3E9 90 EA BCC $C3D5 ist Laufwerk 1 angewählt ? 
C3EB 06 6F ASL $6F ja, Zeiger auf Bytes für Laufwerk 1 
C3ED, DO E6 BNE $C3D5 immer Sprung nach $C3D5 
czerl 68 PLA Zeiger auf Steuerbyte 
C3FO AA TAX für Laufwerksinitialisierung setzen 
C3F1 BD 3F CA  LDA $C43F,X Steuerbyte für Zugriff holen 
C3F4 48 PHA und merken 
C3F5 29 03 AND #$03 Zahl der erlaubten Laufwerke 
C3F7 8D 8C 02 STA $028C feststellen und merken 
C3FA 68 PLA Steuerbyte wieder holen 
C3FB DA ASL A Flag für 'nur eine Laufwerksnennung' 
C3FC 10 3E BPL $CA3C ist nur eine Nennung erlaubt ? 
C3FE AS E2 LDA $E2 Ja, Laufwerksnummer der ersten Datei 
C400 29 01 AND #$01 als aktuelles Laufwerk 
C4A02 85 7F STA $7F übernehmen 
C404 AD &C 02 LDA $028C Zahl der erlaubten Laufwerke holen 
C407 FO 2B BEQ $C434 nur ein Laufwerk zugelassen ? 
C409 20 3D C6 JSR $C63D nein, aktuelles Laufwerk initialisieren 
C40C FO 12 BEQ $C420 Laufwerk bereit ? 
C4A0OE 20 8F C3_ JSR $C38F nein, auf anderes Laufwerk umschalten 
C411 A9 00 LDA #$00 Zahl der erlaubten Laufwerke 
C413 8D 8C 02 STA $028C Löschen 
C416 20 3D C6 JSR $C63D anderes Laufwerk initialisieren 
C419 FO 1E BEQ $C439 Laufwerk bereit ? 
c41B! A9 74 LDA #%74 nein, Fehlermeldung 
C4A1D, 20 C8 CI JSR $C1IC8 ı74 Drive Not Ready! ausgeben 
C420° 20 8F C3 UJSR $C38F auf anderes Laufwerk wechseln 
C423 20 3D C6 JSR $C63D Laufwerk initialisieren 
C426 08 PHP und Ergebnis merken 


C4a27 20 8F C3 JSR $C38F auf anderes Laufwerk wechseln und 
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C42A 28 PLP vorheriges Ergebnis wieder holen 
C4A2B FO 0C BEQ $C439 ist vorheriges Laufwerk bereit ? 
C42D A9 00 LDA #%00 nein, Zahl der erlaubten Laufwerke 
CA2F 8D 8C 02 STA $028C Löschen 

C432, FO 05 BEQ $C439 immer Sprung nach $C439 

C434 20 3D C6 JSR $C63D Laufwerk initialisieren 

C437_ DO E2 BNE $C41B ist Laufwerk bereit ? 

C439” 4C 00 C1 JMP $C100 ja, LED am Laufwerk einschalten 
C43C 2A ROL A Steuerbyte korregieren und 

C43D 4C 00 C4 JMP $C400 Laufwerksnummer aus Steuerbyte holen 


[C3F1] Steuerbytes für Art der Laufwerksinitialisierung 


Funktion der einzelnen Bits : 

Bit 0/1 : Zahl der anzusprechenden Laufwerke (0/1/2) 
Bit 6 : 1= Laufwerksnummer aus Steuerbyte übernehmen 
Bit 7_ : 0/1 Laufwerksnummer für Bit6 


C440 00 80 41 01 01 01 01 81 
C448 81 81 81 42 42 42 42 


[Y0C8/C9Y52/CAYY/E7BE] 
Dateieintrag in Directory suchen 


CA4F, 20 CA C3 SR $C3CA ‚ Laufwerk für zu suchende Datei setzen 
C452° A9 00 LDA #500 Zeiger auf ersten Directoryeintrag 
C454 8D 92 02 STA $0292 Löschen 

C457 20 AC C5 JSR $C5AC Zeiger setzen. Eintrag suchen 

C45A, DO 19 BNE $C475 gültiger Eintrag gefunden ? 

c4scl CE 8C 02 DEC $028C nein, Zahl der Laufwerke 

C45F 10 01 BPL $C462 noch ein Laufwerk ? 

C461_ 60 RTS zurück zur aufrufenden Routine 

c4621 A9 01 LDA #801 Flag für '!auf beiden Laufwerken 
C464 80 8D 02 STA $028D suchen! setzen 

C467 20 &8F C3 UJSR $C38F auf anderes Laufwerk wechseln 

CA6A 20 00 C1 UJSR $C100 LED am aktuellen Laufwerk anschalten 
C46D, 4C 52 C4 JMP $C452 Eintrag auf anderem Laufwerk suchen 
c470l 20 17 C6 JSR $C617 nächste gültige Datei suchen 

C473_ FO 10 BEQ $C485 gefunden ? 

C4752 20 D8 C4 SR $C4D8 ja, Directoryeintrag überprüfen 
C478 AD 8F 02 LDA $028F Zeiger für Dateieintrag gefunden 


C47B FO 01 BEQ $CA7E Eintrag richtig ? 


Das große Flo 


CA7D 
CATE 
C481 
C483 
C485 
C488 
CABA 


60 

AD 53 02 
30 ED 

10 FO 

AD 8F 02 
FO D2 

60 
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RTS 

LDA $0253 
BMI $C470 
BPL $C475 
LDA $028F 
BEQ $CA5C 
RTS 
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ja, zurück zur aufrufenden Routine 
Flag für Eintrag gefunden 

Datei gefunden (A <> $FF) ? 

ja, immer Sprung nach $C475 

Flag für Datei gefunden 

letzter Eintrag ? 

nein, zurück zur aufrufenden Routine 


[C86D/C49D:C830,D852,DAAA/CABS:C7A7] 


Dateieintrag im Directory suchen 


C48B 
C48E 
C490 
C492 
C494 
C497 
CAYA 
C49D 
CA9F 
CAA2 
. C4AS 
CAA7 
ChAAZ 
CAAD 
CAAF 
C4B2 
CAB4 
C4B5 
CAB8 
CABA 
C4BD 
CACO 
C4Cc2 
CAC5 
CAc7 
C4Cc9 
CACC 
CACE 
C4DO 
C4D2 
C4D5 


1 


3 


2 


1 


20 04 C6 
FO 1A 

DO 28 

A9 01 

8D 8&D 02 
20 8F C3 
20 00 c1 
A9 00 

8D 92 02 
20 AC C5 
DO 13 

8D 8F 02 
AD 8F 02 
DO 28 

CE 8C 02 
10 DE 

60 

20 17 C6 
FO FO 

20 D8 C4 
AE 53 02 
10 07 

AD 8F 02 
FO EE 

DO OE 

AD 96 02 
FO 09 

B5S E7 

29 07 

CD 96 02 
DO DE 


JSR $C604 
BEQ $CAAA 
BNE $C4BA 


_LDA #801 


STA $028D 
JSR $C38F 
JSR $C100 
LDA #800 
STA $0292 
JSR $C5AC 
BNE $C4BA 
STA $028F 
LDA $028F 
BNE $C4D7 
DEC $028C 
BPL $C492 
RTS 

JSR $C617 
BEQ $C4AA 
JSR $C4D8 
LDX $0253 
BPL $C4C9 
LDA $028F 
BEQ $C4B5 
BNE $C4D7 
LDA $0296 
BEQ $C4D7 
LDA $E7,X 
AND #807 
CMP $0296 
BNE $C4B5 


Directory nach Datei durchsuchen 
Eintrag gefunden ? 

ja, weiter bei $C4BA 

Flag für Zugriff auf beide Laufwerke 
setzen 

auf anderes Laufwerk wechseln 

LED einschalten 

Zeiger auf ersten gültigen 

Eintrag löschen 
Zeiger initialisieren; Eintrag suchen 
Datei gefunden ? 

Position 

merken 


letzter Eintrag 


ja, Zahl der erlaubten Laufwerke 

auf anderes Laufwerk umschalten ? 
nein, zurück zur aufrufenden Routine 
nächsten Eintrag holen 

Eintrag gefunden ? 

ja, Eintrag mit Gesuchtem vergleichen 
Flag holen 

Eintrag identisch ? 

nein, Flag für Datei gefunden holen 
wurde Datei gefunden ? 

nein, immer Sprung nach $C4D7. 
aktuellen Dateityp holen 

ist Eintrag gültig ? 

ja, Zeiger für gesuchten Dateityp holen 
und Kennzeichen für Typ isolieren 

mit gesuchtem Dateityp vergleichen 
identisch ? 
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407° 


60 


[C475/C4BA] 


Directoryeintrag 


C4D8 
CADA 
C4DD 
CADE 
C4E1 
CAE4 
CAE6 


A2 
8E 
E8 
8E 
20 
FO 
60 


FF 
53 02 


8A 02 
89 C5 
06 
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RTS ja, zurück zur aufrufenden Routine 
suchen 

LDX #$FF Flag für "Eintrag gefunden! 

STX $0253 Löschen 

INX (0) 

STX $028A Flag für 'Joker vorhanden! löschen 
JSR $C589 Dateiflag setzen 

BEQ $CAEC wurde Eintrag gefunden ? 

RTS ja, zurück zur aufrufenden Routine 


[CAFS/CAFC/C513/C519/C533] 
nächsten Eintrag suchen 
C4E7 20 94 C5 


CAEA 
CAEC 
C4EE 
CAFO 
CAF1 
CAF3 
CAFS5 
CAF7 
CAFY 
CAFC 
CAFE 
c501 
 Cc502 
C505 
C507 
C50A 
C50D 
C50F 
c511 
C513 
c515 
c517 
c519 
C51B 
C51c 


DO 
A5 
55 
4A 
90 
29 
FO 
A9 
CD 
FO 
BD 
AA 
20 
AO 
sc 
BD 
D1 

FO 
c9 
DO 
B1 

c9 
FO 
EB 
c8 


FA 


C51D EC 76 02 


JSR $C594 nächsten Eintrag suchen 

BNE $C4E6 gefunden ? 

LDA $7F ja, aktuelles Laufwerk holen 

EOR $E2,X und mit Laufwerksnummer der Dateiangabe 
LSR A vergleichen 

BCC $CAFE identisch ? 

AND #840 nein, Flag für Laufwerkstyp holen 

BEQ $CAE7 Laufwerk durch Standardwert gesetzt ? 
LDA #802 ja, Wert für Zugriff auf beide Laufwerke 
CMP $028C mit Zugriffsflag vergleichen 

BEQ $C4E7 auf beiden Laufwerken suchen ? 

LDA $027A,X nein, Position des Dateinamens im 

TAX Befehlsstring holen und merken 

JSR $C6A6 Parameter für Name im Befehl setzen 
LDY #803 Pufferzeiger auf Directoryname setzen 
JMP $C51D Namen mit Befehlsstring vergleichen 
LDA $0200,X Zeichen aus Befehlsstring holen und so 
CMP ($94),Y Name mit Directoryname vergleichen 

BEQ $C51B identisch ? 

CMP #&3F nein, mit '?' Joker vergleichen 

BNE $C4E7 identisch ? 

LDA ($94),Y ja, Zeichen aus Directoryeintrag holen 
CMP #$A0 mit Wert für 'Shift Space! vergleichen 
BEQ $C4E7 schon ganzer Dateiname gelesen ? 

INX nein, Zeiger auf Befehlsstring 

INY Zeiger in Directorypuffer richten 


CPX $0276 Zeiger auf Ende das Namens im Befehl 


Das 


c520 
c522 
C525 
c527 
c529 
c528 
C52D 
C52F 
0531 
c533 
0535 
0538 
c53B 
C53D 
C53F 
0542 
0545 
0547 
C549 
C548B 
C54D 
C54F 
c550 
0551 
0553 
0555 
0556 
(558 
C55A 
C55C 
C55E 
C560 
C562 
0564 
0566 
C568 
C56A 
C56C 
C56E 
c570 
c572 


l 


l 


roße Flo 


BO 09 
BD 00 
C9 2A 
FO 0C 
DO DF 
co 13 
BO 06 
B1 94 
C9 AO 
DO B2 
AE 79 
8E 53 
B5 E7 
29 80 
8D 8A 
AD 94 
95 DD 
A5 81 
95 D8 
AO 00 
B1 94 
c8 

48 

29 40 
85 6F 
68 


02 


02 
02 
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BCS $C52B Ende des Dateinamens erreicht ? 
LDA $0200,X nein, Zeichen aus Dateiname holen 
CMP #$2A mit Zeichen für '*'! Joker vergleichen 
BEQ $C535 identisch ? 
BNE $C50A nein, immer Sprung mach $C50A 
CPY #813 mit 'Return'! vergleichen 
BCS $C535 ist ASCII-Wert kleiner ? 
LDA ($94),Y ja, Zeichen aus Directory holen und 
CMP #$A0O mit Wert für 'Shift Space! vergleichen 
BNE $C4E7 schon ganzer Dateiname gelesen ? 
LDX $0279 ja, Position des Directoryeintrags holen 
STX $0253 und in Zeiger setzen 
LDA $E7,X Dateityp des Eintrags feststellen 
AND #$80 Flag für Joker setzen 
STA $028A und merken 
LDA $0294 Zeiger auf Position im Directorypuffer 
STA $DD,X in Tabelle dem Dateinamen zuordnen 
LDA $81 Nummer des Directorysektors 
STA $D8,X merken 
LDY #800 Pufferzeiger auf Start des Eintrags 


LDA ($94),Y 
INY 

PHA 

AND #840 
STA $6F 
PLA 

AND #$DF 
BMI $C55C 
ORA #820 
AND #827 
ORA $6F 
STA $6F 
LDA #880 
AND $E7,X 
ORA $6F 
STA $E7,X 
LDA $E2,X 
AND #$80 
ORA $7F 
STA $E2,X 
LDA ($94),Y 


Dateityp aus Directory holen 
Pufferzeiger auf nächstes Zeichen 
Orginal -Dateityp merken 

Flag für Scratch-Schutz isolieren 

und merken 

Dateityp wieder holen 

und Scratch-Flag ausblenden 

ist Datei ordnungsgemäß geschlossen ? 
nein, Flag für '*! Datei 

Flag und Dateitypkennzeichen übernehmen 
und Scratch-Flag einblenden 

beides merken 

Flag für 'Dateityp gesetzt" 

aus Tabelle übertragen 

und Bits des neuen Dateitypen einblenden 
Typ in Tabelle dem Dateinamen zuordnen 


Nummer des Laufwerks des Eintrags holen 


und aktuelle Laufwerksnummer 
eintragen 

Wert in Laufwerkstabelle schreiben 
Spurnummer des ersten Sektors holen 


C574 9D 80 02 


c577 C8 
c578 B1 94 


C57A 9D 85 02 
C57D AD 58 02 


STA $0280,X 
INY 

LDA ($94),Y 
STA $0285 ,X 
LDA $0258 
BNE $C589 
LDY #815 
LDA ($94),Y 
STA $0258 
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und in Tabelle eintragen 

Zeiger auf nächstes Byte richten 
Sektornummer aus Eintrag holen 

und merken 

aktuelle Recordlänge holen 

ist Wert gesetzt ? 

nein, Pufferzeiger auf Wert in Eintrag 
Recordlänge des Directoryeintrags holen 
und in Zeiger merken 


[C4E1/C580] 


Flags neu initialisieren 


C589 AY FF 


C58B 8D 8F 02 
C58E AD 78 02 
c591 8D 79 02 


LDA #$FF 

STA $028F 
LDA $0278 
STA $0279 


Zeiger löschen 

Flag für letzten Eintrag 

Zeiger auf Position des Dateinamens 
im Eingabepuffer 


[CAE7/C5A4]I 


Dateinamen-Suche 
c594 CE 79 02 


c597 10 01 
C599 60 


C59A AE 79 02 


C59D B5 E7 
C59F 30 05 


C5AI BD 80 02 


C5A4_ DO EE 
C5A6 A9 O0 


C5A8 8D 8F 02 


C5AB 60 


abschließen 
DEC $0279 
BPL $C59A 
RTS 

LDX $0279 
LDA $E7,X 
BMI :$C5A6 
LDA $0280,X 
BNE $C594 
LDA #$00 
STA $028F 
RTS 


Zahl der Dateinamen 

noch einen Eintrag bearbeiten ? 

nein, zurück zur aufrufenden Routine 
Nummer des Dateinamens holen 

und dazugehörigen Dateityp feststellen 
ist Wert gesetzt ? | 

nein, Spur des ersten Sektors holen 
ist Wert angegeben ? 

nein, Flag für 'letzten Directoryeintrag 
erreicht! setzen 

zurück zur aufrufenden Routine 


[C457/CAA2/D70E/ED9Y7/C604:C48B ‚EDD4] 
Zeiger für Suche im Directory setzen 


C5SAC AO 00 


C5AE 8C 91 02 


C5B1 88 


C5B2 8C 53 02 
C5B5 AD 85 FE 


C5B8 85 80 
C5BA A9 01 
'C5BC 85 81 


LDY #500 
STY $0291 
DEY 

STY $0253 
LDA $FE85 
STA $80 
LDA #$01 
STA $31 


Zeiger auf aktuellen Directorysektor 
Löschen 

Flag für "Eintrag gefunden! 
zurücksetzen 

Nummer der Directoryspur (18) 

holen und als aktuelle Spur merken 
Zeiger auf Sektornummer 

setzen 
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C5BE 8D 93 02 
C5C1. 20 75 D4 
 Cc5C4" AD 93 02 
c5c7 DO 01 
C5C9. 60 

C5CA" A9 07 
C5CC 8D 95 02 
CSCF A9 00 
C5D1 20 F6 D4 
C5D4_8D 93 02 
c5soz! 20 £8 04 
C5DA CE 95 02 
C5DD AO 00 
C5DF BI 94 
C5E1 DO 18 
C5E3 AD 91 02 
C5E6 DO 2F 
C5E8ß. 20 3B DE 
csegl a5 81 
C5ED 8D 91 02 
C5F0 AS 94 
C5F2 AE 92 02 
C5F5 8D 92 02 
C5F8 FO 1D 
C5FA 60 

C5FB* A2 01 
C5FD EC 92 02 
C600 DO 2D 
C602_ FO 13 
C604” AD 85 FE 
C607 85 80 
C609 AD 90 02 
C60C 85 81 
C60E 20 75 D4 
C611 AD 94 02 
C614_ 20 C8 D4 
c6170 A9 FF 
C619 80 53 02 
C6iC AD 95 02 
C6IF 30 08 
C621 A9 20 


STA $0293 
JSR $D475 
LDA $0293 
BNE $C5CA 
RTS 

LDA #807 

STA $0295 
LDA #800 

JSR $DAF6 
STA $0293 
JSR $D4E8 
DEC $0295 
LDY #800 


LDA ($94),Y 
_ BNE $C5FB 


LDA $0291 
BNE $C617 
JSR $DE3B 
LDA $81 
STA $0291 
LDA $94 
LDX $0292 
STA $0292 
BEQ $C617 
RTS 

LDX #%01 
CPX $0292 
BNE $C62F 
BEQ $C617 
LDA $FE35 
STA $80 
LDA $0290 
STA $81 
JSR $D475 
LDA $0294 
JSR $D4C8 
LDA #$FF 
STA $0253 
LDA $0295 
BMI $C629 
LDA #820 


Flag für 'Sektor gelesen! löschen 
Sektor in Puffer einlesen 

Zeiger auf nächsten Directorysektor 
gibt es einen Föolgesektor ? 


nein, Ja, zurück zur aufrufenden Routine 


Zahl der Dateieintrage in einem 
Directoryblock -1 merken 

Position des zu lesenden Bytes 

Byte aus dem aktuellen Puffer holen 
und merken 

Pufferzeiger für aktuellen Puffer setzen 
zähler für Einträge pro Directorysektor 
Zeiger auf Beginn des Eintrags setzen 
und Dateitypkennzeichen holen 

ist Eintrag gelöscht ? 

Ja, Nummer des aktuellen Sektors 

ist Wert gesetzt ? 

nein, Spur und Sektornummer holen 
Nummer des aktuellen Directorysektors 
merken 

Low-Byte des Zeigers auf Eintrag 
Zeiger auf gültigen Eintrag holen 
neuen Wert setzen 

war Zeiger vorher gelöscht ? 

nein, zurück zur aufrufenden Routine 
Nummer des ersten Eintrags 

mit letztem Wert vergleichen 

war erster Einntrag gesetzt ? 

nein, immer Sprung nach $C617 

Nummer der Directoryspur 

holen und als aktuelle Spur merken 
Nummer des Directorysektors 

als aktuellen Sektor vermerken 

Sektor von Diskette in Puffer lesen 
Zeiger auf Position des Eintrags 
Directoryzeiger setzen 

Flag für 'Dateieintrag gefunden! 
Löschen 

Zahl der Directoryeinträge pro Sektor 
ist Zähler gesetzt ? 

ja, Zahl der Bytes eines Eintrags 
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20 C6 D1 
4c D7 c5 
20 4D D4 
4C C4 C5 
A5 94 

8D 94 02 
20 3B DE 
A5 81 

8D 90 02 
60 


JSR $DIC6 
JMP $C5D7 
JSR $DA4D 
JMP $C5C4 
LDA $94 
STA $0294 
JSR $DE3B 
LDA $81 
STA $0290 
RTS 


Pufferzeiger auf nächsten Dateieintrag 
Zeiger setzen 

nächsten Block des Directory lesen 
Zeiger setzen 

Low-Byte des aktuellen Zeigers 

merken 

Spur und Sektor des letzten Jobs holen 
Nummer des Directorysektors 

merken 

zurück zur aufrufenden Routine 


[83A0/840B/9088/C409/C416/CA23/C434/CBEC/C664 :AYAY] 


Diskette initialisieren 
C63D A5 68 LDA $68 
C63F DO 28 BNE $C669 
C641 A6 7F LDX $7F 
C643 56 IC LSR $1IC,X 
C645 90 22 BCC $C669 
C647 A9 FF LDA #$FF 
C649 80 98 02 STA $0298 
C64C 20 DE DO JSR $DOOE 
C64F AO FF LDY #$FF 
c651 C9 02 CMP #%02 
C653 FO 0A BEQ $C65F 
C655 C9 03 CMP #803 
C657 FO 06 BEQ $C65F 
C659 C9Y OF CMP #$0F 
C65B FO 02 BEQ $C65F 
C65D_ AO 00 LDY #800 
C65F” A6 7F LDX $7F 
C661 98 TYA 

0662. 95 FF STA $FF,X 
C664 D0 03 BNE $C669 
C666_ 20 42 DO JSR $D042 
C669” A6 7F LDX $7F 
C66B B5 FF LDA $FF,X 
C66D 60 RTS 


Flag für "autom. Initialisieren! 
nur initialisieren von Hand erlaubt ? 
nein, Nummer des aktuellen Laufwerks 


holen und Flag für Initialisieren testen 


soll Diskette initialisiert werden ? 
ja, Flag für 'Fehler bei Job beachten! 
Löschen 

Prüfen ob eine Disk im Laufwerk liegt 
Flagwert für 'Fehler aufgetreten! 
Ergebnis mit Kode für Sync vergleichen 
wurde Sync-Markierung gefunden ? 

Ja, auf Kode für Blockheader prüfen 
ist ein Blockheader gefunden worden ? 
ja, auf Kode für Laufwerk aktiv testen 
ist das Laufwerk ansprechbar ? 

ja, Flagwert für 'kein Fehler"! 

Nummer des aktuellen Laufwerks holen 
und das Fehlerflag 

in entsprechenden Laufwerksstatus 

ist Laufwerk bereit ? 

ja, BAM einlesen 

Nummer des aktuellen Laufwerks und 
dazugehörigen Laufwerksstatus holen 
zurück zur aufrufenden Routine 
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[CACO/D768/EE68] 

Dateiname aus Eingabepuffer in Directorypuffer kopieren 

(Im Akku muß die Länge des Namens, in X die Position im Eingabestring und 
in Y die Nummer des Directorypuffers stehen) 


C66E 48 PH . Länge des Dateinamens merken 

C66F 20 A6 C6 JSR $C6A6 Position des Namens im Eingabestring 

C672 20 88 C6 JSR $C688 feststellen und Namen in Puffer kopieren 

0675 68 PLA Länge des Dateinamens wieder holen 

C676 38 SEC Länge des kopierten Dateinamens 

C677 ED 4B 02 SBC $024B mit der maximalen Länge eines 

C67A AA TAX Dateieintrags (16) vergleichen 

C67B FO OA BEQ $C687 wird Eintrag voll ausgefüllt ? 

C67D 90 08 BCC $C687 nein, ist Dateiname kleiner als Platz ? 

C67’F, A9Y AO LDA #$A0 ja, dann restliche Zeichen 

6811 91 9 STA ($94),Y des Dateinamens mit 'Shift Space! füllen 
: 0683 C8 INY Pufferzeiger auf nächste Zeichenposition 

C684 CA DEX Zahl der aufzufüllenden Zeichen 

C685. DO FA BNE $C681 Dateiname aufgefüllt ? 

0687 60 RTS ja, zurück zur aufrufenden Routine 

[C672] 

Kopiert einen Teil aus dem Eingabepuffer in den aktuellen Datenpuffer 

C688 98 TYA Nummer des aktuellen 

C689 OA ASL A Puffers verdoppeln 

C68A AB TAY (da Tabelle 2-Byte Zeiger enthält) 

C68B BY 99 00 LDA $0099,Y Adresse des Puffers (Low-Byte) holen 

C68E 85 94 STA $94 und in Zeiger auf Directorypuffer setzen 

C690 BY YA 00 LDA $009A,Y Adresse des Puffers (High-Byte) holen 

0693 85 95 STA $95 und in Zeiger auf Directorypuffer setzen 

0695. AO 00 LDY #$00 Zeiger auf Position in Puffer löschen 

c6g7! BD 00 02 LDA $0200,X Byte aus Eingabepuffer holen 

C69A 91 94 STA ($94),Y und in aktuellen Puffer kopieren 

C6E9C CE INY Zeiger in Datenpuffer auf nächstes Byte 

C69D FO 06 BEQ $C6A5 Datenpuffer voll ? 

C69F EB INX nein, Zeiger in Eingabepuffer erhöhen 

C6AD EC 76 02 CPX 0276 mit Länge des Befehlsstrings vergleichen 

C6A3_ 90 F2 BCC $C697 letztes Zeichen erreicht ? 


C6A5 60 RTS ja, zurück zur aufrufenden Routine 
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[C502/C66F] 

Ende eines Dateinamens im Eingabepuffer suchen (Startposition in X) 

C6A6 AYI 00 LDA #%00 Zeiger auf Länge des Namens 

C6AB 8D 4B 02 STA $024B Löschen 

C6AB 8A TXA Startposition im Eingabepuffer holen 
C6AC, 48 PHA und merken 

cap! BD 00 02 LA $0200,X Zeichen des Namens holen 

C6B0 C9 2C CMP #82C und mit ',' vergleichen 

c6B2 FO 14 BEQ $C6C8 identisch ? 

C6B4 C9Y 3D CMP #%3D nein, mit '=! vergleichen 

C6B6 FO 10 BEQ $C6C8 identisch ? 

C6B8 EE 4B 02 INC $024B nein, Länge des Dateinamens erhöhen 
C6BB ES INX Pufferzeiger auf nächstes Zeichen setzen 
C6BC A9 OF LDA #$0F maximale Länge eines Dateinamens mit 
C6BE CD 4B 02 CMP $024B Länge des aktuellen Namens vergleichen 
C6C1 90 05 BCC $C6C8 aktueller Dateiname zu groß ? 

C6C3 EC 74 02 CPX $0274 nein, Position m. Stringende vergleichen 
C6C6_ 90 E5 BCC $C6AD Ende des Eingabestrings erreicht ? 
C6C8” 8E 76 02 STX $0276 ja, Länge des Dateinamens merken 

C6CB 68 PLA u. Zeiger auf Startposition wieder holen 
C6CC AA TAX und setzen 

C6CD 60 RTS zurück zur aufrufenden Routine 

[ECF2] 

Dateieintrag aus dem Directory lesen 

C6CE A5 83 LDA $83 aktuell aktive Sekundäradresse 

C6DO 48 PHA retten 

C6D1 A5 82 LDA $82 Nummer des aktuell aktiven Kanals 

C6D3 48 PHA retten 

C6D4 20 DE C6 JSR $CEDE Dateieintrag holen 

C6D7 68 PLA Nummer des Kanals 

C&D8 85 82 STA $82 wieder herstellen 

C6DA 68 PLA und vorherige Sekundäradresse 

C6DB 85 83 STA $83 wieder setzen 

C6DD 60 ;RTS zurück zur aufrufenden Routine 

[C6D4] 

Directory für Ausgabe in Puffer erstellen 

C6DE A9Y 11 LDA #811 Sekundäradresse 17 

C6EO 85 83 STA $83 festlegen 


C6E2 20 EB DO JSR $DOEB Kanal öffnen 


Das große Flo 


C6E5 
C6E8 
C6EB 
C6ED 
C6FO 
C6F2 
C6F5 
C6F6 
Cc6r7 
C6FA 
cörcl 
C6FF 

c701 

c704 

c707 

C70A 

C70B 

croe! 
c710 
c713 
c716 
c719 
C71A 
c7iB 
c7iD 
C7iF 
c721 
C724 
: 6726 
C728 
c729 
C72B 
C72E 
C730 
c732 
0734 
C736 
C737 
c739 
C73B 


l 


l 


20 E8 DA 


AD 
10 
AD 


90 
CA 


53 


02 


02 


c73C” 20 AC C7 
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JSR $D4EB Zeiger auf aktuellen Puffer setzen 

LDA $0253 Flag für Dateieintrag holen 

BPL $C6F7 wurde Eintrag gefunden ? 

LDA $028D nein, Flag für Directorylaufwerke 

BNE $C6FC Directory von beiden Laufwerken ? 

JSR $C806 nein, 'Blocks Free! holen und in Puffer 

CLC schreiben 

RTS zurück zur aufrufenden Routine 

LDA $028D Flag für Directorylaufwerke testen 

BEQ $C71B Directory von beiden Laufwerken ? 

DEC $028D ja, Flag auf 'nein'! setzen 

BNE $C70E war Flag nicht richtig gesetzt ? 

DEC $028D nein, Flag korregieren 

JSR $C3BEF auf anderes Laufwerk wechseln 

JSR $C806 !Blocks Free! holen und in Puffer 

SEC schreiben und wieder auf 

JMP $C38F ursprüngliches Laufwerk schalten 

LDA #$00 Zwischenspeicher für Blockzahl 

STA $0273 Löschen 

STA $028D Flag für '!beide Laufwerke! löschen 

JSR $C7B7 Titel des Directory erstellen 

SEC Flag für 'noch weitere Einträge! 

RTS zurück zur aufrufenden Routine 

LDX #$18 Länge einer Directoryzeile (24) 

LDY #$1D Zeiger auf Byte für Dateilänge setzen 

LDA ($94),Y Zahl der Blocks (High-Byte) holen 

STA $0273 und merken | 

BEQ $C728 ist Blockzahl > 256 und so dreistellig ? 

LDX #816 ja, Länge der um zwei Zeichen kürzen 
 DEY Pufferzeiger auf Byte für Blockzahl 

LDA ($94),Y Low-Byte der Blockzahl holen 

STA $0272 und merken 

CPX #816 mit Wert für verkürzte Länge vergleichen 

BEQ $C73C ist 3-stellige Blockzahl vorhanden ? 

CMP #S0DA Zahl der Blocks mit 10 vergleichen 

BCC $C73C Blockzahl kleiner (einstellig) ? 

DEX nein, Länge der Restzeile verkürzen 

CMP #564 Blockzahl mit 100 vergleichen 

BCC $C73C ist die Blockzahl kleiner (2-stellig) ? 

DEX nein, Länge der Restzeile verkürzen 

JSR SC7AC Puffer für Directory löschen 


B1 94 


10 05 
A9 3C 
9D B2 


29 OF 


C9 AO 


02 


LDA ($94),Y 
PHA 

ASL A 

BPL $C74A 
LDA #83C 
STA $02B2,X 
PLA 

AND #$0F 
TAY 

LDA $FEC5,Y 
STA $02B1,X 
DEX 

LDA $FECO,Y 
STA $02B1,X 
DEX 

LDA $FEBB,Y 
STA $0281,X 
DEX 

DEX 

BCS $C76B 
LDA #$2A 
STA $02B2,X 
LDA #$A0 
STA $02B1,X 
DEX 

LDY #812 
LDA ($94) ,Y 
STA $02B1,X 
DEX 

DEY 

CPY #803 
BCS $C773 
LDA #822 
STA $02B1,X 
INX 

CPX #820 
BCS $C793 
LDA $02B1,X 
CMP #822 
BEQ $C793 
CMP #8$A0 


Das Disk-Operating-System (DOS 


Byte für Dateityp holen 


und merken 


Bit 6 als Flag für Scratchschutz holen 
ist Datei Scratch geschützt ? 

ja, Zeichen für Scratchschutz '!<! 
hinter Dateityp schreiben 

Dateityp zurückholen 

Dateiart isolieren 

und dazugehörigen Kurznamen in Directory 
3. Buchstabe der Dateikurzbezeichnung 
holen und in Puffer schreiben 

Länge der Directoryzeile verkürzen 

2. Buchstabe der Dateikurzbezeichnung 
holen und in Puffer schreiben 

Länge der Directoryzeile verkürzen 

1. Buchstabe der Dateikurzbezeichnung 
holen und in Puffer schreiben 

Länge der Directoryzeile 


verkürzen 


ist die Datei ordungsgemäß geschlossen ? 
nein, '!*! als Kennzeichen 

vor die Dateikurzbezeichnung setzen 

ein Leerzeichen 


einfügen und 


Länge der Directoryzeile verkürzen 
Pufferposition des Dateinamens setzen 
Zeichen des Dateinamens holen 

und in Directorypuffer schreiben 
Länge der Directoryzeile verkürzen 
Pufferzeiger erniedrigen 

mit Endwert vergleichen 

alle Zeichen des Namens übernommen ? 
ja, Anführungszeichen vor Namen 


setzen 


Zeiger in Directoryzeile erhöhen 

auf maximalen Wert prüfen 

Ende des Puffers erreicht ? 

nein, Zeichen aus Dateinamen holen 
und mit Anführungszeichen vergleichen 


identisch ? 


nein, mit 'Shift Space! vergleichen 
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Cc791_ DO FO BNE $C783 identisch ? 

C7937 A9 22 LDA #$22 Ja, dann durch Anführungszeichen 
C795,. 9D B1 02 STA $02B1,X (am Ende des Dateinamens) ersetzen 
c798° ES INX Zeiger auf Dateinamen auf nächstes Byte 
c799 EO 20 CPX #820 setzen und mit Endwert vergleichen 
C79B BO 0A BCS $C7A7 Ende des Dateinamens erreicht ? 

C79D A9Y 7F LDA #$7F nein, Wert für Bit 7 (Revers) gelöscht 
C79F 3D B1 02 AND $0281,X Zeichen der Directoryzeile holen 
C7A2 9D Bi 02 STA $02B1,X und Reversdarstellung abschalten 

C7A5, 10 F1 BPL $C798 immer Sprung nach $C798 

crazl 20 B5 CA JSR $C4B5 nächsten Eintrag holen 

C7AA 38 SEC Flag für 'noch weitere Einträge’ 

C7AB 60 RTS zurück zur aufrufenden Routine 
[C73C/C7BD/C806] | 

Puffer für Dateiname mit Leerzeichen löschen 

C7AC AO 1B LDY #$1B Länge der Directoryzeile (27) 

C7AE, AY 20 LDA #820 Leerzeichen als Löschwert 

C7BO 99 BO 02 STA $02B0,Y Pufferposition löschen 

C7B3 88 DEY Pufferzeiger auf nächstes Byte setzen 
C7B4 DO FA BNE $C7BO schon ganzer Puffer gelöscht ? 

C7B6 60 RTS ja, zurück zur aufrufenden Routine 
[C716/DAA1] 

Titel des Directory mit Namen und ID erzeugen 

C7B7 20 19 Fi JSR $F119 Zeiger auf BAM setzen 

C7BA 20 DF FO JSR $FODF BAM von Diskette lesen 

C7BD 20 AC C7 JSR $C7AC Puffer für Directoryzeile löschen 
C7CO A9 FF LDA #$FF Zwischenspeicher 

C7Cc2 85 6F STA $6F initialisieren 

C7C4 A6 TF LDX $7F Nummer des aktuellen Laufwerks 

C7C6 8E 72 02 STX $0272 als Zweibytewert (wie Blockzahl) 

C7’C9 A9Y 00 LDA #00 in Directorypuffer 

C7’CB 8b 73 02 STA $0273 schreiben 

C’CE A6 F9 LDX $F9 Nummer des aktuellen Puffers 

C7’DO BD EO FE LDA $FEEO,X Adresse des Puffers holen (High-Byte) 
C7D3 85 95 STA $95 und merken 

C7D5 AD 88 FE LDA $FE88 Position des Diskettennamens als 

C7D8 85 94 STA $94 Low-Byte der Pufferadresse übernehmen 
C7’DA AD 16 LDY #816 Länge des Diskettennamens 


C7DcC B1 94 LDA ($94),Y ein Zeichen des Namens holen 
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C7DE C9Y AO CMP #$A0 mit 'Shift Space! vergleichen 

C7EO DO OB BNE $C7ED ist Diskettenname zu Ende ? 

C7E2 A9 31 LDA #831 ja, Dummy für nachfolgende Prüfung ('1') 
C7E4. 2C ‚byte $2C zwei Bytes überspringen 

cres! B1 94 LDA ($94),Y Zeichen aus Directoryeintrag holen 
C7E7 C9Y AD CMP #$A0 mit 'Shift Space’ vergleichen 

C7’E9 DO 02 BNE $C7ED ist Eintrag zu Ende ? 

C7EB_ AY 20 LDA #820 ja, Leerzeichen 

C7ED2 99 B3 02  STA $02B3,Y in Puffer übertragen und 

C7’FO 88 DEY Pufferzeiger auf nächstes Byte setzen 
C7’Fi 10 F2 BPL $C7E5 Ende des Puffers erreicht 

C/’F3 A9 12 LDA #$12 ja, Code für 'Revers On! vor an 

C7’F5S 8&D B1 02 STA $02B1 Zeilenbeginn in Puffer setzen 

C’F8 A9 22 LDA #822 Anführungszeichen vor 

C’FA_ 8D B2 02 STA $02B2 und hinter den Diskettennamen 

C7’FD 8&D C3 02 STA $02C3 setzen 

C800 A9 20 LDA #$20 Leerzeichen in 

c802 8D C4 02 STA $02C4 Puffer schreiben 

C805 60 RTS zurück zur aufrufenden Routine 
[C6F2/C707] 


Abschlußzeile mit "Blocks free.! erstellen 


C806 20 AC C7 JSR $C7AC Puffer für Directoryzeile löschen 

C809. AO OB LDY #%0B Länge der Zeile setzen 

csop B9 17 C8 LDA $C8i17,Y Zeichen aus 'Blocks Free! String holen 
C80E 99 Bi 02 STA $02B1,Y und in Puffer schreiben 

c811 88 DEY Pufferzeiger auf nächstes Byte setzen 
c812 10 F7 BPL $C80B Zeile fertig ? 

C814 4C AD EF JMP $EF4D ja, Zahl der freien Blöcke holen 

cC817 42 4C 4F 43 48 53 20 ıBLOCKS ' 

C81E 46 52 45 45 2E IFREE.'! 


[Einsprung durch Routine C146] 
Routine für Sratch-Befehl 


c823 20 98 C3 JSR $C398 prüfen ob Befehl auf Dateityp beschränkt 
C826 20 20 C3 JSR $C320 Laufwerksnummer aus Befehlsstring holen 
C829 20 CA C3 UJSR $C3CA Laufwerk initialisieren 

c82C A9 00 LDA #00 zähler für Zahl der gelöschten 

C82E 85 86 STA $86 Dateien zurücksetzen 

C830 20 9 C4 JSR $CA9M ersten Dateieintrag holen 
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c833. 30 3D BMI $C872 Eintrag gefunden ? 

c835 | 20 B7 DD _UJSR $DDB7 ja, Datei auf Gültigkeit testen 

c838 90 33 BCC $C86D wurde Datei richtig abgeschlossen ? 

C83A AO 00 LDY #$00 ja, Zeiger auf Position für Dateityp 

c83c B1 94 LDA ($94),Y Dateityp aus Directory holen 

C83E 29 40 AND #840 Bit 6 als Flag für Scratchschutz testen 

C840 DO 2B BNE $C86D ist die Datei löschgeschützt ? 

c842 20 B6 C8 JSR $C8B6 nein, Eintrag löschen 

C8455 AO 13 LDY #$13 Zeiger auf Side-Sektoreintrag setzen 

c847 B1 94 LDA ($94),Y Spurnummer des ersten Side-Sektors holen 
C849 FO OA BEQ $C855 Side-Sektor vorhanden ? 

C84B 85 80 STA $80 ja, Spurnummer merken 

C84D C8 INY | und dazugehörige 

C84E B1 94 LDA ($94),Y Sektornummer aus Eintrag holen 

c850 85 81 STA $81 und merken 

c852. 20 7D CB JSR $C87D Blocks verfolgen und freigeben 

c855 | AE 53 02 LDX $0253 Nummer des Dateieintrags 

C858 A9 20 LDA #820 Flag für "Eintrag nicht geschlossen! 

Cc85A 35 E7 AND $E7,X in Dateitypkennzeichen prüfen 

c8SC DO OD BNE $C86B ist Eintrag eine '*'! Datei ? 

C8SE BD 80 02 LDA $0280,X nein, Spur des ersten Sektors 

C861 85 80 STA $80 als aktuelle Spurnummer setzen 

C863 BD 85 02 LDA $0285,X Sektornummer der Dateidaten 

C866 85 81 STA $81 übernehmen 

0868. 20 7D C8 SR $C87D Blocks der Datei verfolgen und freigeben 

C86B_ E6 86 INC $86 Zahl der gelöschten Dateien erhöhen 

c860° 20 88 C4 JSR $C4A8B nächsten Dateieintrag holen 

c870. 10 C3 BPL $C835 gefunden ? 

ca7a2} A5 86 LDA $86 nein, Zahl der gelöschten Dateien 

C874 85 80 STA $80 an Rückmeldung übergeben 

c876 A9 01 LDA #801 Nummer der Rückmeldung 

c878 AO 00 LDY #$00 Wert für Sektornummer 

C87A 4C A3 CI JUMP SCIAZ 01 Files Scratched'! erzeugen 

[C852/C868/DC1B] 

Sektoren anhand der Verkettung verfolgen und in BAM freigeben 

c87D 20 5F EF JSR $EFSF ersten, aktuellen Block freigeben 

C880 20 75 D4 JSR $D475 nächsten Sektor lesen 

c883 20 19 Fi JSR $F119 Nummer des BAM Kanals holen 

C886 B5 A7 LDA $A7,X Nummer des 2. Puffers holen 


C888 C9 FF CMP #&FF mit 'Puffer frei' vergleichen 
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C88A FO 08 BEQ $C894 ist Puffer zugewiesen ? 
c88C AD F9 02 LDA $02F9 nein, Flag in Zeiger für 
c88F 09 40 ORA #840 ıBAM ungültig, auf Diskette schreiben! 
c891_ 8D F9 02  STA $02F9 setzen 
C894° A9 00 LDA #%00 Pufferzeiger 
C896 20 C8 D4 JSR $D4C8 auf Beginn des Sektors setzen 
cC899 20 56 DI JSR $D156 Byte aus Sektor holen 
c89C 85 80 STA $80 und Spur des nächsten Sektors merken 
C8I9E 20 56 DI JSR $D156 Byte aus Sektor holen 
C8A1 85 81 STA $81 und Nummer des nächsten Sektors setzen 
C8A3 A5 80 LDA $80 Spurnummer des nächsten Sektors holen 
c8A5 DO 06 BNE $C8AD ist der Aktuelle der letzte Sektor ? 
C8A7 20 F4 EE UJSR $EEF4 ja, BAM wieder auf Diskette schreiben 
C8AA, 4AC 27 D2 JUMP $D227 Kanal wieder schließen und Ende 
caan 20 5F EF JSR $EFSF Sektor in BAM freigeben 
C8eBO 20 4D DA JSR $D44D nächsten Sektor lesen 
. C88B3 4C 94 C8 JMP $C894 und weitermachen 
[C842/D8D3/EDDF] 
Dateieintrag im Dateityp des Directory als gelöscht kennzeichnen 
C8B6 AO 00 LDY #800 Pufferzeiger auf Dateityp setzen 
c8B8 98 TYA Wert für Dateityp 'DEL' 
c8B9 91 94 STA ($94),Y in Eintrag übernehmen 
C8BB 20 5E DE JSR $DESE und Directory zurückschreiben 
C8BE 4C 99 D5 JMP $D599 warten bis Schreiben ausgeführt 


[C909/Einsprung durch Routine C146] 
Routine für Backup-Befehl (auf Einzellaufwerk nicht möglich) 


c8C1 A9 31 LDA #%31 Fehlermeldung 

c8C3 4C C8 Ci JMP $CiC8 131] Syntax Error! ausgeben und zurück 
[A780] 

Routine für 1541-New-Befehl (Diskette formatieren) 

C8C6 A9Y LC LDA #$4C In Pufferadresse $0600-$0602 

c8Cc8 8D 00 06 STA $0600 wird ein JMP-Zeiger auf 

c8CcB A9Y C7 LDA #%C7 die Formatierungsroutine des 

C8CD 8D 01 06 STA 80601 Diskcontrollers gesetzt ($FAC7), der vor 
C8D0 A9 FA LDA #$FA jeder neuen Spur aufgerufen wird, womit 
C8D2 8D 02 06 STA $0602 eigene Vorprogramme einbindbar sind 
c8D5 A9 03 LDA #803 Nummer des verwendeten Puffers 


C8D7 20 D3 D6 | JSR $D6D3 Spur- und Sektornummer an Jobschleife 


Das 


C8DA 
C&DC 
C&DE 
C8EO 
C8E2 
C8E4 
C8E6 
C8E8 
C8EA 
C8EC 
C8EF 


[Einsprung durch Routine C146] 


roße Flo 


AS 7F 
09 EO 
85 03 
A5 03 
30 FC 
c9 02 
90 07 
A9 03 
A2 00 
4C 0A E6 
60 
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LDA $7F 
ORA #%E0 
STA $03 
LDA $03 
BMI $C8EO 
CMP #%02 
BCC $C8EF 
LDA #$03 
LDX #$00 
JMP $E6OA 
RTS 


Nummer des aktuellen Laufwerks holen 
Jobcode für Pufferprogramm einbinden 
an übergeben (Sprung zuf Zeiger) 

und Rückmeldung holen 

warten bis Diskette formatiert ist 
Rückmeldung mit 'Ok! vergleichen 
Formatieren fehlerlos beendet ? 
nein, Fehlernummer für !File! 

Puffer 0 anwählen 

und Meldung ausgeben 

zurück zur aufrufenden Routine 


Routine für Copy-Befehl (Dateien kopieren) 


C8FO 
C8F2 
C8F5 
C8rF8 
C8FB 
C8FD 
C8FF 
c901 
C904 
c907 
c909 
CYOC 
CYOF 
c912 
c915 
c917 
c919 
CYIC 
CYiF 
c921 
c9231 
C925 


1 


A9 EO 
8D 4F 02 
20 D1 FO 
20 19 F1 
A9 FF 
95 A7 
A9 OF 
80 56 02 
20 E5 ci 
DO 03 
4c c1 C8 
20 F8 C1 
20 20 C3 
AD 8B 02 
29 55 
DO OF 
AE 7A 02 


LDA #$E0 

STA $024F 
JSR $FOD1 
JSR $F119 
LDA #$FF 

STA $A7,X 
LDA #$0F 

STA $0256 
JSR $CIE5 
BNE $CIOC 
JMP $C8C1 
JSR SCIFB 
JSR $C320 
LDA $0288B 
AND #855 

BNE $C928 
LDX $027A 


LDA $0200,X 


CMP #$&2A 
BNE $C928 
LDA #$30 
JMP $CIC8 
LDA $028B 


alle Puffer in 

Bitverzeichnis belegen 

Spur- und Sektornummer für BAM setzen 
Puffernummer der BAM festlegen 
Puffer der BAM 

als 'frei' Kennzeichen 

alle Kanäle in entsprechendem 
Bitverzeichnis freigeben 

ı:ı im Befehlsstring suchen 

gefunden ? 

nein, Fehlermeldung '!'31 Syntax Error! 
Eingabestring bearbeiten 
Laufwerksnummer holen und setzen 
Befehlssyntaxflag holen 

und Flags für Dateinamen holen 

sind mehrere Dateinamen vorhanden ? 
ja, Position des Zielnamens im Befehl 
Zeichen aus Dateinamen holen 

auf '*! Joker prüfen 

Joker vorhanden ? 

ja, Fehlermeldung 

ı30 Syntax Error! ausgeben 
Befehlssyntaxflag holen 

Flags für Joker testen 

sind Joker vorhanden ? 

nein, Datei kopieren 
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[Routine wird im DOS nicht verwendet] 
Zeiger für Backup-Befehl initialisieren (Befehl nicht vorhanden) 


c932 
934 
c937 
CY3A 
C9Y3D 
C94O 
C942 
C944 
C946 


[C9Y2F] 


A9 
8D 


00 
58 
8C 
80 
81 
E3 
01 
7F 
01 
91 
TB 
TA 


02 
02 
02 


02 


LDA #800 
STA $0258 
STA $028C 
STA $0280 
STA $0281 
LDA $E3 
AND #$01 
STA $7F 
ORA #%01 
STA $0291 
LDA $027B 
STA $027A 


Datei(en) kopieren 
20 AF CA 
AD 78 02 


c952 
C955 
c958 
CIY5A 
CYSC 
CY5E 
C960 
C962 
C964 
C966 
C968 
. CY6A 
CY6C 
CY6E 
c971 
C973 
C976 
c979 
c97C 
CYTE 
C9Y80 
c982 
C984 


l 


c9 
90 
A5 
C5 
DO 
AS 
C5 
DO 
AS 


c9 
DO 


A9 64 


03 
45 
E2 
E3 
3F 
DD 
DE 
39 
D8 
D9 
33 
CC 
01 
79 
FA 
25 
04 
02 
05 


CA 


02 
c9 
D1 


20 C8 C1 


JSR $CAAF 
LDA $0278 
CMP #803 
BCC $CYAi 
LDA $E2 

CMP 
BNE 
LDA $DD 
CMP $DE 
BNE 
LDA $D8 

CMP $D9 

BNE $CYA1 
JSR $CACC 
LDA #$01 

STA $0279 
JSR $CYFA 
JSR $0125 
BEQ $C982 
CMP #$02 

BNE $C987 
LDA #864 
JSR $CIC8 


Zeiger löschen : 

Länge eines Records 

Zahl der Zugrife auf Laufwerk 
Spurnummer für Zieldatei 

Spurnummer für Quelldatei 

Wert für Standardlaufwerk 

Angabe auf ein Bit (0) beschränken 
und in Zeiger für aktuelles Laufwerk 
Nummer des aktuellen Directorysektors 
zurücksetzen 

Position des zweiten Parameters an 
erste Stelle kopieren 

zurück zur aufrufenden Routine 


Dateieintrag im Directory suchen 

Zahl der als Quelldatei genannten 
Einzeldateien 

weniger als 3 Dateien genannt ? 

ja, Laufwerksnummer der Zieldatei 

mit Laufwerk der Quelldatei vergleichen 
nur auf einer Diskette kopieren ? 

ja, Position der Zieldatei im Directory 
mit Quelldatei vergleichen 

identisch ? 

ja, Nummer des dazugehörigen Directory- 
sektors auf dem der Quelldatei prüfen 
soll Eintrag überschrieben werden ? 

ja, Dateieintrag im Directory suchen 
Zeiger auf ersten 

Dateinamen setzen 

Datei zum Lesen öffenen 

und Dateityp holen 

ist Dateieintrag eine Relative Datei ? 
nein, auf Kennzeichen für 'PRG'! testen 
identisch ? 

ja, Fehlermeldung 

164 File Type Mismatch' ausgeben 


Das 


l 


roße Flo 


c987 A9 12 


C989 
CY8B 
CYBE 
c991 
c993 
C996 
c999 
CY9B 


85 83 
AD 3C 02 
8D 3D 02 
A9 FF 
8D 3C 02 
20 2A DA 
A2 02 
20 B9 C9Y 


CYIE , 4C 94 CI 


CYA1 


20 A7 C9 


CYA4 4C 94 Ci 


[C9A1] 


buch 1571/70 


LDA #812 
STA $83 

LDA $023C 
STA $023D 
LDA #$FF 

STA $023C 
JSR $DA2A 
LDX #%02 

JSR $C9B9Y 
JMP $C194 
JSR $CYA7 
JMP $C194 


Einzeldatei kopieren 


CYA7 
CYAA 
CYAC 
CYAE 


20 E7 CA 
A5 E2 
29 01 
85 7F 
20 86 D4 
20 E4 D6 
AE 77 02 


JSR $CAE7 
LDA $E2 
AND #801 
STA $7F 
JSR $D486 
JSR $D6E4 
LDX $0277 


371 


Interner Schreibkanal (18) 

setzen 

Nummer des zugewiesenen internen Kanals 
in Lesekanal übertragen 

Wert für 'Kanal frei! 

in Tabelle setzen 

erste Quelldatei in Zieldatei kopieren 
Zeiger auf zweiten Dateinamen 

nächste Datei anhängen 

Befehl beenden und 'Ok'! Meldung ausgeben 
Dateien kopieren 
Befehl beenden und 'Ok'! Meldung ausgeben 


prüfen ob Eintrag schon existiert 
Laufwerksnennung der Zieldatei holen 
und als Nummer des 

aktuellen Laufwerks übernehmen 
internen Kanal zum Schreiben öffnen 
Zieldatei im Directory eintragen 
Zahl der Zielnamen (1) 


[C99B/CY9F1] 
mehrere Dateien kopieren 


c9B9 
CIBC 
CYBF 
c9c1 
C9C3 
C9C6 
c9c9 
CYCB 
CYCE 
C9DO 
C9D2 


| c905 1 


C9D8 
CYDB 
C9YDD 
CYEO 


8E 79 02 
20 FA C9 
a9 11 
85 83 
20 EB DO 
20 25 D1 
DO 03 
20 53 CA 
A9 08 
85 FB 
4C D8 Cc9 
20 9B CF 
20 35 CA 
A9 80 
20 A6 DD 
FO F3 


STX $0279 
JSR $SCYFA 
LDA #811 

STA $83 

JSR $DOEB 
JSR $D125 
BNE $CICE 
JSR $CA53 
LDA #$08 
STA $F8 

JMP $C9D8 
JSR $CFYB 
JSR $CA35 
LDA #880 

JSR $DDA6 
BEQ $C9D5 


als Quellnamenzahl übernehmen 
Directory lesen 

16 (Nummer des internen Lesekanals) 
als aktuelle Sekundäradresse festlegen 
Kanal öffnen 

Dateityp des Eintrags holen 

ist Datei eine Relative Datei ? 


. ja, Relative Datei kopieren 


Flag für letztes Zeichen (EOI) 
setzen 

und Kopierarbeit abschließen 
Byte in Zieldatei schreiben 
Byte aus Quelldatei holen 


Flag für EOI (letztes Zeichen) 


testen 
ist Flag gesetzt ? 
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C9E2 20 25 DI UJSR $D125 ja, Dateityp holen 

C9E5 FO 03 BEQ $CYEA ist Dateieintrag eine Relative Datei ? 
C9E7. 20 9B CF JSR $CFYB | nein, Byte in Datei schreiben 

C9EA AE 79 02 LDX $0279 Nummer der Quelldatei 

C9ED ES INX mit Zahl der 

C9EE EC 78 02 CPX $0278 Quelldateien vergleichen 

C9FI 90 C6 BCC $C9B9 sind weitere Dateien angegeben 

C9F3 AY 12 LDA #$12 Nummer für Schreibkanal (18) 

C9F5 85 83 STA $83 als aktuelle Sekundäradresse setzen 
C9F7T 4C 02 DB JMP $DB02 Datei und Kanal schließen 

[C976/C9BC] 

Kanal um Datei zu lesen öffnen Ä 

CYFA AE 79 02 LDX $0279 Nummer des Dateinamens holen 

C9FD B5 E2 LDA $E2,X entsprechende Laufwerksnummer 

C9FF 29 01 AND #$01 herstellen und 

CAD1 85 7F STA $7F als aktuelles Laufwerk merken 

CAO3 AD 85 FE LDA $FE85 Nummer der Directoryspur (18) 

CA0O6 85 80 STA $80 als aktuelle Spur festlegen 

CAO8 B5 D8 LDA $D8,X Directorysektor des Eintrags feststellen 
CADA 85 81 STA $81 als aktuellen Sektor setzen 

CAOC 20 75 D4 JSR $0475 Sektor in Puffer einlesen 

CAOF AE 79 02 LDX $0279 Nummer der Dateinennung im Befehl 
CA12 B5 DD LDA $DD,X dazugehörigen Zeiger auf Directory- 
CAl4 20 C8 D4 JSR $D4C8 position holen und Pufferzeiger setzen 
CA17 AE 79 02 LDX 0279 Nummer der Dateinennungen des Befehls 
CAIA B5 E7 LDA $E7,X entsprechendes Dateitypkennzeichen 
CAIC 29 07 AND #$07 holen und Dateityp daraus herstellen 
CAIE 8D 4A 02 STA $024A und merken 

CA21 A9 00 LDA #00 Zeiger für Recordlänge der 

CA23 8D 58 02 STA $0258 Datei löschen 

CA2&6 20 AD D9 JSR $DYAO Datei zum lesen öffnen 

CA29 AO 01 LDY #01 Pufferzeiger setzen 

CA2B 20 25 DI JSR $D125 Dateityp holen Ä 

CAZE FO 01 BEQ $CA31 ist Datei eine Relative Datei ? 

CA30. C8 INY nein, Pufferzeiger auf nächstes Byte 
ca3ıl 98 TYA (Spurnummer) 


CA32  4C C8 DA JMP $DACB Pufferzeiger initialisieren 
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[C9D8/E81B/E839] 
Ein Byte aus Datei lesen 
CA35 A9 11 LDA #811 interne Kanalnummer 
CA37 85 83 STA $83 für Lesen setzen 

_CA39 20 9B D3 UJSR $D39B ein Byte lesen 
CA3C 85 85 STA $85 und merken 
CA3ZE A6 82 LDX $82 Nummer des Kanals holen und 
CA4O B5 F2 LDA $F2,X ‘dazugehörigen Kanalstatus feststellen 
CA42 29 08 AND #808 Bitflag für '!letztes Byte! (EOI) 
CA4A 85 FB STA $F8 herstellen und merken 
CA46 DO OA BNE $CA52 ist die Datei zu Ende ? 
CA&B 20 25 DI UJSR $D125 nein, Dateityp holen 
CA4&B FO 05 BEQ $CA52 ist es eine Relative Datei ? 
CA4&D AY 80 LDA #$80 nein, 
CA4F_ 20 97 DD JSR $0D97 alle entsprechenden Flags setzen 
cA52 ° 60 RTS zurück zur aufrufenden Routine 
[C9YCB] 
Realtive Datei kopieren 
CA53 20 D3 DI JSR $D1D3 aktuelle Laufwerksnummer setzen 
CA56 20 CB E1 JSR $EICB Position des letzten Records holen 
cA59 A5 D6 LDA $D6 Position in Side-Sektor 
CA5B 48 PHA merken 
CASC A5 D5 LDA $D5 und Nummer des entsprechenden 
CASE 48 PHA Side-Sektors festhalten 
CASF AY 12 LDA #$12 interner Kanal für Schreiben 
CA61 85 83 STA $83 setzen 
CA63 20 07 DI  UJSR $D107 Kanal öffnen | 
CA66 20 D3 DI JSR $D1D3 aktuelle Laufwerksnummer setzen 
CA89 20 CB E1 UJSR $EICB Position des letzten Side-Sektors holen 
CA&SC 20 9C E2 UJSR $E29C und Sektor in Puffer lesen 
CA6F AS D6 LDA $D6 aktuellen Zeiger auf Position 
CA71 85 87 STA $87 in Side-Sektor merken 
CA73 A5 D5 LDA $D5 Nummer des Side-Sektors 
CA75 85 86 STA $86 merken 
CA77 A9 00 LDA #00 Zeiger löschen : 
CA79 85 88 STA $88 Zwischenspeicher 
CA7’B 85 D4 STA $D4 Zeiger auf Beginn des Records 
CA’D 85 D7 STA $D7 Zeiger auf Position in Record 
CATF 68 PLA Nummer des lezten Side-Sektors 


CA8O 85 D5 STA $D5 holen und setzen 
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CA8B2 68 PLA Nummer des letzten Recordeintrags 
CA83 85 D6 STA $D6 im Side-Sektor holen und setzen 
CA8S 4C 3B E3 JMP $E33B Side-Sektoren aktualisieren 


[Einsprung Über Routine C146] 
Routine für Rename-Befehl 


CA88 20 20 C3 JSR $C320 Nummer des Laufwerks holen 

CA8B A5 E3 LDA $E3 Nummer des Standardlaufwerks 

CA8D 29 01 AND #801 herstellen und wieder 

CA8F 85 E3 STA $E3 setzen 

CA91 C5 E2 CMP $E2 mit letzter Laufwerksnummer vergleichen 
: CA93 FO 02 BEQ $CA9Y7 muss Laufwerk gewechselt werden ? 

CA95, 09 80 ORA #580 ja, Bitflag für Suche auf beiden 

cag7l 85 E2 STA $E2 Laufwerken setzen 

CA99 20 AF C4 JSR $CA4AF neuer Name in Directory suchen 

CA9C 20 E7 CA JSR $CAE7 Name schon vorhanden ? 

CA9F AS E3 LDA $E3 Nummer des Standardlaufwerks 

CAA1 29 01 AND #801 herstellen und als Nummer 

CAA3 85 7F STA $7F des aktuellen Laufwerks übernehmen 

CAA5 A5 DI LDA $D9 Nummer des Directorysektors 

CAA7 85 81 STA $81 setzen 

CAA9 20 57 DE JSR $DE57 und Sektor in Puffer einlesen 

CAAC 20 99 D5 JSR $D599 und warten bis ausgeführt 

CAAF A5 DE LDA $DE Zeiger auf Directoryeintrag auf 

CAB1 18 CLC Startposition des 

CAB2 69 03 ADC #803 Dateinamens im Directory setzen 

CAB4 20 C8 D4 JSR $DAC8 Pufferzeiger festlegen 

CAB7 20 93 DF JSR $DF93 Nummer des aktuellen Puffers holen 

CABA A8 TAY und merken 

CABB AE 7A 02 LDX $027A Position des neuen Namens im Befehl 

CABE A9 10 LDA #810 maX. Länge des Dateinamens 

CACO 20 6E C6 JSR $C66E Namen in aus Befehlsstring in Puffer 

CAC3 20 5E DE JSR $DESE Directorysektor wieder schreiben 

CAC6 20 99 D5 JSR 0599 und warten bis ausgeführt 

CAC9 4C 94 Ci  JMP $C194 Rückmeldung bereitstellen und beenden 

[C9Y6E/CAE7] 

Prüft ob Dateieintrag vorhanden ist 

CACC AS EB LDA $E8 Dateityp des 2. Namens holen 

CACE 29 07 AND #07 und Kennzeichen für Typ isolieren 


CADO 8D 4A 02 STA $024A als aktuellen Dateityp merken 
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CAD3 
CAD6 CA 
CAD7 
CADA 
CADC 
CADF 


90 0A 


DO F5 
CAE1 A9Y 62 
CAE3 4C C8 
cacs! 60 


AE 78 02 


EC 77 02 


BD 80 02 


ci 


LDX $0278 
DEX 

CPX $0277 
BCC $CAE6 
LDA $0280,X 
BNE $CAD6 
LDA #$62 
JMP $CIC8 
RTS 


Startposition des Dateinamens im 
Befehlsstring holen 

mit Start des Befehlsstrings vergleichen 
sind noch Zeichen vor Dateinamen ? 

ja, Sektornummer der Datei holen 

war das der letzte Sektor ? 

ja, Fehlermeldung 

162 File Not Found! ausgeben 

zurück zur aufrufenden Routine 


LC9A7/CA9C] 


Zwei Dateinamen vergleichen 


CAE7_ 20 CC CA 
CAEA BD 80 02 


CAED FO 05 
CAEF A9 63 
CAF1, 4C C8 
CAr4T ca 
_CcAF5 10 F3 
CAF7 60 


c1 


JSR $CACC 
LDA $0280,X 
BEQ $CAF4 
LDA #863 
JMP SC1C8 
DEX 

BPL $CAEA 
RTS 


Datei im Directory vorhanden ? 
Nummer des ersten Datensektors holen 
ist Sektor vorhanden ? 

ja, Fehlermeldung 

163 File exist! ausgeben 

nächsten Namen anwählen 

war das der letzte Dateiname ? 

ja, zurück zur aufrufenden Routine 


[Einsprung über Routine C146] 
Routine für Memory-Befehl 


CAF8 AD 01 
CAFB C9Y 2D 
CAFD DO 4C 
CAFF AD 03 
CBO2 85 6F 
CBO4 AD 04 
CBO7 85 70 
CB0O9 AO 00 
CBOB AD 02 
CBOE C9 52 
CB10 FO 0E 
CB12 20 58 
cBi5 C9 57 
CB17_ FO 37 
CB19 C9 45 
CB1B DO 2E 
CB1D 6C 6F 


02 


02 


02 


02 


F2 


LDA $0201 
CMP #%2D 
BNE $CB4B 
LDA $0203 
STA $6F 
LDA $0204 
STA $70 
LDY #800 
LDA $0202 
CMP #352 
BEQ $CB20 
JSR $F258 
cMmP #$57 
BEQ $CB50 
CMP #$45 
BNE $CB4B 
JMP ($006F) 


zweites Zeichen des Befehls holen 

mit '!-! vergleichen 

identisch ? 

ja, dann viertes Zeichen holen und als 
Speicheradresse (Low-Byte) merken 


 fünftes Zeichen holen und als 


Speicheradresse (High-Byte) merken 
Pufferzeiger löschen 

drittes Zeichen des Befehls holen 

und mit 'R' vergleichen 

soll Read-Befehl durchgeführt werden ? 
nein, Aufruf hat keine Funktion (RTS) 
mit !W! vergleichen 

soll Write-Befehl durchgeführt werden ? 
nein, mit '!E! vergleichen 

soll Programm ausgeführt werden ? 

ja, Programm starten 
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Memory-Read-Befehl ('!M-R'); Liest Byte aus Speicher 


CB20 
CB22 
CB24 
CB27 
CB29 
CB2B 
CB2E 
CB2F 
CB31 
CB32 
CB33 
CB35 
CB37 
CB3A 
CB3C 
CB3E 
CB4O 


B1 
85 
AD 
c9 
90 
AE 
CA 
FO 
8A 
18 
65 
E6 
&8D 
A5 
85 
A5 
85 


CB42_ 4C 
CB45 20 EB DO 
CB4B_ 4C 3A D4 


2 


6F 
85 
74 02 


05 02 


49 02 


A6 
43 D4 


CB4AB AY 31 
CBAD 4C C8 CI 


[CB17/CB59] 
Memory-Write-Befehl ('M-W'); Schreibt in Speicher 


CB50 
CB53 
CB55 


BY 
91 
c8 
cc 
90 


06 02 
6F 


05 02 
F5 


LDA ($6F),Y 
STA $85 
LDA $0274 
CMP #306 
BCC $CB45 
LDX $0205 
DEX 

BEQ $CB45 
TXA 

CLC 

ADC $6F 
INC $6F 
STA $0249 
LDA $6F 
STA $A5 
LDA $70 
STA $A6 
JMP $D443 
JSR $DOEB 
JMP $D43A 
LDA #831 
JMP $C1CB 


LDA $0206,Y 
STA ($6F),Y 
INY 

CPY $0205 
BCC $CB50 
RTS 


Byte aus angegebener Adresse holen 

und merken 

Länge des Befehlsstrings holen 

und mit maximaler Länge vergleichen 

ist der String kleiner ? 

nein, Zahl der zu lesenden Bytes holen 
und korregieren (da eins schon gelesen) 
noch weitere Bytes aus Speicher lesen ? 
ja, Zeiger 

mit Startadresse verrechnen 

und so Endadresse des Bereichs errechnen 
Zeiger auf aktuelles Byte erhöhen 
Endadresse (Low-Byte) merken 

Zeiger auf aktuelle 

Speicher als Zeiger auf Fehlermeldungs- 
puffer für nachfolgende Routine ($D43A) 
übernehmen 

erstes Byte und Flags für Ausgabe setzen 
Kanal suchen und öffnen 

weitere Bytes ausgeben 

Fehlermeldung 

131 Syntax Error! ausgeben 


Bytewert aus Befehlsstring holen 

und in Speicher schreiben 

Pufferzeiger auf nächstes Byte richten 
mit Wert für Ende vergleichen 

noch weitere Bytes übernehmen ? 

nein, zurück zur aufrufenden Routine 


[Einsprung über Routine C146] 


User-Befehl ('UX'!); Startet Programm im DOS-Puffer 
CBSC AC 01 02 
CBSF CO 30 


CB61 


DO 


09 


LDY $0201 
CPY #830 
BNE $CBöC 


zweites Zeichen des Befehls holen 
und mit '0'! vergleichen 
identisch ? 
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[EBBC] 

User-Befehle ausführen 

CB63 4AC 26 80 JUMP $8030 ja, UserO-Befehle abfragen 

CB66 EA NOP unbenutzter Leerbereich 

CB67 EA NOP der durch Modifizierung 

CB68 EA NOP der User-Routine des ROM 

CB69 EA NOP 1541-Laufwerks zur 

CB6A EA NOP 1571-User-Routine 

CB6EB, EA NOP entstand 

cBscl 20 72 CB JSR $CB72 Adresse setzen und Programm ausführen 
CBöF, 4C 94 CI JUMP $C194 bei Rücksprung mit 'RTS' Befehl beenden 
CB72 88 DEY ASCII-Nummer des Befehls 

CB73 98 TYA in Binärnummer 

CB74 29 OF AND #$0F umrechnen, 

CB76 OA ASL A verdoppeln (Adresse ist 2-Byte-Zeiger) 
CB77 A8 TAY und merken 

CB78 Bi 6B LDA ($6B),Y zum Befehl gehörige Adresse (Low-Byte) 
CB7A 85 75 STA $75 holen und merken 

CB7’C C8 INY Zeiger auf-nächstes Byte der Adresse 
CB7’D Bi 6B LDA ($6B),Y High-Byte der Startadresse holen 

CB’F 85 76 STA $76 und merken 

CB81 4C 2D AA JUMP $AA2D Programm starten 

[D819] 

ı#\-Befehl; Öffnet Direktzugriffskanal 

CB84 AD 8E 02 LDA $028E Laufwerksnummer des letzten Jobs 

CB87 85 7F STA $7F als aktuelles Laufwerk setzen 

CB89 A5 83 LDA $83 Kanalnummer holen 

CB8EB 48 PHA und merken 

CBSC 20 3D C6 JSR $C63D Laufwerk initialisieren 

CBöF 68 PLA Kanalnummer wieder 

CB90 85 83 STA $83 zurücksetzen 

CB92 AE 74 02 LDX $0274 Länge des Befehlsstrings 

CB95S CA DEX mit 1 vergleichen 

CB96& DO OD BNE $CBA5 ist ein gewünschter Puffer angegeben ? 
CB98 AY 01 LDA #801 nein, Zahl der benötigten Puffer 

CB9A 20 E2 DI JSR $DIE2 freien Puffer und Kanal belegen 

CB9D_ 4C Fi CB JMP $CBFi Zeiger unt#Tabellen initialisieren 
CBAD” A9 70 LDA #%70 Fehlermeldung 

CBA2. 4C C8 C1 JMP $C1C8 ı70 No Channel! ausgeben 


caasl AO 01 LDY #801 Zeiger auf Position in Puffer 
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CBA7 20 7C CC JSR $CC7C Byte aus Befehlsstring holen 
CBAA AE 85 02 LDX $0285 Puffernummer holen 
CBAD EO 05 CPX #%05 und mit maximalem Puffer vergleichen 
CBAF BO EF BCS $CBAO ist die angegebene Nummer erlaubt (<5) ? 
CBB1 A9 00 LDA #00 ja, Zwischenspeicher 
CBB3 85 6F STA $6F in Zeropage 
CBB5S 85 70 STA $70 Löschen 
CBB7. 38 SEC Flag für '!Puffer belegt! 
capgl 26 6F ROL $6F in Zwischenspeicher 
CBBA 26 70 ROL $70 einschieben 
CBBC CA DEX Nummer des Puffers 
CBBD 10 FY BPL $CBB8 ist Flag an richtiger Posiition ? 
CBBF AS 6F LDA $6F ja, errechnete Pufferbelegung 
CBCiI 2D AF 02 AND $024F mit Bitverzeichnis vergleichen 
CBC4 DO DA BNE $CBAO ist Puffer schon belegt ? 
CBC6 A5 70 LDA $70 nein, Puffernummer 8-15 
CBC8 2D 50 02 AND $0250 (nur bei CBM3030-CBM8250) testen 
CBCB DO D3 BNE $CBAO ist Puffer frei ? 
CBCD AS 6F LDA $6F ja, Bit für Puffer 
CBCF OD 4F 02 ORA $024F in Bitverzeichnis übernehmen und 
CBD2 8D 4F 02 STA $024F dadurch Puffer belegen 
CBD5 A5 70 LDA $70 dasselbe für Puffer 8-15 
CBD7 OD 50 02 ORA $0250 (kommt nie vor, da nur 5 Puffer 
CBDA 8D 50 02 STA $0250 vohanden sind) 
CBDD AI 00 LDA #800 Zahl der Puffer auf 1 setzen 
CBDF 20 E2 DI JSR $DIE2 und Puffer und Kanal belegen 
CBE2 A6 82 LDX $82 aktuelle Kanalnummer 
CBEA AD 85 02 LDA $0285 aktuelle Sektornummer 
CBE7T 95 A7 STA $A7,X in Sektortabelle dem Kanal zuordnen 
CBE9 AA TAX Zeiger korregieren 
CBEA A5 7F LDA $7F aktuelle Laufwerksnummer 
CBEC 95 00 STA $00,X als Jobcode 
CBEE, 9D 5B 02 STA $025B,X übergeben 
cerıl A6 83 LDX $83 Nummer der Sekundäradresse feststellen 
CBF3_ BD 2B 02 LDA $022B,X und zugeordneten interen Kanal holen 
CBF6 09 40 ORA #840 - Kanal als "aktiv" 
CBF8 90 2B 02 STA $022B,X kennzeichnen 
: CBFB A4 82 LDY $82 Nummer des aktuellen Kanals 
CBFD A9 FF LDA #SFF Zahl der zu übertragenden Daten 
CBFF 99 44 02 STA $0244,Y dem Kanal zuordnen 


CC0O2 A9 89 LDA #389 Kanal für Schreiben und Lesen 


Das große Floppybuch 1571/70 379 


CCO4 
CC07 
CCOA 
CCOD 
CCOE 
CCOF 
cc11 


99 F2 00 
BY A7 00 
99 3E 02 
OA 

AA 

A9 01 

95 99 
A9 DE 


99 EC 00 


4c 94 C9 


STA $O0F2,Y 
LDA $00A7,Y 
STA $023E,Y 
ASL A 

TAX 

LDA #801 
STA $99,X 
LDA #$0E 
STA $OOEC,Y 
JMP $C194 


[Einsprung über Routine C146] 
Routine für Block-Befehle 


freigeben 
Nummer des Puffers holen 


als auszugebendes Zeichen setzen 


Nummer verdoppeln 

(da Tabelle 2-Byte-Werte hat) 
Pufferzeiger auf Beginn des Puffers 
setzen 

Kennzeichen für Direktzugriff 

in Dateityptabelle verzeichnen 
Rückmeldung ausgeben und beenden 


CC1B AO 00 LDY #800 Startposition im Eingabepuffer setzen 
CC1D A2 00 LDX #800 Zeiger auf Zahl der Parameter löschen 
CCIF A9 2D LDA #%2D ı.t als zu suchendes Zeichen setzen 
CCc21 20 68 C2 JSR $C268 Eingabestring bearbeiten 

CC24. DO OA BNE $CC30 Zeichen gefunden ? 

CC26 A9 31 LDA #%31 nein, Fehlermeldung 

cc28_ 4C C8 Ci JMP $C1C8 ı3] Syntax Error! ausgeben 

cc28= A9 30 LDA #$30 Fehlermeldung 

CC2D, 4C C8 Ci UJMP $C1C8 ı30 Syntax Error! ausgeben 

cczol 8A TXA Zahl der gefundenen Parameter 

CcC31 DO F8 BNE $CC2B wurden weitere Angaben gefunden ? 

cc33 A2 05 LDX #805 ja, Zeiger in Eingabepuffer setzen 

cc35. B9 00 02 LDA $0200,Y drittes Zeichen aus Puffer holen 

cczgl DD 5D CC CMP $CC5D,X und mit Blockbefehl vergleichen 

cc3B FO 05 BEQ $CC42 liegt ein Blockbefehl vor ? 

CC3D CA DEX nein, Zeiger auf nächsten Befehl setzen 
CC3E 10 F8 BPL $CC38 bereits mit allen Befehlen verglichen ? 
CC40. 30 E4 BMI $CC26 ja, immer Sprung nach $CC26 

cca21 8A TXA Nummer des Blockbefehls 

CC43 09 80 ORA #%80 Flag für 'erweiterter Befehl! 

CC45 8D 2A 02 STA $022A merken 

CC48 20 6F CC JSR $CC6F Parameter des Befehls holen und prüfen 
CC4B AD 2A 02 LDA $022A Befehlsnummer wieder holen 

CC4E OA ASL A und verdoppeln 

CC4F AA TAX (da in Adresstabelle aus 2-Byte Zeiger) 
CC50 BD 64 CC LDA $CC64,X Startadresse des Befehls (Low-Byte) 
CcC53 85 70 STA $70 holen und merken 

CcC55 BD 63 CC LDA $CC63,X High-Byte holen und in Zeiger 
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cc58 85 6F STA $6F übernehmen 
CC5A 6C 6F 00 JMP ($OO6F) Blockbefehl starten 


[CC38] Befehlkodes der Block-Befehle 

CC5D 41 46 52 57 45 50 iA! „ ap% — ART aut „DEN „apı 
 [CC50/CC55] Startadressen der Blockbefehlsroutinen 

CC63 03 CD $CD03 B-A Befehl 

CC65 F5 CC $CcCcF5 B-F Befehl 

CC67 56 CD $CcD56 B-R Befehl 

CC69 73 CD $CD73 B-W Befehl 

CC6B A3 CD $CDA3 B-E Befehl 

CC&ED BD CD $CDBD B-P Befehl 

[CC48/CD5F/CD97] 

Parameter für Blockbefehle holen und setzen 

CC6F AO 00 LDY #800 Startposition der Suche im Befehlsstring 

Ccc71 A2 00 LDX #%00 Zahl der gefundenen Parameter löschen 

CcC73 A9 3A LDA #$3A 12! als zu suchendes Zeichen setzen 

Ccc75 20 68 C2 JSR $C268 und im Eingabepuffer suchen 

CcC78 DO 02 BNE $CC7C Zeichen gefunden ? 

CC7A AO 03 LDY #03 nein, Pufferzeiger auf viertes Zeichen 

[CBA7/CC78/CCBF] 


Parameter für Blockbefehi testen 


CC7’C B9 00 02 LDA $0200,Y und Zeichen holen 


CC7’F C9 20 CMP #820 mit Wert für Leerzeichen ' '! vergleichen 
Ccc81 FO 08 BEQ $CC8B identisch ? 

cc83 C9 1D CMP #$1D nein, auf Wert für "Cursor right! prüfen 
cc8 FO 04 BEQ $CC8B identisch ? 

cc87 C9 2C CMP #82C nein, mit Wert für Komma vergleichen 
CcC89_ DO 07 BNE $CC92 identisch ? 

CC8B> c8 INY ja, Pufferzeiger auf nächstes Zeichen 
CC8öC CC 74 02 CPY $0274 auf Wert für Befehlsstringende prüfen 
CCöF 90 EB BCC $CC7C ist Zeiger am Ende des Eingabepuffers ? 
CC91, 60 RTS ja, zurück zur aufrufenden Routine 

ccg21 20 Al CC JSR SCCAI Parameter holen, umrechnen und setzen 
Ccc95 EE 77 02 INC $0277 aktuelle Zahl der Parameter | 
CcC98 AC 79 02 LDY $0279 Gesamtzahl der Parameter 

CC9B EO 04 CPX #804 mit maximaler Zahl der Parameter prüfen 
CcC9Dd 90 EC BCC $CC8B zu viele Parameterangaben ? 
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CC9F BO 8A BCS $CC2B ja, immer Sprung nach $CC2B 
[CC92] 
Parameter der Blockbefehle von ASCII- in Binärwerte wmrechnen und setzen 
CCA1 A9 00 LDA #800 Bereich, der als 
CCA3 85 6F STA $6F Zwischenspeicher für 
CCA5 85 70 STA $70 Rechenoperationen verwendet wird, 
CCA7 85 72 STA $72 Löschen 
CCA9. A2 FF LDX #SFF Zeiger auf aktuelles Rechenregister 
ccag} B9 00 02 LDA $0200,Y nächstes Zeichen aus Eingabepuffer holen 
CCAE CY 40 CMP #840 mit ASCII-Wert von 'a' vergleichen 
CCBO BO 18 BCS $CCCA Liegt ein Buchstabe vor ? 

. CCB2 C9 30 CMP #$30 nein, auf Wert für '0' prüfen 
CCBA 90 14 BCC $CCCA liegt eine Ziffer vor ? 
CCB6 29 OF AND #$0F binären Zahlenwert berechnen 
CCBB 48 PHA und merken 
CCB9 AS 70 LDA $70 Werte im Zwischenspeicher 
CCBB 85 71 STA $71 von $6F bis $71 um eine 
CCBD AS 6F LDA $6F Stelle in Richtung $71 verschieben, 
CCBF 85 70 STA $70 sodaß $6F frei wird 
CCC1 68 PLA | binären Zahlenwert wieder holen und 
CCC2 85 6F STA $6F in Zwischenspeicher schreiben 
CCC4 C8 INY Pufferzeiger auf nächstes Zeichen 
CCC5 CC 74 02 CPY $0274 auf Endposition des Parameters prüfen 
ccc8_ 90 E1 BCC $CCAB gesamte Dezimalzahl eingelesen ? 
CCCA” 8C 79 02 STY $0279 ja, aktueller Pufferzeiger merken 
CCCD 18 CLC Addierroutine initialisieren 
CCCE, A9 00 LDA #800 ıDummy-Wert' für ersten Durchlauf der 
CCDO E83 INX Routine 
CCDI EO 03 CPX #$03 auf max. Zahl der Dezimalstellen prüfen 
CCD3 BO OF BCS $CCE4 sind zu viele Ziffern angegeben ? 
CCD5_ B4 6F LDY $6F,X nein, Wert einer Ziffer in Zähler holen 
CCD 88 DEY zähler erniedrigen 
CCD8 30 F6 BMI $CCDO ist Dezimalziffer Null ? 
CCDA 7D F2 CC ADC $CCF2,X nein, Binärwert des Ziffernwerts holen 
CCDD 90 F8& BCC $CCD7 addieren; ist Binärzahl schon > 256 ? 
CCDF 18 CLC Ja, Highbyte einrichten 
CCEO E6 72 INC $72 und um eins erhöhen 
CCE2, DO F3 BNE $CCD7 immer Sprung nach $CCD7 
CCE4 48 PHA äquivalenten Binärwert (Low-Byte) merken 


CCES AE 77 02 LDX $0277 Nummer des Parameters holen 


AS 72 

9% 80 02 
68 

9D 85 02 
60 


LDA $72 


STA $0280,X 


PLA 


STA $0285,X 


RTS 
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errechneten Binärwert (High-Byte) 

in Tabelle der Parameter eintragen 
Low-Byte des Binärwerts wieder holen 
und ebenfalls merken 

zurück zur aufrufenden Routine 


[Einsprung über Routine CC1B] 


Block-Free-Befehl ('B-F'); Block in BAM freigeben 


CCF5 


20 F5 CD 
20 5F EF 
4c 94 Ci 


JSR $CDF5 
JSR $EFSF 
JMP $C194 


Spur- und Sektornummer holen 
Bit für Block auf 'frei'! setzen 
Rückmeldung bereitstellen und beenden 


LDA #801 
STA $02F9 


unbenutzter Programmrest aus 
CBM 4040 ROM 


[Einsprung über Routine CC1B] 


Block-Allocate-Befehl ('B-A'); Block in BAM belegen 


- cD03 
CD06 
CDO8 
CDO9 
CDOC 
CDOE 
CDOF 
CD11 
CD13 
CD16 
CD19 
CD1A 
CDIC 
CDIE 
CD20 
CD22 
CD25 
cD27 
CD2A 
co2cl 
CD2E 


0311 


20 F5 CD 
A5 81 

48 

20 FA F1 
FO OB 
68 

C5 81 

DO 19 

20 90 EF 
4c 94 C1 
68 

A9 00 
85 81 

E6 80 

A5 80 

CD AC 02 
BO OA 

20 FA Fi 
FO EE 

A9 65 
20 45 E6 
A9 65 


JSR $CDF5 
LDA $81 
PHA 

JSR $FiFA 
BEQ $CD19 
PLA 

CMP $81 
BNE $CD2C 
JSR $EF9O 
JMP $C194 
PLA 

LDA #%00 
STA $81 
INC $80 
LDA $80 
CMP $O2AC 
BCS $CD31 
JSR $FiFA 
BEQ $CDIA 
LDA #%65 
JSR $E645 
LDA #865 


Spur- und Sektornummer holen 
Sektornummer holen 

und merken 

nächsten freien Sektor in BAM suchen 
ist Block frei gewesen ? 

ja, Nummer des gewünschten Sektors holen 
mit akktueller Sektornummer vergleichen 
identisch ? 

Sektor in BAM als belegt kennzeichnen 
Rückmeldung bereitstellen und beenden 
Stack korregieren, Sektornummer löschen 
Nummer des Sektors neu 

festlegen 

Zeiger auf Spur auf nächste Spur setzen 
und holen 

mit Wert der größten Spur +1 vergleichen 
ist Spurnummer kleiner ? 

ja, nächsten freien Sektor suchen 
gefunden ? 

nein, Fehlermeldung 

165 No Block! ausgeben 

Fehlermeldung 
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CD33 20 C8 CI JSR $CiC8 165 No Block! bereitstellen 
[CD42/CDA6] 

Parameter des 'B-R' Befehls prüfen und Sektor in Puffer lesen 

CD36 20 F2 CD JSR $CDF2 Spur- und Sektornummer prüfen und holen 
CD39 4C 60 DA JUMP $D460 Sektor in Puffer lesen 

[CD4A] 

Byte aus Puffer holen 

CD3C 20 2F DI JSR $D12F Pufferzeiger setzen 

CD3F A1 99 LDA ($99,X) Byte holen 

CD41 60 RTS zurück zur aufrufenden Routine 
[CD56/CD62] 

Sektor von Diskette in Puffer lesen und Zeiger initialisieren 

CD42 20 36 CD JSR $CD36 Parameter holen und Sektor lesen 
CD45 A9 00 LDA #800 Position des Pufferzeigers festlegen 
CD47 20 C8 DA JSR $D4C8B Pufferzeiger setzen 

CDAA 20 3C CD JSR $CD3C ein Byte aus Puffer holen 

CDAD 99 44 02 STA $0244,Y Zahl der noch zu übertragenden Daten 
CD50 A9 89 LDA #889 Kanal für Lesen und Schreiben 
cD52 99 F2 00 STA $00F2,Y freigeben 

CD55 60 RTS zurück zur aufrufenden Routine 


[Einsprung über Routine CC1B] 
. Routine für Block-Read-Befehl ('B-R'); Sektor von Diskette lesen 


CcD56 20 42 CD JSR $CD42 Sektor lesen und Zeiger setzen 
CD59 20 EC D3_ _JSR $D3EC Byte aus Puffer ausgeben 
CD5SC 4C 94 Ci JMP $C194 Rückmeldung bereitstellen und beenden 


[Vektor: FFEA] 
Routine für U1-Befehl (vgl. B-R); Sektor von Diskette lesen 


CDSF 20 6F CC JSR $CCSF Parameterangaben holen 

CD62 20 42 CD JSR $CD42 Sektor in Puffer lesen 

CD65 BY 44 02 LDA $0244,Y Zahl der noch zu übertragenden Bytes 
CD68 99 3E 02 STA $023E,Y als auszugebendes Byte setzen 

CD&EB A9Y FF LDA #$FF Zahl der noch zu übertragenden Bytes 
CDED 99 44 02 STA $0244,Y neu initialisieren 


CD7’0O 4C 94 Ci JMP $C194 Rückmeldung bereitstellen und beenden 


=» mn mn 0. 58 0 u u u m m m 2 DD DO nn EC U HT CT CT m A A HT CT CT CT CT A CD CH m m nn 5 a m m a m m m u u 
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[Einsprung über Routine CC1B] 
Routine für Block-Write-Befehl 


CD73 20 F2 CD JSR $CDF2 Puffer belegen und Kanal öffnen 

CD7’6& 20 EB D4 JSR $D4E8 Pufferzeiger initialisieren 

CD79 AB TAY und holen 

CD7A 88 DEY Zeiger auf vorhergehendes Zeichen 

CD7B C9 02 CMP #$02 mit Beginn des Datenbereichs vergleichen 
CD’D BO 02 BCS $CD81 ist Zeiger richtig gesetzt ? 

CD7’F, AO 01 LDY #01 ja, Bytewert für aktuelle Pufferposition 
cosıl A9 00 LDA #800 Position des Pufferzeigers 

CD83 20 C8 D4 SR $D4CB Pufferzeiger setzen 

CD86 98 TYA Position im Puffer 

CcD87 20 FI CF  JSR $CFFi Byte in Puffer schreiben 

CD8A 8A TXA Puffernummer verdoppeln 

CD8EB 48 PHA und merken 

CD8SC 20 64 D4 USR $D464 Sektor auf Diskette schreiben 

CD8F 68 PLA Puffernummer wieder holen 

CD9YO AA TAX und setzen 

CD91 20 AE FF JSR $FFAE Pufferzeiger neu setzen 

CD94 4C 94 C1 JMP $C194 Rückmeldung bereitstellen und beenden 


[Vektor: FFEC] 
Routine für U2-Befehl (vgl 


B-W); Sektor aus Puffer auf Diskette schreiben 


CD97 20 6F CC JSR $CC6F Parameter aus Befehlsstring holen 
CDYA 20 F2 CD JSR $CDF2 Parameter prüfen und setzen 

CD9D 20 64 DA JSR $0464 Sektor auf Diskette schreiben 

CDAD 4C 94 C1 JMP $C194 Rückmeldung bereitstellen und beenden 


[Einsprung über Routine CC1B} 


Routine für Block-Execute-Befehl ('B-E'); Sektor lesen und ausführen 


CDA3 20 58 F2__JSR $F258 keine Funktion (rts) 
CDA6 20 36 CD JSR $CD36 Sektor in Puffer einlesen 
_ CDA9 A9 00 LDA #800 Pufferadresse (Low-Byte) auf 
 CDAB 85 6F STA $6F Pufferanfang setzen 
CDAD A6 F9 LDX $F9 Puffernummer holen 
CDAF BD EO FE LDA $FEEO,X High-Byte der Pufferadresse holen 
CDB2 85 70 STA $70 und in Zeiger auf Pufferbeginn setzen 
CDB4 20 BA CD JSR $CDBA Programm im Puffer starten 
CDB7_4C 94 C1 JMP $C194 bei Rücksprung mit 'RTS' Befehl beenden 
coBal 6C 6F 00 JUMP ($O06F) über Zeiger in Puffer springen 
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[Einsprung über Routine CC1B] 
Routine für Block-Pointer-Befehl ('!B-P'!); Pufferzeiger setzen 


CDBD 20 D2 CD JSR $CDD2 Puffer belegen und Kanal öffnen 
CDCO AS F9 LDA $F9 | Puffernummer holen 
CDC2 OA ASL A | verdoppeln (da Pufferzeiger aus 2-Bytes) 
CDC3 AA TAX und merken 
CDC4 AD 86 02 LDA $0286 neue Position des Pufferzeigers holen 
cDc7 95 99 STA $99,X und als Low-Byte in Pufferzeiger setzen 
CDC9 20 2F DI JSR $D12F Puffer- und Kanalnummer holen 
CDCC 20 EE D3 2 JSR $D3EE Byte aus aktueller Pufferposition holen 
CDCF 4C 94 C1 JMP $C194 Rückmeldung bereitstellen und beenden 
[CDBD/CDF2] 
Puffer belegen und Kanal eröffnen 
CDD2 A6 D3 LDX $D3 Nummer des Parameters holen 
CDD4 E6 D3 INC $D3 auf nächste Angabe setzen 
CDD6 BD 85 02 LDA $0285,X Kanalnummer aus Tabelle holen 
CDD9 AB TAY und merken 
CDDA 88 DEY Kanalnummer um 
CDDB 88 DEY zwei verkleinern 
CDDC CO OD CPY #%$0D und mit Wert für Kanal 14 vergleichen 
CDDE, 90 05 BCC $CDE5 ist die Kanalnummer kleiner 15 ? 
coeol A9 70 LDA #%70 nein, Fehlermeldung 
CDE2, 4C C8 Ci JMP SCICE ı70 No Channel! ausgeben 
CDES 85 83 STA $83 Kanalnummer als Sekundäradresse setzen 
CDE7 20 EB DO JSR $DOEB und Kanal öffnen 
CDEA BO F4 BCS $CDEO war Kanal schon offen ? 
CDEC 20 93 DF JSR $DF93 nein, Puffernummer holen 
CDEF 85 FY9 STA $F9 und setzen 
CDF1i 60 RTS zurück zur aufrufenden Routine 
[CDO3/CD36/CD 73/CDYA] 
Parameter auf gültige Sektorangabe prüfen 
CDF2 20 D2 CD JSR $CDD2 Puffer belegen 
CDF5 A6 D3 LDX $D3 Nummer des Parameters 
CDF7T BD 85 02 LDA $0285,X Byte aus Zwischenspeicher holen 
CDFA 29 01 AND #%01 und Laufwerksnummer isolieren 
CDFC 85 7F STA $7F als aktuelles Laufwerk übernehmen 
. CDFE BD 87 02 LDA $0287,X Nummer der gewünschten Spur 
CEOI 85 81 STA $81 setzen 


CE0O3 BD 86 02 LDA $0286,X Nummer des gewünschten Sektors 


386 Das Disk-Operating-System (DOS 


. CEO6 85 80 STA $80 übernehmen 
CEO8 20 5F D5 UJSR $D55F auf gültige Spur und Sektor prüfen 
CEOB 4C 00 Ci JMP $C100 LED am aktuellen Laufwerk einschalten 
[E255/E338/E436] 
Record aus relativer Datei holen 
CEOE 20 2C CE JSR $CE2C Zahl der Bytes bis zum Record errechnen 
CE11 20 6E CE JSR $CE6E und Sektornummer des Records feststellen 
CE14_ A5 90 LDA $90 Rest der Division holen und als 
CE16 85 D7 STA $D7 Pufferzeiger auf Start des Record setzen 
CE18 20 71 CE JSR $CE71 Side-Sektor der auf Rezord zeigt holen 
CE1B E6 D7 INC $D7 Pufferzeiger in pysikalischen 
CEID E6 D7 INC $D7 Sektor um Verkettungsbytes korregieren 
CEIF A5 88B LDA $88B Nummer des Side-Sektors holen 
CE21 85 D5 STA $D5 und merken 
CE23 A5 90 LDA $90 Rest der Division holen und daraus 
CE25 OA ASL A die Position des Sektorzeigers für den 
CE26 18 CLC Record im errechneten Side-Sektor 
CE27 69 10 ADC #810 bestimmen und 
CE29 85 D6  STA $D6 merken 
CE2B 60 RTS zurück zur aufrufenden Routine 
[CEOE] s 
Zahl der Bytes bis zum Record errechnen 
CE2C 20 D9 CE JSR $CEDY Zwischenspeicher löschen 
CE2eF 8 92 __STA $92 Wert in Rechenregister 2 
CE31 A6 82 LDX $82 Nummer des Kanals (Puffer) holen und 
CE33 B5 B5 LDA $B5,X dazugehörige Recordnummer (Low-Byte) 
CE35 85 90 STA $90 bestimmen und übernehmen 
CE37’ B5 BB LDA $BB,X High-Byte der Recordnummer holen und 
CE39 85 91 STA $91 übernehmen 
CE3B DO 04 BNE $CE41 ist Recordnummer größer 255 ? 
CE3D A5 90 LDA $90 nein, Low-Byte der Recordnummer holen 
CE3F. FO 0B BEQ $CE4C ist Recordnummer gleich Null ? 
CE41 AS 90 LDA $90 nein, Recordnummer (Low-Byte) holen 
CE43 38 SEC und um eins 
CE44 EI 01 SBC #801 verkleinern und neuen 
CEL& 85 90 STA $90 Wert übernehmen 
CE48 BO 02 BCS $CE4C ist Recordnummer kleiner 1 gewesen ? 
CE4A_ C6 91 DEC $91 ja, dann High-Byte um eins erniedrigen 


CEAC” B5 C7 LDA $C7,X Länge des Records holen 
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CE4E_ 85 6F 
CE5O 46 6F 
CE52 90 03 
CE5S4_ 20 ED 
ces 7] 
CESA AS 6F 
CESC DO F2 
 CE5SE A5 D4 
CE60 18 

CE61 65 88 


CE 


20 E5 CE 


CE63 85 88 


CE65 90 06 
CE67 E6 8C 
CE69 DO 02 
CE6B_ E6 8D 


CE6D- 60 
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STA $6F und merken 
LSR $6F auf geraden Wert prüfen 
BCC $CE57 ist die Recordlänge gerade ? 
JSR $CEED nein, Register 2 zu Register 1 addieren 
JSR $CEES Rechenregister mal 2 
LDA $6F aktueller Record 
BNE $CE5O Bits einrechnen 
LDA $D4 Zeiger auf Position in Record 
CLC zu aktuellem 
ADC $8B Rechenregister 1 dazuzählen 
STA $8B Low-Byte wieder setzen 
BCC $CE6D ist ein Übertrag entstanden ? 
INC $8C ja, nächstes Byte korregieren 
BNE $CE6D ist auch dabei ein Übertrag entstanden ? 
INC $8D ja, höhstes Byte korregieren 
RTS zurück zur aufrufenden Routine 


[CE11] 


Division des Rechenregisters durch 254 (Sektorlänge) 


CE6E AY FE 
CE70 2C 


LDA #$FE 
.byte $2C 


Wert des Divisiors setzen (254) 
zwei Bytes überspringen (Bit-Befehl) 


[CE18] 


Division des Rechenregisters durch 120 (Recordeinträge in Side-Sektor) 


CE7I A9 78 
CE73 85 6F 
CE75. A2 03 
B5 8F 
CE79 48 

CETA B5 8A 
CE7C 95 8F 
CETE 68 

CETF 95 8A 
CE8BI CA 

CE8ß2 DO F3 
CE8ß4. 20 D9 
cesz! a2 00 
CE8I“ B5 90 
CE8BB 95 8F 
CE8D EB 

CEBE EO 04 


CE 


LDA #878 
STA $6F 
LDX #803 
LDA $8F,X 
PHA 

LDA $8A,X 
STA $BF,X 
PLA 

STA $8A,X 
DEX 

BNE $CE77 
JSR $CED9 
LDX #800 
LDA $90,X 
STA $8F,X 
INX 

CPX #804 


Wert des Divisiors setzen (120) 

und merken 

Zahl der Bytes pro Rechenregister 
aktuellen Inhalt 

retten 

Bereich $88-$8A nach 

Register 2 kopieren 

Inhalt von vorherigem Register 2 in 
Bereich $88-$8A (Umtausch) 

Zeiger auf nächstes Byte 

schon ganzes Register vertauscht ? 
ja, Register 1 löschen 

zähler initialisieren 

Byte aus Register 2 holen 

und um ein Byte vorverschieben 
Zeiger auf nächstes Byte 

mit Zahl der Registerbytes vergleichen 
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CE9O 90 F7 
CE92 A9 00 
CE9L 85 92 
CEI6 24 6F 
CE9S 30 09 
CE9A 06 8 
CEIC 08 

CEID 46 BF 
CEIF 28 

CEAO. 20 E6 
CEA3" 20 ED 
CEA6 20 65 
CEA9 24 6F 
CEAB 30 03 
CEAD. 20 E2 
cEBOT a5 8F 
CEB2 18 

CEB3 65 90 
CEB5S 85 90 
CEB7 90 06 
CEBI ES 91 
CEBB DO 02 
CEBD_ E6 92 
CEBFT A5 92 
cECI 05 91 
CEC3 DO c2 
CEC5 AS 90 
CEC7 38 

CEC8 ES 6F 
CECA 90 0C 
CECC E6 8B 
CECE DO 06 
CEDO ES6 &C 
CED2 DO 02 
CED4_ E6 8D 
CED6“ 85 90 
CED8" 60 


CE 
CE 
CE 


CE 


BCC $CE89 
LDA #$00 
STA $92 
BIT $6F 
BMI $CEA3 
ASL $8F 
PHP 

LSR $8F 
PLP 

JSR $CEE6 
JSR $CEED 
JSR $CEE5 
BIT $6F 
BMI $CEBO 
JSR $CEE2 
LDA $8F 
CLC 

ADC $90 
STA $90 
BCC $CEBF 
INC $91 
BNE $CEBF 
INC $92 
LDA $92 
ORA $91 
BNE $CE87 
LDA $90 
SEC 

SBC $6F 
BCC $CED8E 
INC $8B 
BNE $CED6 
INC $8C 
BNE $CED6 
INC $8D 
STA $90 
RTS 
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schon ganzes Register verschoben ? 

ja, höherwertiges Byte 

Löschen 

Divisor testen 

ist er größer 128 

nein, BitO aus niederwertigstem Teil von 
Register 2 ins Carry und merken 
Register wieder herstellen 

Carry wieder holen 

und in Register 2 einschieben 

Register 1 zu Register 2 addieren 
Register 2 verdoppeln 

Divisor testen 

ist er größer 128 ? 

nein, Register 2 mal 4 nehmen 

vorigen Wert 

‘in Rechenregister 2 

dazuaddieren 

und wieder merken 

ist ein Übertrag entstanden ? 

ja, 2. Byte des Registers korregieren 
ist auch dabei ein Übertrag enstanden ? 
Ja, höchstes Byte des Registers setzen 
und holen 

2. Byte einblenden 

sind beide Bytes 0 (Registerwert <256) ? 
Ja, niederwertigstes Registerbyte holen 
und davon den 

Divisor abziehen 

enstand ein Übertrag ? 

nein, Register 1 erhöhen 

Übertrag ? 

2. Byte korregieren 

Übertrag ? 

letztes Byte korregieren 

neuen Wert setzen 

zurück zur aufrufenden Routine 


Das 
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[CE2C/CE84] 
Rechenregister 1 ($88/$8C/$8D) löschen 
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CED9Y A9 00 LDA #00 Wert mit dem gelöscht 

CEDB 85 8B STA $8B werden soll in 

CEDD 85 8&C STA $8C Rechenregister 

CEDF 85 8D STA $8D übertragen 

CEE1 60 RTS zurück zur aufrufenden Routine 
[CEAD] 


Rechenregister 2 ($90/$91/$92) mal vier nehmen 
. CEE2 20 E5 CE JSR $CEE5 Registerinhalt verdoppeln 


[CES7/CEA6/CEE2/CEE6:CEA0] 


Rechenregister 2 ($90/$91/$92) verdoppeln 


Rechenregister 2 


($90/$91/$92) zu 


CEE5_ 18 CLC Einzuschiebender Wert =0 

CEE6 26 90 ROL $90 Wert in Register einschieben 

CEE8 26 91 ROL $91 und gesamtes Register um 

CEEA 26 92 ROL $92 eine Bitposition nach links schieben 

CEEC 60 RTS zurück zur aufrufenden Routine 
 TCES4/CEA3] 


Rechenregister 1 ($88/$8C/$8D) addieren 


CEED 18 CLC Addition einleiten 

CEEE, A2 FD LDX #$FD Zahl der Bytes der Register (neg. Wert) 
CEFO° B5 8E LDA $8E,X Byte aus Register 1 holen 

CEF2 75 93 ADC $93,X Wert aus Register 2 holen und addieren 
CEF4 95 8E STA $8E,X und Ergebnis in Register 1 speichern 
CEF6 EB INX Zeiger auf nächste Ziffer setzen 

CEF7 DO F7 BNE $CEFO bereits gesamtes Register addiert ? 
CEF9 60 RTS Ja, zurück zur aufrufenden Routine 
[CF17/EBBF] 


Puffer-Kanal-Tabelle initialisieren 


CEFA. A2 00 LDX #800 Beginn bei Puffer O0 

CEFC BA TXA Wert für Kanalzuweisung (0) 

CEFD 95 FA STA $FA,X Kanalzuweisung des Puffers löschen 
CEFF E8 INX nächsten Puffer anwählen 

CFOO EO 04 CPX #304 auf Nummer des größten Puffers prüfen 
CFO2 DO F8 BNE $CEFC schon alle Puffer bearbeitet ? 

CFO4 AI 06 LDA #806 ja, Puffer 4 für Kanal 6 

CFO6 95 FA STA $FA,X belegen (BAM) 
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CFO8 60 RTS zurück zur aufrufenden Routine 
[CFIE/CF7B] 

Kanalnummer in Puffer-Kanal-Tabelle prüfen 

CF0O9 AO 04 LDY #804 Zahl der Puffer 

CFOB, A6& 82 LDX $82 Nummer des gesuchten Kanals 

crop! BY FA 00 LDA $00FA,Y zugeordnete Kanalnummer des Puffers 
CF10 96 FA STX $FA,Y neue Nummer setzen 

CF12 C5 82 CMP $82 alte Nummer mit neuer vergleichen 
CF14_ FO 07 BEQ $CF1D sind beide identisch ? 

CF16 88 DEY nein, nächsten Puffer anwählen 
CF17 30 E1 BMI $CEFA war das der letzte Puffer ? 

CF19 AA TAX nein, alte Kanalnummer 

CFiA, 4C OD CF JMP $CFOD übernehmen und prüfen 

CF1D 60 RTS zurück zur aufrufenden Routine 


[BFSA/DOB7/DOCO/D16A/D 180/D18C/D1BB/DB2F/DB7D/DBA2/EOAA/EOSD/EO72/EO78] 
[EI8D/EI9A/EI9D/E2BY/EZBE/EZICB/EL3I/ELS1] 
Puffer verwalten und zuweisen 


CFIiE 20 09 CF JSR $CFO09 Puffertabelle aktualisieren 
CF21 20 B7 DF _JSR $DFB7 Status des gewählten Puffers holen 
CF24 DO 46 BNE $CF6C ist Puffer frei ? 
CF26 20 D3 D1 JSR $D1D3 Ja, zum Puffer gehörendes Laufw. setzen 
CF29 20 8E D2 JSR $D28E Puffer suchen 
CF2C 30 48 BMI $CF76 wurde Puffer gefunden ? 
CF2ZE 20 C2 DF JSR $DFC2 ja, Puffer aktivieren 
. cr31 AS 80 LDA $80 Nummer der aktuellen Spur 
CF33 48 PHA merken 
CF34 A5 81 LDA $81 Nummer des aktuellen Sektors 
CF36 48 PHA merken 
CF37_ A9 01 LDA #801 Zeiger auf Position in Puffer 
CF39 20 F6 DA JSR $DAF6 ein Byte aus Puffer holen 
CF3C 85 81 STA $81 und als Sektornummer merken 
CF3E A9 00 LDA #800 Zeiger auf Position in Puffer 
CF4O 20 F6 DA JSR $DAF6 Byte aus Puffer holen 
CF43 85 80 STA $80 und als Spurnummer merken 
CF45 FO IF BEQ $CF66 weiterer Sektor in Verkettung ? 
CF47 20 25 DI JSR $0125 ja, aktuellen Dateityp holen 
CF4A FO OB BEQ $CF57 gehört der Sektor zu einer REL-Datei ? 
CF4AC 20 AB DD JSR $DDAB nein, letzten Jobcode prüfen 


CFAF DO 06 BNE $CF57 war es ein Schreibvorgang ? 
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CF51 20 8C CF JSR $CFEC ja, Pufferzustand wechseln (ein/aus) 
CF54_ 4C 5D CF  UJMP $CF5D und weitermachen 
Cr572 20 8C CF JSR $CFEC Pufferzustand wechseln (aktiv/passiv) 
CF5SA, 20 57 DE JSR $DE57 Jobcode für 'Sektor lesen! setzen 
CF5SD 68 PLA aktuelle Sektornummer 
CF5E 85 81 STA $81 wieder herstellen 
CF60 68 PLA aktuelle Spurnummer 
CF61 85 80 STA $80 wieder herstellen 
CF63, 4C 6F CF JUMP $CF6F und weitermachen 
cr66l 68 PLA aktuelle Sektornummer 
CF67 85 81 STA $81 wieder herstellen 
CF69 68 PLA aktuelle Spurnummer 
CF6A, 85 80 STA $80 wieder herstellen 
CF6C, 20 8C CF JSR $CF&C Pufferzustand wechseln (aktiv/passiv) 
CF6F° 20 93 DF- JSR $DFY3 Nummer des Puffers holen 
CF72 AA TAX und merken 
CF73_ 4C 99 D5 JMP $D599 und warten bis Job ausgeführt 
Cr762 A9 70 LDA #70 Fehlermeldung 
CF78 4C C8 C1 UJMP $C1C8 ‘70 No Channel! ausgeben 
[E325] 

Nach freiem Puffer suchen 
CF7B 20 09 CF UJSR $CFOY Puffertabelle aktualisieren 
CF’TE 20 B7 DF UJSR $DFB7 Nummer eines Puffers holen 
CF81 DO 08 BNE $CF8B ist Puffer frei ? 
cF83 20 8E D2 JSR $D28E nein, anderen Puffer wählen 
CF86 30 EE BMI $CF76 wurde ein anderer Puffer gefunden ? 
cF88_ 20 C2 DF JSR $DFC2 ja, Puffer aktivieren 
CF&8B 60 RTS zurück zur aufrufenden Routine 
[CFS1/CF57/CF6C] 
Puffer von aktiv nach passiv umschalten und umgekehrt 
CF8C A6 82 LDX $82 Nummer des aktuellen Kanals 
: CF8E 85 A7 LDA $A7,X dazugehörigen Pufferstatus holen 
CF9O 49 80 EOR #80 Flag für Puffer ein/aus wechseln 
CF92 95 A7 STA $A7,X und wieder zurückschreiben 
CF94 B5 AE LDA $AE,X Nummer des 2. Puffers holen 
CF96 49 80 EOR #$80 und umschalten 
CF98 95 AE STA $AE,X neuen Wert in Tabelle schreiben 
CF9A 60 RTS zurück zur aufrufenden Routine 
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[C9D5S/CYE7) 
Bytes über internen Kanal in Puffer schreiben 


CFYB 
CF9D 
CFYF 
CFA2 
CFAS 
CFA8 
CFAA 
CFAC 


A2 12 
86 83 
20 07 D1 
20 00 C1 
20 25 D1 
90 05 
A9 20 
20 9D DD 
A5 83 


[835C/EA4B8] 
Byte in Datei schreiben 


CFB7 
CFB9Y 
CFBB 
CFBD 
crer! 
CFC2 
CFC4 
CFC6 
CFC9 
CFCB 
CFCE 
CFDO 
CFD3 
CFD5 
CFDB“ 
CFDA 
CFDC 
CFDF 
CFE1 
CFE3 
CFES5 
CFEB 
CFEA 
CFEC 


A5 84 
29 BF 
c9 OF 
BO 19 
20 25 D1 
BO 05 
AS 85 
4C 9 DI 
DO 03 
4C AB EO 
A5 85 
20 Fi CF 
A4 82 
4C EE D3 
A9 04 
85 82 


20 Eß DA 


C9 2A 

FO 05 

AS 85 

20 Fi CF 
AS F& 
FO 01 

60 


LDX #812 
STX $83 
JSR $0107 
JSR $C100 
JSR $D125 
BCC $CFAF 
LDA #$20 
JSR $DD9D 
LDA $83 
CMP #80F 
BEQ $CFD8 
BNE $CFBF 


LDA $84 
AND #$8F 
CMP #$0F 
BCS $CFD8 
JSR $D125 
BCS $CFC9 
LDA $85 
JMP $D19D 
BNE $CFCE 
JMP $EOAB 
LDA $85 
JSR,$CFF1 
LDY $82 
JMP $D3EE 
LDA #804 
STA $82 
JSR $D4E8 
CMP #$2A 
BEQ $CFE8 
LDA $85 
JSR $CFF1 
LDA $F8 
BEQ $CFED 
RTS 
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Nummer der Schreibkanals (18) 
als aktuelle Sekundäradresse setzen 
Kanal suchen und öffnen 
LED am aktuellen Laufwerk einschalten 
Typ der dazugehörenden Datei holen 
liegt eine Relative Datei vor ? 

ja, Flag für 'Datei nicht geschlossen! 
Löschen 
aktuelle Sekundäradresse holen 
mit Nummer für Kommandokanal vergleichen 
ist Kommandokanal verlangt ? 
nein, immer Sprung nach $CBBF 


letzte Sekundäradresse 

Nummer des Kanals holen 

und auf Kommandokanal prüfen 

wurde Dateikanal angewählt 
aktuellen Dateityp holen 

liegt 'REL! oder 'USR'! vor ? 

nein, aktuelles Datenbyte holen und 
in aktuellen Puffer schreiben 

ist Typ eine relative Datei ? 

ja, Byte in aktuellen Record übernehmen 
aktuelles Datenbyte holen und 

in Puffer schreiben 

Nummer des aktuellen Kanals holen 
nächstes Byte zur Ausgabe holen 
höchste Kanalnummer (4) 

als Nummer für Kommandokanal setzen 
Pufferzeiger initialisieren 

auf Wert für Ende des Puffers prüfen 
ist Puffer voll ? 

nein, aktuelles Datenbyte holen 

und in Puffer übertragen 

Flag für letztes Byte (EOI) testen 
keine weiteren Daten ? 

ja, zurück zur aufrufenden Routine 
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crepl EE 55 02 INC $0255 Befehlsmodusflag löschen 


. CFFO 60 RTS zurück zur aufrufenden Routine 
[CD87/CFDO/CFES/D19D/D1B0/D 1B5/DAAB/DAAD/DABB/DACO/DAC5S/D74D/D754/D75B] 
[DB73/DB95/DBYY/ECBE/ECC3/ECCB/ECCB/ECDI/ECD6/ECET/ECEC/ECEF/ECFA/EDOO] 
LEDOS/ED26/ED2C/ED3D/ED4O/EDA3/EDSE/CFFD:DD9Y2] 

Byte in aktuellen Puffer schreiben 


CFF1 48 PHA Byte merken 

CFF2_ 20 93 DF JSR $DF93 Nummer des Puffers holen 

CFF5 10 06 BPL $CFFD ist Puffer richtig zugeordnet ? 
CFF7_ 68 PLA nein, Stack korregieren 

CFF8 A9 61 LDA #861 Fehlermeldung 

CFFA_ 4C C8 C1 JMP $C1C8 161 File Not Open! ausgeben 

CFFD OA ASL A Puffernummer verdoppeln 

CFFE AA TAX und merken 

CFFF 68 PLA Byte wieder holen 

D000 81 99 STA ($99,X) und in aktuellen Puffer schreiben 
D002 F6 99 INC $99,X Pufferzeiger auf nächstes Zeichen setzen 
DO04 60 RTS zurück zur aufrufenden Routine 


[Einsprung über Routine C146] 
Routine für Initialize-Befehl ('!i') 


D005 20 DI C1 JSR $C1D1 Parameter holen 

D008 20 42 DO JSR $D042 BAM von Diskette einlesen 

DOOB 4C 94 C1 JUMP $C194 Rückmeldung bereitstellen und beenden 
[C64C/D048] 

aktuelles Laufwerk initialisieren 

DOOE 20 OF Fi JSR $FIOF Kanalnummer holen 

DO11 A8 TAY und merken 

DO12 B6 A7 LDX $A7,Y entsprechenden Pufferstatus holen 
DO14 EO FF CPX #5FF mit Flagwert für 'belegt' vergleichen 
D016 DO 14 BNE $DO2C ist Puffer frei ? 

DO18 48 PHA Ja, Kanalnummer merken 

D019 20 8E D2 JSR $D28E Puffer suchen und Zeiger setzen 

DOIC AA TAX Nummer des Puffers holen 

DO1D 10 05 BPL $0024 wurde Puffer gefunden ? 

DOIF A9 70 LDA #70 nein, Fehlermeldung 

D0O21. 20 48 E6& JSR $E648 ‘70 No Channel! ausgeben 

D024 68 PLA Kanalnummer wieder holen 


D025 AB TAY und merken 
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D026 BA TXA Puffernummer holen 
D027 09 80 ORA #$80 Flagwert für Puffer aktiv 
D029 99 A7 00 STA $00A7,Y in Kanal -Puffer-Tabelle schreiben 
DO2C 8A TXA Puffernummer holen 
DO2D 29 OF AND #$0F und Flags ausblenden 
DO2F 85 FY STA $F9 aktuelle Puffernummer merken 
D031 A2 00 LDX #%00 aktuelle Sektornummer 
D033 86 81 STX $81 setzen 
: D035 AE 85 FE LDX $FE85 Nummer der Directoryspur 
D038 86 80 STX $80 als aktuelle Spurnummer setzen 
DO3A 20 D3 D6 JSR $D6D3 Spur und Sektor für Jobschleife setzen 
DO3D A9 BO LDA #%$B0O Jobceode für '!Sektor suchen! 
DO3ZF 4C E5 A6 JMP $A5C5 Diskette initialisieren 


[8FE1/907C/C666/D008/D828/E63E/ED8T/EE46/EEBI] 
BAM in Puffer lesen 


D042 20 D1 FO JSR $FOD1 Spurnummer der BAM löschen 

D045 20 13 D3 JSR $D313 Kanäle des anderen Laufwerks schließen 
D0O48 20 0OE DO JSR $DOOE Laufwerk initialisiern 

DO4AB AS 7F LDX $7F aktuelle Laufwerksnummer holen 

DO4AD A9 00 LDA #00 und dazugehöriges Flag für 

DOAF 9D 51 02 STA $0251,X ıBAM gültig! setzen 

D052 8A TXA Laufwerksnummer 

D053 DA ASLA verdoppeln (da Zeiger für 2 Laufwerke) 
D0O54 AA TAX und merken 

D055 AS 16 LDA $16 erstes Zeichen der ID aus Blockheader 
D057 95 12 STA $12,X holen und merken 

D059 AS 17 LDA $17 zweites Zeichen der ID aus Blockheader 
DO5B 95 13 STA $13,X holen und übernehmen 

DOSD 20 67 A6 JSR $A667 BAM von Diskette lesen 

D060 AS F9 LDA $F9 Nummer des aktuellen Puffers 

D062 DA ASL A und verdoppeln 

D0O63 AA TAX (da Adresse aus zwei Bytes besteht) 
D064 A9 02 LDA #802 Pufferadresse Low-Byte 

D066 95 99 STA $99,X in Tabelle dem Puffer zuordnen 

D068 A1 99 LDA ($99,X) Byte aus Puffer holen 

DO6A A6 7F LDX $7F aktuelles Laufwerk holen 

DO6C 9D 01 01 STA $0101,X Byte als Formatkennzeichen speichern 
DO6F A9Y 00 LDA #%00 Flags für Diskwechsel löschen und Flag 
D071 4C 1D AA JMP $AA1D für Laufwerk bereit setzen 


DO74 EA NOP unbenutztes Byte 
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[A83B/AA22/EEF1] 

Gesamtzahl der freien Blocks berechnen 

DO75 20 3A EF JSR $EF3A Pufferadresse in Zeiger $6D/$6E setzen 

D078 AO 04 LDY #504 Pufferzeiger auf Beginn der BAM setzen 

DO7A A9 00 LDA #800 Blockzähler 

DO7C, AA TAX initialisieren 

poro! 18 CLC Zahl der freien Blocks des Tracks 

DOTE 71 6D ADC ($6D),Y aus BAM holen und zu Zähler addieren 

DO80 90 01 BCC $D083 ist ein Übertrag entstanden ? 

DO82_ E8 INX ja, High-Byte des Zählers erhöhen 

D083” C8 INY Pufferzeiger auf 

D084 C8 INY die Zahl der freien 

D085 C8 . INY Blocks der nächsten Spur 

D086 CB INY setzen und Sektor-Bitmuster überspringen 
-D087 CO 48 CPY #848 Zeiger auf Position von Spur 18 prüfen 

D089 FO F8 BEQ $D083 steht der Zeiger auf Wert für Spur 18 ? 

DO8B CO 90 CPY #590 nein, auf Stelle der letzten Spur testen 

DO8D DO EE BNE $D07D freie Blöcke aller Spuren addiert ? 

DO8F 48 PHA ja, Blockzähler (Low-Byte) merken 

DO9O 8A TXA High-Byte des Blockzählers holen 

D091 A6 7F LDX $7F Nummer des Laufwerks holen und freie 

D093 9D FC 02 STA $O2FC,X Blocks des Laufwerks merken 

DO9Y6 68 PLA Low-Byte der freien Blocks holen 

D097 4C 51 A9 JUMP $A9Y51 Zahl der freien 1571 Blocks berechnen 

DO9A 60 RTS zurück zur aufrufenden Routine 

[DOAF/DC57] 

Sektor von Diskette in Puffer lesen 

DO9B 20 DO D6 JSR $D6DO Spur- und Sektornummer an Jobschleife 

DOYE 20 C3 DO JSR $DOC3 Jobcode für '!Sektor lesen! übergeben 

DOA1I 20 99 D5 JSR $D599 warten bis Sektor in Puffer gelesen ist 

DOA4 20 37 DI JSR $0137 erstes Byte aus Puffer holen und als 

DOA7 85 80 STA $80 Spur des nächsten Sektors merken 

DOA9 20 37 DI JSR $0137 nächstes Byte aus Puffer holen und als 

DOAC 85 81 STA $81 Sektornummer des nächsten Sektors setzen 


DOAE 60 RTS zurück zur aufrufenden Routine 
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[E2CD] 

angegebenen Sektor und Folgesektor einlesen 

DOAF 20 9B DO JSR $DO9B Sektor von Diskette lesen 

DOB2 A5 80 LDA $80 Spurnummer des nächsten Sektors holen 
DOB4 DO 01 BNE $DOB7 weiterer Sektor vorhanden ? 

DOB6 60 RTS nein, zurück zur aufrufenden Routine 
DOB7 20 IE CF  JSR $CFiE noch einen Puffer belegen und 

DOBA 20 DO D6 JSR $DEDO Parameter des nächsten Sektors setzen 
DOBD 20 C3 DO JSR $DOC3 auch nächsten in zweiten Puffer lesen 
DOCO AC IE CF JMP $CFiE ersten Puffer wieder aktivieren 
[DOYE/DOBD/D 189] 

Sektor von Diskette lesen 

DOC3 AY 80 LDA #880 Jobcode für !Sektor lesen! festlegen 
DOC5 DO 02 BNE $DOC9 immer Sprung nach $D0C9 

[D18B8/D4B0/DBIC] 

Sektor auf Diskette schreiben 

DOC7. AY 90 LDA #%90 Jobcode für 'Sektor schreiben! setzen 
poc9] 8D 4D 02 STA $024D Jobcode merken 

DOCC 20 93 DF JSR $DF93 Nummer des aktuellen Puffers holen 
. DOCF AA TAX und merken 

DODO 20 06 D5 JSR 80506 Spur- und Sektornummer überprüfen 
DOD3 8A TXA Puffernummer wieder holen 

DOD4 48 PHA und retten 

DOD5 OA ASL A Nummer verdoppeln 

DOD6 AA TAX (da 2-Byte-Werte) 

DOD7 A9 00 LDA #800 Pufferadresse (Low-Byte) 

DOD9 95 99 STA $99,X zurücksetzen 

DODB 20 25 DI JSR $D125 aktueller Dateityp holen 

DODE CY 04 CMP #304 auf Kennzeichen für SEQ-Datei prüfen 
DOEO BO 06 BCS $DOE8 gehört Sektor zu SEQ-Datei ? 

DOE2 F6 B5 INC $B5,X Zahl der belegten Blocks der Datei +1 
DOE4 DO 02 BNE $DOE8 ist ein Übertrag entstanden ? 

DOE6_ F6 BB INC $BB,X ja, High-Byte des Blockzählers +1 
DOES" 68 PLA Puffernummer wieder holen 

DOE9 AA TAX und setzen 


DOEA 60 RTS zurück zur aufrufenden Routine 
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[81EB/C6E2/C9IC3/CBA5/CDE7/D39B/DIOE/DE36/E2OF/E680/EIOA] 
Kanal zum Lesen öffnen 


DOEB A5 83 LDA $83 aktuelle Sekundäradresse holen 

DOED CY 13 CMP #813 und mit max. Sekundäradresse vergleichen 
DOEF 90 02 BCC $DOF3 ist Adresse im erlaubten Bereich ? 

DOF1. 29 OF AND #$0F Sekundäradresse auf Bereich von 0 bis 15 
vorz1 c9 OF CMP #$0F begrenzen und auf Kanal 15 prüfen 

DOF5 DO 02 BNE $DOF9Y ist der Kommandokanal angesprochen ? 
DOF7. AY 10 LDA #810 ja, Sekundäradresse 16 (Fehlerkanal) 
porgl AA TAX setzen 

DOFA 38 sEC Flag für 'Kanal nicht zum Lesen! 

DOFB BD 2B 02 LDA $0228,X Status des Kanals prüfen 

DOFE 30 06 BMI $D106 ist Kanal im Lesemodus ? 

D100 29 OF AND #$0F ja, interne Kanalnummer herstellen 

D102 85 82 STA $82 als aktuelle Kanalnummer setzen 

D104 AA TAX und merken 

D105. 18 CLC Flag für 'Kanal eröffnet! setzen 

D106 60 RTS zurück zur aufrufenden Routine 


[8343 /CA63/CFYF/DB1B/DCA3/E688/EA2F] 
Kanal suchen und öffnen 


D107 AS 83 LDA $83 aktuelle Sekundäradresse holen 

D109 C9Y 13 CMP #$13 und mit maximalem Wert (19) vergleichen 
D108B 90 02 BCC $D10F ist Adresse im erlaubten Bereich ? 
DIOD, 29 OF AND #$0F nein, dann auf Bereich umrechnen 
pior! AA TAX und merken 

D110 BD 2B 02 LDA $022B,X entsprechenden Kanalstatus holen 

D113 A8 TAY und merken 

D114 OA ASLA Status zum testen von Bit 6/7 richten 
D115 90 OA BCC $D121 ist Flag für Schreiben gesetzt ? 

D117. 30 0A BMI $D123 ja, ist Flag für Lesen gesetzt ? 
pigl 98 TYA nein, Kanalstatus wieder holen 

D11A 29 OF AND #%$0F reine Kanalnummer herstellen 

DI1IC 85 82 STA $82 als aktuellen Kanal setzen 

DIIE AA TAX und merken 

DI1F 18 CLC Flag für 'Kanal geöffnet! setzen 

D120_ 60 RTS zurück zur aufrufenden Routine 

D121,. 30 F&6 BMI $D119 ist Flag für Lesen gesetzt ? 

D123° 38 SEC ja, Flag für 'Kanal nur lesen! setzen 


D124 60 RTS zurück zur aufrufenden Routine 
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[C9I7I/CICE/CYE2/CA2B/CA4B/CFAT/CFAS/CFBF/DODB/D3AC/D3CO/DB10/DBDE] 
[E21E/E68E] 
Aktuellen Dateityp holen 


D125 A6 82 LDX $82 Nummer des aktuellen Kanals holen 

D127 B5 EC LDA $EC,X und dazugehörigen Dateityp holen 

D129 4A LSR A Laufwerksnummer ignorieren 

D12A 29 07 AND #%07 Kennzeichen für Dateityp herstellen 

D12C C9 04 CMP #$04 mit Kode für REL-Datei vergleichen 
 DI2E 60 RTS zurück zur aufrufenden Routine 


[CD3C/CDC9/D137/D3DE/EO1D/E127/E138/E156] 
Kanal- und entsprechende Puffernummer holen und setzen 


D12F 20 93 DF JSR $DF93 Nummer des aktuellen Puffers holen 
D132 OA ASL A und verdoppeln 

D133 AA TAX als Zeiger auf 2-Byte-Werte merken 
D134 A4 82 LDY $82 als aktuelle Kanalnummer speichern 
D136 60 RTS zurück zur aufrufenden Routine 


[DOA4/DOA9/D156/D 172/D17B/D192/0433/DAAA/DEYA/DE9YF/EDST/EDF3/EDFE] 
Byte aus aktuellem Puffer holen 


D137 20 2F DI JSR $D12F Kanal- und Puffernummer setzen 
D13A BY 44 02 LDA $0244,Y Zeiger auf Pufferende 
D13D FO 12 BEQ $D151 ist letztes Byte des Puffers gelesen ? 
DI3F A1 99 LDA ($99,X) nein, Byte aus Puffer holen 
D141 48 PHA und merken 
D142 B5 99 LDA $99,X Pufferzeiger (Low-Byte) holen 
D144 DY 44 02 CMP $0244,Y und auf logisches Pufferende prüfen 
D147 DO 04 BNE $D14D Ende des gültigen Puffers erreicht ? 
D149 A9 FF LDA #5FF Ja, Pufferzeiger auf physikalisches 
D148, 95 99 STA $99,X Pufferende setzen 
D1401 68 PLA und Datenbyte wieder holen 
DI4E F6 99 INC $99,X Pufferzeiger auf Pufferanfang setzen 
D150, 60 RTS zurück zur aufrufenden Routine 
D151l Al 99 LDA ($99,X) letztes Byte aus Puffer holen und 

- D153 F6 99 INC $99,X Pufferzeiger wieder auf Anfang setzen 
D155 60 RTS zurück zur aufrufenden Routine 


[C899Y/CBE9E/DA0O0/DA5SC/DCA9] 

Byte aus Datei holen 

D156 20 37 Di  JSR $0137 Byte aus Puffer holen 

D159 DO 36 BNE $D191 war das das letzte Byte des Puffers ? 


Das 


D15B 
D15D 
D160 
D162 
D164 
D167 
D169 
D16A 
D16D 
D16F 
D172 
D175 
D177 
D179 
D17B 
D17E 
D180 
D183 
D186 
D189 
D18C 
DI8F 
D191 
D192 


l 


[ICFC6/D1A3:DA3D] 


roße Flo 


85 85 
B9 44 02 
FO 08 

A9 80 
99 F2 00 
A5 85 

60 

20 1E CF 
A9 00 

20 C8 D4 
20 37 D1 
c9 00 

FO 19 

85 80 

20 37 D1 
85 81 

20 1E CF 
20 D3 D1 
20 DO D6 
20 c3 DO 
20 1E CF 
A5 85 

60 

20 37 D1 
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STA $85 


LDA $0244,Y 


BEQ $DI6A 
LDA #80 


STA $00F2,Y 


LDA $85 
RTS 

JSR $CFIE 
LDA #$00 
JSR $D4C8 
JSR $0137 
CMP #00 
BEQ $D192 
STA $80 


JSR $D137 


STA $81 
JSR $CFiE 
JSR $D1D3 
JSR $DEDO 
JSR $DOC3 
JSR $CFIE 
LDA $85 
RTS 

JSR $D137 
LDY $82 


STA $0244,Y 


LDA $85 


Byte in Datei schreiben 


D19D 
D1AO 
D1A2 
D1A3 
DIA6 
D1AY 
DIAB 
DIAE 
D1BO 
D1B3 


20 Fi CF 
FO 01 

60 

20 D3 D1 
20 1E Fi 
A9 00 

20 C8 D4 
A5 80 

20 Fi CF 
A5 81 


JSR $CFF1 
BEQ $D1A3 
RTS 

JSR $D1D3 
JSR $FI1E 
LDA #%00 
JSR $DACB 
LDA $80 
JSR $CFF1 
LDA $81 
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Ja, Datenbyte merken 

Zeiger auf gültigen Pufferbereich holen 
ist das physikalische Ende erreicht ? 
nein, Flag für 'Lesen! 

in Kanalstatustabelle setzen 

Datenbyte wieder holen 

zurück zur aufrufenden Routine 

logisch nächsten Sektor einlesen 
Pufferzeiger 

zurücksetzen 

erstes Byte aus Sektor holen und auf 
Kennzeichen für 'letzter Sektor' prüfen 
kein weiterer Sektor vorhanden ? 

nein, Spurnummer des nächsten Sektors 
zweites Byte aus Sektor holen 

und als Sektornummer speichern 

noch ein Puffer belegen 

Puffer- und Laufwerksnummer setzen 
Spur- und Sektornummer an Jobschleife 
Sektor in Puffer lesen 

auf vorherigen Puffer zurückschalten 
Datenbyte wieder holen 

zurück zur aufrufenden Routine 

Byte aus Puffer holen 

Nummer des aktuellen Kanals holen 

Zahl der zu übertragenden Bytes setzen 
Datenbyte wieder holen 

zurück zur aufrufenden Routine 


Datenbyte in Puffer schreiben 

ist Puffer jetzt voll ? 

nein, zurück zur aufrufenden Routine 
Puffer- und Laufwerksnummer setzen 
nächsten freien Sektor aus BAM holen 
Pufferzeiger auf Verkettungsbytes 

des Sektors setzen 

Spurnummer des nächsten Sektors in 
Verkettungsbytes des Sektors schreiben 
Nummer des nächsten Sektors in 


20 Fi CF 
20 C7 DO 
20 1E CF 
20 DO D6 
A9 02 

4c C8 DA 
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JSR SCFF1 Verkettungsbytes des Sektors schreiben 
JSR $D0C7 Sektor auf Diskette schreiben 

JSR $CFiE auf nächsten Puffer wechseln 

JSR $D6DO Spur- und Sektornummer für Job setzen 
LDA #%02 Pufferzeiger auf Start des Datenbereichs 
JMP $D4C8 ‚setzen 


[C623] 


aktuellen Pufferzeiger auf nächstes Zeichen setzen 


D1C6 
D1C8 
DICB 


85 6F 
20 EB D4 


STA $6F neue Position des Zeigers merken 

JSR $D4EB Zeiger des aktiven Puffers setzen 
CLC Ä und zu dem neuen 

ADC $6F Zeigerwert addieren 

STA $99,X neuen Wert in Low-Byte des Zeigers 
STA $94 und Directorypufferzeiger übernehmen 
RTS zurück zur aufrufenden Routine 


[CA53/CA66/CF26/D183/DIA3/EOSC/E31ICI 
Nummer des dem Puffer zugeordneten Laufwerks holen 


D1D3 
D1D6 


20 93 DF 
AA 

BD 5B 02 
29 01 

85 7F 

60 


JSR $DF93 Nummer des Puffers feststellen 

TAX und merken 

LDA $025B,X entsprechenden Jobcode aus Tabelle holen 
AND #$01 und daraus Laufwerksnummer herstellen 
STA $7F und als aktuelles Laufwerk speichern 

RTS zurück zur aufrufenden Routine 


[DCDF] 


Schreibkanal und Puffer suchen 


DIDF 
DIEO 


38 
BO 01 


SEC Flag für Schreiben setzen 
BCS $D1E3 immer Sprung nach $D1E3 


[Y1DO/CBYA/CBDF/DCAB/ECAA/D2OF:DCTE ‚DD13] 
Lesekanal und Puffer suchen 


DIE2 
DIE3 
DIE4 
D1E6 
DIEY 
DIEC 
DIEE 
D1IFO 


18 

08 

85 6F 

20 27 D2 
20 7F D3 
85 82 
A6 83 

28 


CLC Flag für Lesen setzen 

PHP Flag merken 

STA $6F Zahl der zu suchenden Puffer 

JSR $0227 alle Kanäle löschen 

JSR $D37F nächsten freien Kanal suchen und belegen 
STA $82 Nummer des Kanals merken 

LDX $83 Sekundäradresse holen 


PLP Flag für Lesen/Schreiben wieder holen 
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BCC $DIF5 


DIF1 90 02 soll Lesekanal geöffnet werden ? 
DIF3_ 09 80 ORA #80 nein, Flag für 'Schreiben! setzen 
D1r5l 90 2B 02 STA $0228,X und in Statustabelle schreiben 
DIF8 29 3F AND #%3F Nummer des internen Kanals herstellen 
DIFA A8 TAY und merken 
DIFB AY FF LDA #$FF zugehörige Puffer 
DIFD 99 A7’ 00 STA $00A7,Y eins und 
D200 99 AE 00 STA $OOAE,Y zwei freigeben 
D203 99 CD 00 STA $00CD,Y dritten Puffer freigeben 
. D206 C6 6F DEC $6F Zahl der zu suchenden Puffer erniedrigen 
D208 30 1C BMI $D226 genügend Puffer gefunden ? 
D20A 20 8E D2 JSR $D28E nein, freien Puffer suchen 
D20D. 10 08 BPL $D217 wurde ein Puffer gefunden ? 
D20F> 20 5A D2 UJSR $D25A nein, Puffer freigeben 
D212 A9 70 LDA #$70 Fehlermeldung 
D214. 4C C8 CI JMP $C1C8 ı70 No Channel’! ausgeben 
D217° 99 A7T 00 STA $00A7,Y Nummer des Puffers in Belegungstabelle 
D21A C6 6F DEC $6F Zahl der zu suchenden Puffer erniedrigen 
D21C 30 08 BMI $0226 genügend Puffer gefunden ? 
D21E 20 8E D2 JSR $D28E nein, nächsten Puffer suchen 
D221 30 EC BMI $D20F wurde ein freier Puffer gefunden 
D223_ 99 AE 00 STA $O0AE,Y ja, Puffernummer merken 
D226” 60 RTS zurück zur aufrufenden Routine 


[C8AA/D1E6/D308B/D331/D4DE/D4ES/DACE/DB29/DB5SF/E6YS/EEOI] 
Kanal freigeben 


D227 AS 83 LDA $83 aktuelle Sekundäradresse holen und 
D229 C9 OF CMP #S0F mit Wert für Kommandokanal vergleichen 
D22B DO 01 BNE $D22E ist Kanal 15 aktiv ? 

D22D, 60 RTS ja, zurück zur aufrufenden Routine 
p22e 1 A6 83 LDX $83 aktuelle Sekundäradresse holen 

D230 BD 2B 02 LDA $022B,X dazugehörigen Kanalstatus feststellen 
D233 CY FF CMP #$FF auf Wert für 'Kanal unbenutzt' prüfen 
D235 FO 22 BEQ $D259 ist Kanal frei ? 

D237 29 3F AND #$3F nein, Kanalnummer herstellen 

D239 85 82 STA $82 und merken 

D23B A9 FF LDA #&FF Flagwert für 'Kanal und Puffer frei' 
D23D 9D 2B 02 STA $022B,X in Kanaltabelle speichern 

D240 A6 82 LDX $82 aktuelle Kanalnummer wieder holen 
D242 AY 00 LDA #$00 Flags in 

D244 95 F2 STA $F2,X Kanaltabelle für Kanalstatus löschen 
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D246 20 5A D2 
D249 A6 82 
D24B. A9 01 
D24D° CA 

D24E 30 03 
D250 OA 

D251. DO FA 
D253° 0D 56 02 
D256. 8D 56 02 
D259 60 


JSR $D25A 
LDX $82 
LDA #$01 
DEX 

BMI $D253 
ASL A 

BNE $D24D 
ORA $0256 
STA $0256 
RTS 
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dazugehörigen Puffer freigeben 

Nummer des aktuellen Kanals 

Bitflag für 'Kanal frei' 

Nummer des Kanals erniedrigen 

ist Flag an richtiger Position ? 

nein, Bitflag in Bitmuster einschieben 
immer Sprung nach $D24D 

Flag in Bitverzeichnis der belegten 
Kanäle schreiben 

zurück zur aufrufenden Routine 


[D20F/D246] 


Puffer und zugehörigen Kanal freigeben 


D25A A6 82 
D25C B5 A7 
D25E C9 FF 
0260 FO 09 
D262 48 

D263 A9 FF 
D265 95 a7 
D267 68 

D268. 20 F3 D2 
p26Bl A6 82 
D26D B5 AE 
D26F C9 FF 
D271 FO 09 
D273 48 

D274 A9 FF 
D276 95 AE 
D278 68 

D279. 20 F3 D2 
p2rcl a6 82 
D27E B5 CD 
D280 C9 FF 
D282 FO 09 
D284 48 

D285 A9 FF 
D287 95 CD 
D289 68 

D28A. 20 F3 D2 


p2ao | 60 


LDX $82 
LDA $A7,X 
CMP #&FF 
BEQ $D26B 
PHA 

LDA #$FF 
STA $A7,X 
PLA 

JSR $D2F3 
LDX $82 
LDA $AE,X 
CMP #$FF 
BEQ $D27C 
PHA 

LDA #$FF 
STA $AE,X 
PLA 

JSR $D2F3 
LDX $82 
LDA $CD,X 
CMP #$FF 
BEQ $D28D 
PHA 

LDA #$FF 
STA $CD,X 
PLA 

JSR $D2F3 
RTS 


aktuelle Kanalnummer holen 

und Puffernummer des Kanals feststellen 
mit Wert für '!Puffer frei’! vergleichen 
ist Puffer dem Kanal zugeordnet ? 

ja, Nummer des Puffers merken 

und Puffer in 

Puffertabelle freigeben 

Puffernummer wieder holen 
Pufferbelegung freigeben 

Nummer des aktuellen Kanals 

Nummer des entsprechenden Puffers holen 
und auf Wert für 'nicht belegt! prüfen 
ist der Puffer frei ? 

nein, Puffernummer merken 

Puffer des Kanals 

freigeben 

und aktuelle Puffernummer wieder holen 
Puffer in Belegungstabelle freigeben 
Nummer des aktuellen Kanals holen 

und entsprechende Puffernummer holen 
mit Wert für Puffer inaktiv vergleichen 
ist der Puffer benutzt ? 

ja, Nummer des Puffers merken 

und Zuordung des Puffers zum 

aktuellen Kanal löschen 

Puffernummer wieder holen 

und Puffer in Belegungstabelle freigeben 
zurück zur aufrufenden Routine 
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[CF29/CF83/D019/D20A/D21E/DC79/DDOE/FOETI 
Puffer suchen 


D28E 98 TYA Nummer des Puffers holen 
D28F 48 PHA und merken 
D290 AO 01 LDY #801 einen freien 
D292 20 BA D2 JSR $D2BA Puffer suchen 
D295 10 0C BPL $D2A3 wurde ein Puffer gefunden ? 
D297 88 DEY nein, Puffernummer auf nächsten Puffer 
D298 20 BA D2 JSR $D2BA setzen und nochmal Puffer suchen 
D29B 10 06 BPL $D2A3 wurde jetzt ein Puffer gefunden ? 
D29D 20 39 D3 JSR $D339 nein, freien Puffer holen 
D2AD AA TAX Puffernummer merken 
D2Ai_ 30 13 BMI $D286 wurde ein Puffer gefunden ? 
D2A3” B5 00 LDA $00,X ja, letzten Jobcode des Puffers holen 
D2A5 30 FC BMI $D2A3 ist Job schon fertig ausgeführt ? 
D2A7 AS 7F LDA $7F ja, aktuelle Laufwerksnummer holen 
D2A9 95 00 . STA $00,X Rückmeldung der Jobschleife entfernen 
D2AB 9D 5B 02 STA $025B,X und Speicher für letzten Jobcode löschen 
D2AE 8A TXA Nummer des Puffers holen 
D2AF OA ASL A und verdoppeln (da nachfolgende Adressen 
D2B0 A8 TAY aus Zwei-Byte-Werten bestehen) 

D2B1 A9 02 LDA #02 Pufferzeiger auf Start des Datenbereichs 
D2B3. 99 99 00 STA $0099,Y Zeiger für Puffer neu setzen 
D2B6 68 PLA Nummer des Puffers wieder herstellen 
D2B7 AB TAY und merken 
D2B8 8A TXA Nummer des gefundenen Puffers setzen 
D2B9 60 RTS zurück zur aufrufenden Routine 
[D292/D298] 
freien Puffer suchen 
D2BA, A2 07 LDX #807 Zahl der Bits pro Byte -1 (da 'BPL') 
D2BC BY AF 02 LDA $024F,Y Bitmuster der Belegungstabelle holen 
D2BF 3D E9 EF AND $EFEY,X entsprechendes Bit des Puffers holen 
D2C2 FO 04 BEQ $D2C8 ist der Puffer belegt 
D2C4 CA DEX ja, Zähler für Puffer auf nächstes Bit 
D2C5 10 F5 BPL $D2BC schon alle Bits getestet ? 
D2C7_ 60 RTS ja, zurück zur aufrufenden Routine 
D2cal B9 AF 02  LDA $024F,Y Orginalbyte der Belegungstabelle holen 


D2cB 5D E9 EF EOR $EFE9,X 
D2CE 99 4F 02  STA $024F,Y 


und entsprechendes Bit des Puffers 
setzen und Byte wieder zurückschreiben 
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Nummer des gefundenen Puffers holen 
Zeiger auf nächste Verzeichnisbyte 
schon alle beide bearbeitet ? 

nein, neue 

Puffernummer berechnen 

Puffernummer als Kanalnummer merken 
zurück zur aufrufenden Routine 


Nummer des aktuellen Kanals holen 

und zugehörigen Puffer feststellen 

ist Puffer belegt ? 

ja,, Nummer des Kanals wieder holen 

und für zweiten Puffer 

umrechnen 

und merken 

zugehörige Puffernummer holen 

ist Puffer belegt ? 

nein, auf Wert für 'Puffer frei' prüfen 
ist der Puffer als frei gekennzeichnet ? 
nein, Puffernummer merken 

Wert für 'Puffer frei! für 

den aktuellen Kanal setzen 

und Puffernummer wieder holen 


reiner Puffernummer 

herstellen und 

merken 

Zahl der Puffer 

Bitverzeichnis der Pufferbelegung 
bis zum Bit des Puffers verschieben 
Zeiger auf nächsten Puffer 

noch ein Puffer weiter ? 

nein, Flag für 'Puffer frei' setzen 
Bitverzeichnis wieder herstellen 
sind Bits wieder in Ausgangsposition ? 
Ja, zurück zur aufrufenden Routine 


D2D1 8A TXA 

D2D2 88 DEY 

D2D3 30 03 BMI $D2D8 

D2D5 18 CLC 

D2D6, 69 08 ADC #808 

D2D8_ AA TAX 

D2D9” 60 RTS 

[E2BC/E2BF] 

alle inaktiven Puffer freigeben 

D2DA A6 82 LDX $82 

D2DC B5 A7 LDA $A7,X 

D2DE 30 09 BMI $D2E9 

D2EO 8A TXA 

D2E1 18 CLC 

D2E2 69 07 ADC #%07 

D2E4 AA TAX 

D2E5S B5 A7 LDA $A7,X 

D2E7, 10 FO BPL $D2D9 

p2e91 C9 FF CMP #S$FF 

D2EB FO EC BEQ $D2D9 

D2ED 48 PHA 

D2EE AY FF LDA #$FF 

D2FO 95 A7 STA $A7,X 

D2rF2 68 PLA 

[D268/D279/D28A] 

Puffer in Bitverzeichnis freigeben 

D2F3 29 OF AND #$0F 
'D2F5 A8 TAY 

D2F6 C8 INY 

D2F7_ A2 10 LDX #810 

D2F9 6E 50 02 ROR $0250 

D2FC 6E AF 02 ROR $024F 

D2FF 88 DEY 

D300 DO 01 BNE $D303 

D302. 18 CLC 

D303 CA DEX 

D304 10 F3 BPL $D2F9 

D306 60 RTS 
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[84D8/8C64/EE36] 

Kanäle O0 bis 14 schließen 

D307 A9 OE LDA #$0E zähler für Kanalnummer 

D309 85 83 STA $83 als aktuelle Sekundäradresse setzen 
D30B° 20 27 D2 JSR $0227 und Kanal schließen 

D30E C6 83 DEC $83 Zähler auf nächste Kanalnummer setzen 
D310 DO F9 BNE $D30B schon alle Kanäle geschlossen ? 

D312 60 RTS ja, zurück zur aufrufenden Routine 
[DO45S/EC55/EC66] 

alle Kanäle des aktuellen Laufwerks freigeben 

D313 A9 ODE LDA #$0E Zähler für Kanalnummer 

D315, 85 83 STA $83 Kanalnummer als aktuelle Sekundäradresse 
0317! A6 83 LDX $83 merken und setzen 

D319 BD 2B 02 LDA $022B,X dazugehörigen Status holen 

D31C C9Y FF CMP #$FF und auf Wert für 'Kanal frei' prüfen 
D31E FO 14 BEQ $D334 ist Kanal belegt ? 

D320 29 3F AND #&3F ja, reine Kanalnummer herstellen 
D322 85 82 STA $82 und speichern 

D324 20 93 DF JSR $DFY3 Nummer des Puffers holen 

D327 AA TAX und merken 

D328 BD 5B 02 LDA $025B,X Jobcode für Puffer holen und daraus 


D32B 29 01 AND #801 Laufwerksangabe isolieren 

D32D C5 7F CMP $7F auf Wert des aktuellen Laufwerks prüfen 

D32F DO 03 BNE $D334 gehört Kanal zum anderen Laufwerk ? 

D331_ 20 27 D2 JSR $D227 nein, Kanal freigeben 

03342 C6 83 DEC $83 zähler für Kanäle auf nächsten Kanal 

D336 10 DF BPL $D317 schon alle Kanäle bearbeitet ? 

D338 60 RTS ja, zurück zur aufrufenden Routine 

[D29D] 

freien Puffer holen 

D339 AS 6F LDA $6F Nummer des Kanals holen 

D33B 48 PHA und merken 

D33C,. AD 00 LDY #800 Zähler für Kanalnummer auf Startwert 
 D33E B6 FA LDX $FA,Y Nummer des Kanals holen 

D340 B5 A7 LDA $A7,X Nummer des zugeordneten Puffers holen 

D342 10 04 BPL $D348 ist Puffer verwendet ? 

D344 C9 FF CMP #SFF nein, auf Wert für 'Puffer frei' prüfen 

D346_ DO 16 BNE $D35E ist Puffer frei ? 

D348° BA TXA ja, Kanalnummer wieder holen 


D349 18 CLC und für Zugriff auf 

D34A 69 07 ADC #07 zweiten Puffer umrechen 

D34C AA TAX und merken 

D345D B5S A7 LDA $A7,X entsprechende Puffernummer holen 

D34F 10 04 BPL $D355 ist Puffer belegt ? 

D351 C9 FF CMP #$FF nein, auf Wert für 'Puffer frei' prüfen 
D353_ DO 09 BNE $D35E ist Puffer frei ? 

03552 c8 INY ja, nächsten Kanal anwählen 

D356 CO 05 CPY #05 mit maximaler Kanalzahl vergleichen 
D358 90 E4 BCC $D33E schon alle Kanäle bearbeitet ? 

D35A A2 FF LDX #SFF Flagwert für Fehler 

D35C_ DO IC BNE $D37A immer Sprung nach $D37A 

D35E2 86 6F STX $6F Nummer des Kanals setzen 

D360 29 3F AND #&3F und daraus Puffernummer herstellen 
D362_ AA TAX und merken 

D363 B5 00 LDA $00,X Jobeode des Puffers holen 

D365 30 FC BMI $D363 ist Job noch in Gang ? 

D367 C9 02 CMP #%02 nein, Rückmeldung auf 'Ok'-Wert prüfen 
D369 90 08 BCC $0373 ist Job fehlerfrei ausgeführt worden ? 
D36B AS 6F LDX $6F nein, Nummer des Kanals holen 

D36D EO 07 CPX #$07 und auf Wert für maximale Nummer testen 
D36F 90 D7 BCC $0348 ist Kanalnummer im erlaubten Bereich ? 
D371. BO E2 BCS $0355 nein, immer Sprung nach $D355 

03731 A& 6F LDY $6F Nummer des Kanals holen 

D375 A9 FF LDA #S$FF und Puffer in Pufferzuordungstabelle 
D377,. 99 A7 OO STA $00A7,Y als frei kennzeichnen 

037Al 68 PLA Einsprungskanalnummer wieder holen 
D37B 85 6F STA $6F und wieder zurücksetzen 

D37D BA TXA Puffernummer übergeben 

D37E 60 RTS zurück zur aufrufenden Routine 

[D1E9] 

freien Kanal suchen und belegen 

D37’F AO 00 LDY #%00 Zeiger initialisieren 

D381, AY 01 LDA #8%01 Bit des zu testenden Kanals 

D383 2C 56 02 BIT $0256 Bit in Kanalverzeichnis prüfen 

D386 DO 09 BNE $D391 ist Kanal frei ? 

D388 C8 INY nein, nächsten Kanal anwählen 

D389 OA ASL A Bit auf Posistion des nächsten Kanals 
D38A DO F7 BNE $0383 schon alle Kanäle geprüft ? 

D38C A9 70 LDA #%70 ja, Fehlermeldung 


Das Disk-Operating-System (DOS 


Das große Floppybuch 1571/70 | 407 


D38E, 4C C8 CI JMP SCIC8 ‘70 No Channel! ausgeben 

D391 49 FF EOR #$FF Bitflag für 'Kanal frei! invertieren 
D393 2D 56 02 AND $0256 und in Flagbyte einblenden 

D396 &D 56 02 STA $0256 Kanal belegen 
: D399 98 TYA Nummer des Kanals holen 

D39A 60 RTS zurück zur aufrufenden Routine 

[CA39] 

Byte von Kanal holen 

D39B 20 EB DO JSR $DOEB Lesekanal eröffnen 

D39E 20 00 CI JSR $C100 LED am aktuellen Laufwerk einschalten 
D3A1 20 AA D3 JSR $D3AA Byte über Kanal auslesen 

D3A4 A6 82 LDX $82 Nummer des Kanals feststellen 

D3A6 BD 3E 02. LDA $023E,X und entsprechendes Datenbyte holen 
D3A9 60 RTS zurück zur aufrufenden Routine 
[828D/D3A1/E992] 

Byte aus Datei lesen 

D3AA A6 82 LDX $82 Nummer des Kanals holen 

D3AC 20 25 DI JSR $0125 Dateityp feststellen 

D3AF DO 03 BNE $D3B4 ist Datei eine Relative Datei ? 

D3B1, 4C 20 E1 JUMP $E120 _ ja, Routine für REL-Datei 

03541 A5 83 LDA $83 Sekundäradresse holen 

D3B6 CY OF CMP #$0F und mit Kommandokanal vergleichen (15) 
D3B8 FO 5A BEQ $D414 liegt Kommandokanal vor ? 

D3BA B5 F2 LDA $F2,X nein, Status des Kanals holen 

D3BC 29 08 AND #808 und Flag für EOI testen 

D3BE DO 13 BNE $D3D3 wurde letztes Byte übertragen ? 

D3C0O 20 25 DI JSR $D125 ja, Typ der Datei feststellen und 
D3C3 CY 07 CMP #507 mit Wert für Direktzugriff vergleichen 
D3C5 DO 07 BNE $D3CE wurde ein Direktzugriffkanal eröffnet ? 
D3C7 A9 89 LDA #$89 | ja, Flagwert für Direktzugriff 

D3C9 95 F2 STA $F2,X als Kanalstatus übernehmen 

D3CB, 4C DE D3_ UJMP $D3DE Byte aus Puffer holen 

osce | A9 00 LDA #$00 Flagwert für EOI aufgetreten; Kanal 
D3D0 95 F2 STA $F2,X schließen und Belegung löschen 

D3D2, 60 RTS zurück zur aufrufenden Routine 

03031 A5 83 LDA $83 aktuelle Sekundäradresse holen 

D3D5 FO 32 BEQ $0409 soll Programm geladen werden ? 

D3D7 20 25 DI JSR $D125 nein, Dateityp feststellen 


D3DA CY 04 CMP #804 mit Wert für relative Datei vergleichen 
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D3DC 90 22 BCC $D400 identisch ? 

[D3CB/FFBO] 

Byte aus relativer Datei holen 

D3DE 20 2F DI JSR $D12F ja, Puffer- und Kanalnummer setzen 

D3E1 B5 99 LDA $99,X aktuellen Pufferzeiger holen und mit 
. D3E3 D9Y 44 02 CMP $0244,Y Endposition des Puffers vergleichen 

D3E6 DO 04 BNE $D3EC Ende des gültigen Bereichs erreicht 

D3EB A9 00 LDA #800 Pufferzeiger (Low-Byte) 

D3EA 95 99 STA $99,X wieder zurücksetzen 

[CD59/D3E6] 

nächstes Byte aus Datei holen 

D3EC F6 99 INC $99,X Pufferzeiger auf nächstes Byte setzen 

[CDCA/CFD5] 

aktuelles Byte aus Datei holen 

D3EE A1 99 LDA ($99,X) Byte aus Puffer lesen 

D3FO 99 3E 02 STA $023E,Y und als auszugebendes Byte merken 

D3F3 B5 99 LDA $99,X Pufferzeiger holen 

D3F5 D9Y 44 02 CMP $0244,Y und auf Endwert prüfen 

D3F8 DO 05 BNE $D3FF ist Ende des Datenbereichs erreicht ? 

D3FA A9Y 81 LDA #881 ja, Flagwert für !letztes Zeichen! 

D3FC. 99 F2 00 STA $00F2,Y in Kanalstatustabelle übernehmen 

D3FF_ 60 RTS zurück zur aufrufenden Routine 

D400 ° 20 56 DI JSR $D156 Zeichen aus Puffer holen 

D403° A6 82 LDX $82 Nummer des aktuellen Kanals holen 

D405 9D 3E 02 STA $023E,X und Datenbyte zur Ausgabe bereitstellen 

D408_ 60 RTS zurück zur aufrufenden Routine 

D4091 AD 54 02 LDA $0254 Flag für Directory holen 

D40C FO F2 BEQ $D400 ist Directory im Puffer ? 

D40E 20 67 ED JSR $ED67 ja, Byte aus Directory holen 

D411 4C 03 DA JMP $D403 und übergeben 

[D3B8] 

Fehlerkanal auslesen 

D414 20 E8 D4 JSR $DAEB aktuellen Pufferzeiger holen 

D417 C9 D4 CMP #%D4 mit Wert für Fehlerpuffer vergleichen 

D419 DO 18 BNE $D433 ist der Zeiger richtig gesetzt ? 

DA1B A5 95 LDA $95 ja, High-Byte des Zeigers holen 

D41D C9Y 02 CMP #802 und auf richtigen Wert prüfen 
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D4AAF DO 12 BNE $D433 ist Zeiger auf Fehlerpuffer gerichtet 
D421 A9 OD LDA #$0D ja, 'Return' 
D423 85 85 STA $85 als nächstes Byte ausgeben 
D425 20 23 C1 JSR $C123 Fehlerflags zurücksetzen 
D428 A9 00 LDA #00 Nummer der 'OK'!-Meldung 
D42A 20 C1 E6&  JSR SESCI Meldung in Fehlerpuffer schreiben 
D42D C6 A5 DEC $A5 Zeiger auf Fehlermeldungspuffer (Low) 
DA2F AY 80 LDA #80 Flag für 'Lesen! 
D431_ DO 12 BNE $0445 immer Sprung nach $D445 
D433 ° 20 37 D1 JSR $0137 Byte aus Fehlerpuffer holen 
D436 85 85 STA $85 und als auszugebendes Byte übernehmen 
D438 DO 09 BNE $D443 Ende erreicht ? 
[CB48] 
Zeiger für Fehlermeldungspuffer setzen ($02D4) 
D43A AY D4 LDA #%D4 ja, Pufferzeiger für Fehlerpuffer - 
D43C 20 C8 DA UJSR $DAC8 setzen 
: DA3F AY 02 LDA #802 Highbyte des Zeigers 
D441 95 9A STA $9A,X setzen 


[CB42/D438] Karal für Fehlermeldung initialisieren 


D443_A9 88 LDA #$88 Flag für 'Lesen'! und 'EOI' 

D445 85 F7 STA $F7 für Kanal 5 setzen 

D447 AS 85 LDA $85 Byte wieder holen und an 

D449 8D 43 02 STA $0243 Ausgabe übergeben 

D44C 60 RTS zurück zur aufrufenden Routine 
[C629/C8B0/EEO7] 

nächsten Sektor einer Datei lesen 

D44D 20 93 DF JSR $DFY3 Nummer des Puffers feststellen 

D450 OA ASL A und verdoppeln 

D451 AA TAX (da Zeigertabelle aus 2-Byte-Werten) 
D452 A9Y 00 LDA #800 Wert für Startposition in Puffer 

D454 95 99 STA $99,X in Pufferzeiger (Low-Byte) übernehmen 
D456 A1 99 LDA ($99,X) Spurnummer des nächsten Sektors holen 
D458 FO 05 BEQ $D45F kein weiterer Sektor vorhanden 

D45A D6 99 DEC $99,X Pufferzeiger auf Ende setzen 

D45C. 4AC 56 DI JMP $D156 nächsten Sektor einlesen 


D45F 60 RTS zurück zur aufrufenden Routine 
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[CD39/D720/DBC9] 

Jobcode für Sektor lesen übergeben 

D460 AY 80 LDA #$80 Jobcode für 'Sektor lesen! setzen 
D462 DO 02 BNE $D466 immer Sprung nach $D466 


[CDSC/CDID/D790/DYZA/DYBA/EEACI 
Jobeode für Sektor schreiben übergeben 


D464 A9 90 LDA #890 Jobceode für 'Sektor schreiben! setzen 
[D462] 

Jobceode (in A) ausführen 

D466 05 7F ORA $7F aktuelle Laufwerksnummer in Jobcode 
D468 8D AD 02 STA $024D setzen und Jobcode merken 

D46B A5 FY9 LDA $F9 Nummer des aktuellen Puffers holen 
D46D 20 D3 D6 JSR $D6D3 Spur- und Sektornummer übergeben 
D470 A6 FY9 LDX $F9 Nummer des aktuellen Puffers holen 
D472 4C 93 D5 JMP $D593 Jobcode setzen und Job ausführen 


[C5C1/C60E/C8B8O/CAOC/EDEB] 
Seauentielle Datei zum Lesen öffnen 


DA75 


[E7D5] 


A9 01 


LDA #801 


Datei zum Lesen öffnen 


DA77 
DATA 


[C9BO] 


Datei zum Schreiben öffenen 


D486 
D488 
DA8A 


[D730] 


8D ZA 02 
A9 11 
85 83 
20 46 DC 
A9 02 
4C C8 D4 


A9 12 
85 83 
4C DA DC 


STA $024A 
LDA #$11 
STA $83 
JSR $DC46 
LDA #802 
JMP $D4CE 


LDA #$12 
STA $83 
JMP $DCDA 


Dateitypkennzeichen für SEQ-Datei 


festlegen 
Nummer des internen Lesekanals (17) 


‚als aktuelle Sekundäradresse übernehmen 


Puffer belegen und Sektor einlesen 
Pufferzeiger auf Start des 
Datenbereichs setzen 


Nummer des internen Schreibkanals (18) 
als Sekundäradresse setzen 
Kanal öffnen und neuen Sektor anlegen 


nächsten Directorysektor schreiben 


D48D 
D490 


20 3B DE 
A9 01 


JSR $DE3B 
LDA #%01 


aktuelle Spur- und Sektornummer holen 
Zahl der anzulegenden 
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D492 85 6F STA $6F Sektoren 

D494 AS 69 LDA $69 Ä normalen Sektorversatz holen 

D496 48 PHA und retten 

D497 A9 03 LDA #803 Sektorversatz für Directory auf 3 

D499 85 69 STA $69 festlegen 

D49B 20 2D Fi JSR $F12D nächsten freien Sektor ermitteln 

DAYE 68 PLA normalen Sektorversatz wieder 

D49F 85 69 STA $69 einrichten 

D4AA1I A9 00 LDA #800 Pufferzeiger auf Anfang des 

DAA3 20 C8 DA USR $DAC8 Puffers setzen 

DAA6 A5 80 LDA $80 Spurnummer des neuen Sektors in 

D4AAB 20 FI CF JSR $CFF1 aktuellen Directorysektor schreiben 
D4AAB A5 81 LDA $81 Nummer des nächsten Sektors in aktuellen 
D4AAD 20 FI CF  JSR $CFF1 Sektor als Verkettung übernehmen 

D4ÄBO 20 C7 DO JSR $D0C7 aktuellen Sektor auf Diskette schreiben 
D4AB3 20 99 D5 JSR $D599 warten bis Jobschleife damit fertig ist 
D4B6 A9 00 LDA #00 Pufferzeiger auf Anfang 

D4B8_ 20 C8 DA JSR $4LB 2 zurücksetzen 

D48B1 20 Fi CF JSR $CFF1 als Füllbyte in Puffer schreiben 

D4BE DO FB BNE $D4BB ist gesamter Puffer gelöscht ? 

DACO 20 FI CF  UJSR $CFF1 ja, Kennzeichen für letzten Sektor 
DAC3 A9 FF LDA #$FF Zahl der gültigen Bytes des Sektors 
D4C5 4C FI CF UJMP $CFF1 in Sektor schreiben 


[C614/C896/CA14/CA32/CABA/CDA7/CDB3/DI6F/DIAB/DIC3/D43C/DAB3/DAA3/DABE] 
[D740/D914/DA42/DBY2/DCAD/DD6F/DEYT/DFFA/EOAF/E2TA/EA76/ELA3/EACO/EADB] 
[ECAY/EDFO] 

Pufferzeiger auf angegebene Position setzen 


D4C8 85 6F STA $6F neue Position merken 
D4ACA 20 93 DF JSR $DF9Y3 Nummer des aktuellen Puffers holen 
. DACD OA ASL A und verdoppeln (da Zeigertabelle aus 
D4CE AA TAX 2-Byte-Zeigern besteht) 
DACF B5 9A LDA $YA,X Pufferzeiger (High-Byte) 
D4D1 85 95 STA $95 holen und setzen 
D4D3 AS 6F LDA $6F Low-Byte des Pufferzeigers holen 
D4D5 95 99 STA $99,X merken und als aktuellen 
D4AD7 85 94 STA $94 Pufferzeiger setzen 


D4D9 60 RTS zurück zur aufrufenden Routine 
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[C1BA/DAD1/E653] 

Interne Kanäle schließen 

D4DA A9 11 LDA #811 Nummer des internen Lesekanals (17) 
D4DC 85 83 STA $83 als aktuelle Sekundäradresse setzen 
D4DE 20 27 D2 JSR 80227 Kanal schließen 

D4E1I AY 12 LDA #%12 Nummer des internen Schreibkanals (18) 
D4AE3 85 83 STA $83 als aktuelle Sekundäradresse speichern 
D4E5 4C 27 D2 JUMP $D227 und Kanal schließen 


[C5D7/C6E5/CD76/CFDC/D1C8/D414/DB6A/DB76/DFEA/E182/E1AY] 
aktuellen Pufferzeiger festlegen 


D4AEB 20 93 DF JSR $DF93 Nummer des aktuellen Puffers holen 
[DF49] 

Pufferzeiger setzen (Puffernummer in A) 

D4EB OA ASL A verdoppeln (da Zeigertabelle aus 
D4EC AA TAX 2-Byte-Werten besteht) 

D4ED B5 9A LDA $9A,X Zeiger auf Position in Puffer holen 
DAEF 85 95 STA $95 und als aktuellen 

D4F1 B5 99 LDA $99,X Pufferzeiger 

D4AF3 85 94 STA $94 übernehmen 

D4F5 60 RTS zurück zur aufrufenden Routine 


[C5D1/CF39/CF40/EODE/E3YF] 
beliebiges Byte aus Puffer lesen (A muß Position des Zeichen enthalten) 


D4F6 85 71 STA $71 Pufferposition merken 

D4F8 20 93 DF UJSR $DF93 aktuelle Puffernummer feststellen 

DAFB AA TAX und merken | 

DAFC BD EO FE LDA $FEEO,X High-Byte der zugehörigen Pufferadresse 
DAFF 85 72 STA $72 holen und setzen 
0501 AO 00 LDY #00 Pufferzeiger initialisieren 

D503 B1 71 LDA ($71),Y und Byte aus Pufferposition holen 

D505 60 RTS zurück zur aufrufenden Routine 
[DODO/DE32] 

Spur- und Sektornummer auf Gültigkeit überprüfen, dann Jobcode setzen 
D506 BD 5B 02 LDA $025B,X dem Puffer zugeordneter Jobcode holen 
0509 29 01 AND #%01 und Laufwerksnummer daraus feststellen 
D50B, OD AD 02 ORA $024D aktuellen Jobcode einblenden 

p5orl 48 PHA ‚und merken 


D50F 86 FY STX $F9 Puffernummer festhalten 
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D511 8A 

D512 OA 

D513 AA 

D514 B5 07 
D516 8D 4D 02 
D519 B5 06 
D51B FO 2D 
D51D CD AC 02 
D520 BO 28 
D522 AA 

D523 68 

D524 48 

D525 29 FO 
D527 C9 90 
D529 DO 4F 
D52B 68 

D52C 48 

D52D 4A 

DS52ZE BO 05 
D530 AD 01 01 
D533_ 90 03 
0535 1 AD 02 01 
D538 FO 05 
D53A CD D5 FE 
D53D_ DO 33 
531 8A 

D540 20 48 F2 
D543 CD 4D 02 
D546 FO 02 
D548_ BO 30 
DS4A” 20 52 D5 
D54D A9Y 66 
D54F 4C 45 E6 


[D54A/D572] 


TXA 
ASL A 

TAX 

LDA $07,X 
STA $024D 
LDA $06,X 
BEQ $D54A 
CMP $02AC 
BCS $D54A 
TAX 

PLA 

PHA 

AND #£&F0 

CMP #890 

BNE $D57A 
PLA 

PHA 

LSR A 

BCS $0535 
LDA $0101 
BCC $D538 
LDA $0102 
BEQ $D53F 
CMP $FED5 
BNE $D572 
TXA 

JSR $F24B 
CMP $024D 
BEQ $D54A 
BCS $D57A 
JSR $0552 
LDA #866 

JMP $E645 


Spur- und Sektornummer des 


0552 AS F9 
0554 OA 
0555 AA 
D556 B5 06. 
0558 85 80 


LDA $F9 
ASL A 

TAX 

LDA $06,X 
STA $80 


und Nummer 


verdoppeln (da nächste Tabelle aus 


2-Byte-Werten besteht) 

Sektornummer des Jobs holen 

und merken 

Nummer der Spur für den Job feststellen 
ist keine Spur angewählt (0) ? 

nein, und auf größte Spur +1 testen 

ist die Spurnummer im erlaubten Bereich? 
Ja, Spurnummer merken 

und Jobcode wieder zurückholen 
und sofort wieder merken 
reinen Jobcode isolieren 

und mit Code für 'Schreiben! vergleichen 
identisch ? 

ja, ganzen Jobcode wieder holen 

und sofort wieder merken 

Bitflag für Laufwerknummer ins Carry 
ist Laufwerk 1 angewählt ? 

nein, Formatkennzeichen von Laufwerk 0 
immer Sprung nach $D538 
Formatkennzeichen von Laufwerk 1 holen 
immer Sprung nach $D53F 

mit Kennzeichen '!A' vergleichen 

ist richtiges Format erkannt ? 

ja, Nummer der Spur wieder holen 
dazugehörige größte Sektornummer holen 
mit Sektornummer des Jobs vergleichen 
ist maximale Zahl erreicht ? 

nein, ist Sektornummer erlaubt ? 

nein, Spur- und Sektornummer des Jobs 
nochmal holen und Fehlermeldung 

166 Illegal Track or Sector! ausgeben 


aktuellen Jobs aus Jobspeicher holen 


Nummer des aktuellen Jobs (Puffers) 
holen und verdoppeln 

(da Tabelle aus 2-Byte-Werten besteht) 
Spurnummer des Jobs aus Tabelle holen 
und als aktuelle Spur merken 
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D55A B5 07 LDA $07,X Sektornummer des Jobs feststellen und 
D55C 85 81 STA $81 als aktuelle Sektornummer speichern 
D55E 60 RTS zurück zur aufrufenden Routine 
[CEOS/EDES5] 

. aktuelle Spur- und Sektornummer auf erlaubten Bereich überprüfen 
D55F A5 80 LDA $80 aktuelle Sprunummer holen 
D561 FO EA BEQ $D54D keine Spur gesetzt ? 
D563 CD AC 02 CMP $O2AC nein, auf max. zulässiger Spur prüfen 
D566 BO E5 BCS $D54D ist die Spurnummer erlaubt (kleiner) ? 
D568 20 4B F2_ UJSR $F24B ja, Zahl der Sektoren der Spur holen und 
D56B C5 81 CMP $81 mit aktueller Sektornummer vergleichen 
D56D FO DE BEQ $D54D ist die Sektornummer eins zu groß ? 
D56F 90 DC BCC $D54D nein, ist die Nummer noch größer ? 
D571 60 RTS nein, zurück zur aufrufenden Routine 
[D53D/EES3] 
Fehlermeldung bei falschem Formatkennzeichen ausgeben 
D572 20 52 D5 JSR $D552 Spur- und Sektornummer des Jobs holen 
0575 A9 73 LDA #873 und Fehlermeldung | 
D577 4C 45 E6 JMP $E645 ı73 CBM DOS V3.0 1571' ausgeben 
[D529/0548] 


Job für aktuellen Puffer an Jobschleife übergeben 
(Routine kann nicht mit 'JSR' angesprungen werden, da Stack den Jobcode 
enthalten muß und nicht die Rücksprungadresse) 


D57A A6 FY LDX $F9 Nummer des aktuellen Puffers holen 
DS’C 68 PLA zu setzender Jobcode holen 

D57D 8D 4D 02 STA $024D und als aktuellen Jobcode speichern 
D580 95 00 STA $00,X an Jobschleife übergeben 

D582 9D 5B 02 STA $025B,X dem aktuellen Puffer zuordnen 

D585 60 RTS zurück zur aufrufenden Routine 


[LASD1/A66E/A693/A6BA] 
Jobcode für Lesen an Jobschleife übergeben und warten bis ausgeführt 


D586 AY 80 LDA #$80 Jobcode für "Sektor lesen! 
D588 DO 02 BNE $D58C immer Sprung nach $D58C 
[AS94/ASA4/A5SC5] 


Jobcode für Schreiben an Jobschleife übergeben und warten bis ausgeführt 
D58A A9 90 LDA #890 Jobcode für !Sektor schreiben! 
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[LA6ES/A70E/D588] 

Job für aktuelles Laufwerk ausführen (Jobcode in A) 

DS8C 05 7F ORA $7F aktuelles Laufwerk in Jobcode übernehmen 
D58E A6 F9 LDX $F9 Nummer des zuständigen uffers holen 
[DC3D] 

Jobcode ausführen (Jobcode in A, Puffernummer in X) 

D590 &D 4D 02 STA $024D ‚und aktuellen Jobcode merken 


[D472/DF42] Job ausführen 

D593 AD 4D 02 LDA $024D Jobcode holen, Spur- und Sektor- 

 D596 20 0E D5 JSR $D50E parameter überprüfen und an Jobschleife 
[869 A/CEBE/CAAC/CAC6/DOA1/D4B3/DBYF/DC9Y5S/DD6A/DD84/DDF9Y/E068/E430/E4A9] 
[EAFO/CF73/EOS5A] 

warten, bis Job ausgeführt ist und Fehlermeldung bereitstellen 


D599 20 A6 D5 JSR $D5A6 Jobausführung kontrollieren 

D59C BO FB BCS $0599 ist Job schon zu Ende ? 

D5SYyE 48 PHA ja, Rückmeldung des Jobs merken 

D5S9F A9Y 00 LDA #800 Flag für 'Fehler bei Job aufgetreten! 
D5SA1 8D 98 02 STA $0298 Löschen 

D5A4 68 PLA und Rückmeldung wieder holen 

D5A5 60 RTS zurück zur aufrufenden Routine 

[D599] 

Ausführung des aktuellen Jobs überwachen 

D5A6 B5 00 LDA $00,X Jobcode aus Jobspeicher holen 

D5A8 30 1A BMI $D5C4 ist Job noch in Bearbeitung ? 

D5AA C9 02 CMP #%02 nein, Rückmeldung auf 'Ok'! testen 

D5AC 90 14 BCC $D5C2 ist der Job ordungsgemäß ausgeführt ? 
D5AE C9Y 08 CMP #808 nein, mit 'Write Protect On! vergleichen 
D5B0O FO 08 BEQ $D5BA ist die Schreibschutzkerbe zugeklebt ? 
D5B2 C9Y OB CMP #%0B nein, mit 'Disk ID Mismatch'! vergleichen 
D5B4 FO 04 BEQ $D5BA wurde eine falsche ID gefunden ? 

D5B6 C9 OF CMP #%0F nein, mit 'Drive Not Ready! vergleichen 
D5B8_ DO 0C BNE $D5C6 keine formatierte Diskette eingelegt ? 
D5SBA 2C 98 02 BIT $0298 ja, Fehlerflag prüfen 

DSBD 30 03 BMI $D5C2 wurde schon ein Fehler gemeldet ? 

DSBF_ 4C 3F D6  JMP $D63F nein, Fehlermeldung ausgeben 


D5C2” 18 CLC Flag für 'Job beendet! setzen 
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D5SC3, 60 RTS zurück zur aufrufenden Routine 
D5C4 38 SEC Flag für !Job noch nicht beendet! setzen 
D5C5 60 RTS zurück zur aufrufenden Routine 
[D5B8/D644 :A6CE] 
Kopf bei aufgetretenem Lesefehler neben Spur setzen und nochmal versuchen 
D5C6 98 TYA Y-Register retten | 
D5C7 48 PHA (da es von der Routine verändert wird) 
D5C8 AS 7F LDA $7F aktuelle Laufwerksnummer holen 
D5SCA 48 PHA und merken 
D5SCB BD 5B 02 LDA $025B,X zum Puffer gehörenden Jobcode holen 
DSCE 29 01 AND #%01 und angesprochenes Laufwerk feststellen 
D5DO 85 7F STA $7F Nummer als aktuelles Laufwerk speichern 
D5D2 A8 TAY und die zum Laufwerk gehörende Bitmaske 
D5D3 B9 CA FE LDA $FECA,Y holen, um LED am Laufwerk anzuschalten 
D5D6 8D 6D 02 STA $026D Maske für LED-Blinken merken 
D5D9 20 A6 D6 JSR $D6A6 ($6A) Leseversuche durchführen 
DSDC C9 02 CMP #%02 Rückmeldung mit 'Ok'! vergleichen 
 D5SDE BO 03 BCS $D5E3 wurde letzter Job fehlerfrei ausgeführt 
D5EO, 4C 6D D6 JMP $D66D ja, Routine beenden 
sg 31 BD 58 02 LDA $025B,X aktuellen Jobcode holen 
D5E6 29 FO AND #&F0 Befehlbits isolieren 
D5SEB 48. PHA und merken 
D5E9 CY 90 CMP #90 mit Wert für 'Schreiben' vergleichen 
DSEB DO 07 BNE $D5F4 wurde ein Sektor geschrieben ? 
D5ED AS 7F LDA $7F ja, Nummer des Laufwerks holen 
D5EF 09 B8 ORA #%B8 und Jobcode für 'Sektor suchen! setzen 
D5F1, 9D 5B 02 STA $025B,X Jobcode dem aktuellen Puffer zuordnen 
7 24 6A BIT $6A Flag für 'nicht neben Spur suchen! 
D5F6 70 39 BVS $D631 ist Flag gesetzt ? 
D5F8 A9 00 LDA #800 nein, Zeiger initialisieren : 
D5SFA 80 99 02 STA $0299 Zeiger auf Position neben Spur 
DSFD, 8D 9A 02 STA $029A Zeiger auf Phase der Suche neben Spur 
psool AC 99 02 LDY $0299 Positionierphase feststellen 
D603 AD 9A 02 LDA $029A aktuelles Steuerbyte für Kopfbewegung 
D606 38 SEC holen und Wert für einen Rückkehr auf 
D607_ F9 DB FE SBC $FEDB,Y Ausgangsposition bei der E 
D6E0OA 8D YA 02 STA $029A Positionierung neben der Spur ermitteln 
D60D BY DB FE LDA $FEDB,Y Steuerbyte für Halbschritt neben Spur 
D610 20 Ai FF JSR $FFAI holen und Kopfbewegung ausführen 
D613 EE 99 02 INC $0299 Zähler auf nächstes Steuerbyte setzen 
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D616 20 A6 D6 JSR $D6A6 ($6A) Leseversuche ausführen 

D619 C9 02 CMP #802 Rückmeldung auf Wert für 'Ok! prüfen 
D61B 90 08 BCC $0625 ist ein Fehler aufgetreten ? 

D61ID AC 99 02 LDY $0299 ja, Zähler für Positionierphase holen 
D620 BY DB FE LDA $FEDB,Y nächstes Positionierkommando holen 
D623. DO DB BNE $D600 Ende der Suchfolge ? 

06251 AD 9A 02 LDA $029A ja, Steuerwert zur Rückkehr auf Spur 
D628 20 A6 FF JSR $FFA6 holen und Lesen nochmal versuchen 
D62B B5 00 LDA $00,X Rückmeldung der Jobschleife holen 

D62D C9 02 CMP #$02 und mit Wert für 'Ok'! vergleichen 

D62F. 90 2B BCC $D65C war Leseversuch erfolgreich ? 

D631 ° 24 6A BIT $6A nein, Flag für 'Kopf auf Spur 0' prüfen 
D633 10 OF BPL $0644 soll Kopf neu justiert werden (Bump) ? 
0635 | 68 PLA nein, Befehlscode wieder holen und auf 
D636 C9 90 CMP #590 Job für 'Sektor schreiben! prüfen 
D638 DO 05 BNE $D63F identisch ? 

D63A 05 7F ORA $7F ja, Nummer des Laufwerks setzen und 
D65C_ 9D 5B 02 STA $025B,X als Jobcode aktuellem Puffer zuordnen 
D63F> B5 00 LDA $00,X Rückmeldung des Jobs holen 

D641_ 20 0A E6 JSR $E6DA und Fehlermeldung bereitstellen 

D6h42 68 PLA reinen Befehlscode wieder holen 

D645 2C 98 02 BIT $0298 Fehlerflag testen 

D648 30 23 BMI $D66D ist schon ein Fehler aufgetreten 

D64 A 48 PHA nein, Jobcode merken 

D64B A9 CO LDA #5C0 und Jobcode für 'Kopf neu justieren! 
D64D 05 7F ORA $7F (Bump) für aktuelles Laufwerk 

D6öAF 95 00 STA $00,X setzen 

D651 20 B6 9F JSR $YFB6 Jobschleife starten und Job ausführen 
D654 EA NOP [durch Modifizierung des 1541 ROM] 
D655 20 A6 D6 JSR $D6A6 Job noch ($6A) mal ausführen 

D658 C9 02 CMP #%02 Rückmeldung mit 'Ok'! vergleichen 

D65A, BO DY BCS $D635 wurde letzter erfolgreich ausgeführt ? 
Descl 68 PLA ja, Jobcode wieder holen 

D65D CY 90 CMP #890 und mit Wert für 'Schreiben! vergleichen 
D6E5SF DO OC BNE $D66D sollte Sektor geschrieben werden ? 
D661 05 7F ORA $7F ja, Laufwerksnummer setzen 

D663 9b 5B 02 STA $0258B,X und Jobcode aktuellem Puffer zuordnen 
D666 20 A6 D6 JSR $D6A6 ($6A) mal Sektor schreiben versuchen 
D669 C9 02 CMP #$02 Rückmeldung mit 'Ok! vergleichen 

D66B_ BO D2 BCS $D63F war Schreiben erfolgreich ? 


D66D” 68 PLA ja, Nummer des aktuellen Laufwerks 


STA $7F 
PLA 

TAY 

LDA $00,X 
CLC 
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wieder herstellen 

Y-Register wieder 

zurücksetzen 

Rückmeldung der Jobschleife holen 
Flag für 'Job beendet! setzen 
zurück zur aufrufenden Routine 


LFFYY/FFIYCI 


Kopf um die im Akku angegebenen Halbspurschritte bewegen 
(Bit? =1 Schritte nach innen; Bit? =0 Schritte nach außen) 


D676 C9 00 
0678 FO 18 
D67A, 30 0C 
D6ö’C AO 01 
D67E 20 93 D6 
D681 38 

D682 EY 01 
D684 DO F6 
D686, FO OA 
D688° AO FF 
D68A 20 93 D6 
D68D 18 

D6E8E 69 01 
D690_ DO F6 
D692 ° 60 


CMP #00 

BEQ $D692 
BMI $D688 
LDY #$01 

JSR $D693 
SEC 

SBC #$01 

BNE $D67C 
BEQ $D692 
LDY #$FF 

JSR $D693 
CLC 

ADC #$01 

BNE $D688 
RTS 


Inhalt des Akkus überprüfen 

ist ein Wert der Schritte angegeben ? 
ja, soll Kopf nach außen bewegt werden ? 
Wert für Halbspurschritt nach innen 
Kopf neu setzen 

und Zähler für Zahl 

der Halbspurschritte erniedrigen 
schon alle Schritte gemacht ? 

ja, immer Sprung nach $D692 

Wert für Halbspurschritt nach außen 
Kopf neu setzen 

und Zähler für Zahl 

der Halbspurschritte erhöhen 

schon alle Schritte gemacht ? 

Ja, zurück zur aufrufenden Routine 


[D67E/D68A] 
Werte um Kopf zu 
D693 48 

D694 98 

D695 A4 7F 

. D697_ 99 FE 02 
Dog D9 FE 02 
D69D FO FB 
DEYF AY 00 
D6A1 99 FE 02 
D6AL 68 

D6A5 60 


bewegen an Jobschleife übergeben 


PHA 
TYA 
LDY $7F 


STA $O2FE,Y 
CMP $O2FE,Y 


BEQ $D69YA 
LDA #800 


STA $02FE,Y 


PLA 
RTS 


Akku retten 

Wert für Kopfpositionierung holen 
Nummer des aktuellen Laufwerks holen 
und Steuerbyte an Jobschleife übergeben 
Wert wieder holen | 
wurde Wert angenommen und Kopf gesetzt ? 
Ja, Jobregister 
Löschen 

Akku wieder herstellen _ 

zurück zur aufrufenden Routine 


buch 1571/70 419 


Jobcode solange ausführen bis erfolgreich oder Zähler in $6A auf Null 


Das _ große Flo 
[D5SD9/D616/D655/D666] 

DEA6 AS 6A LDA $6A 
D6AB 29 3F AND #$3F 
D6AA., AB TAY 

ICh AD 6D 02 LDA $026D 
D6AE 4D 00 IC EOR $1C00 
D6EB1 8D 00 IC STA $1C00 
D6B4 BD 5B 02 LDA $025B,X 
D6B7 95 00 STA $00,X 
D6EB9 20 B6 YE JSR $IEB6 
D6BC EA NOP 
D6BD C9 02 CMP #802 
D6EBF 90 03 BCC $D6C4 
D&CI 88  DEY 
D6C2. DO E7 BNE $D6AB 
D6CA" 48 PHA 

D6&C5S AD 6D 02 LDA $026D 
D6C8 OD 00 IC ORA $1C00 
DECB 8D 00 IC STA $1C0O 
D6CE 68 PLA 

D6CF 60 RTS 


Zahl der Versuche holen 

und auf Bereich von 0 bis 63 begrenzen 
Zähler setzen 

Maske für LED einschalten 

Bit für LED im Laufwerkssteuerregister 
umschalten (LED flackert) 

Jobcode des aktuellen Puffers holen 
und an Jobschleife übergeben 
Jobschleife starten und Job ausführen 
[durch Modifizierung des 1541 ROM] 
Rückmeldung mit 'Ok'! vergleichen 

wurde Job erfolgreich ausgeführt ? 
nein, Zahl der Versuche erniedrigen 
noch weitere Versuche durchführen ? 
nein, Jobmeldung merken 

Maske für 'LED ein! holen 

und restliche Bits des Steuerregisters 
einblenden und Register setzen ' 
Rückmeldung der Jobschleife wieder holen 
zurück zur aufrufenden Routine 


[DO9B/DOBA/D186/DCE2/DE7TF/E3BY/E3CB] 
aktuelle Spur- und Sektornummer an Jobschleife übergeben 


DEDO 


20 93 DF 


JSR $DF93 


Nummer des aktuellen Puffers holen 


[AA14/C8D7/DO3A/D46D/DCEBF/DD2E/DF3D] 
und Sektor an Jobschleife übergeben (Puffer in A) 


Spur- 
D6D3 
DED4 
D6D5 
DED7 
DEDA 
DEDC 


DA 


ASL A 
TAY 
LDA $80 


'STA $0006,Y 


LDA $81 


STA $0007,Y 


LDA $7F 
ASL A 
TAX 

RTS 


und verdoppeln (da Jobtabelle aus 
2-Byte-Werten besteht) 

Nummer der aktuellen Spur 

an Jobschleife übergeben 

Nummer des aktuellen Sektors 

für Jobschleife speichern 
aktuelle Laufwerksnummer holen 
verdoppeln 

und merken 

zurück zur aufrufenden Routine 
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- [C9B3/DYEC] 
‘Dateieintrag im Directory abschließen 


D6E4 A5 
DEE6 48 
D6E7 A5 
DEEI 48 
D6EA A5 
DEEC 48 
D6ED A5 
D6EF 48 
D6FO A9 
D6F2 85 
D6F4 20 
D6F7 AD 
D6FA 48 
D6FB AS 
DEFD 29 
DEFF 85 
D701 A6 
D703 5D 
D706 4A 
D707 90 
D709 A2 
D708 8E 
D70E 20 
D711 FO 
D713. DO 
orıs! ao 
D718 FO 
D7IA 65 
D7IC FO 
D’IE 85 
D720 20 
D723. 4C 
D726 
D728 8 
D72B 
D72E. DO 


D733 A5 


83 


82 


81 


80 


11 
83 
3B 
4A 


E2 
01 
TF 
F9 
SB 


le 
01 
92 
AC 
1D 
28 
91 
OC 
81 
IF 
81 
60 
3D 


A9 01 


92 


OD 


81 


DE 
02 


02 


02 
C5 


02 


D4 
D7? 


02 


20 17 C6 


20 8D D4 


D735 8D 91 02 


LDA $83 
PHA 

LDA $82 
PHA 

LDA $81 
PHA 

LDA $80 
PHA 

LDA #811 
STA $83 
JSR $DE3B 
LDA $024A 
PHA 

LDA $E2 
AND #801 
STA $7F 
LDX $F9 


EOR $025B,X 


LSR A 

BCC $D715 
LDX #%01 
STX $0292 
JSR $C5AC 
BEQ $D730 
BNE $D73D 
LDA $0291 
BEQ $D726 
CMP $81 
BEQ $D73D 
STA $81 
JSR $D460 
JMP $D73D 
LDA #801 
STA $0292 
JSR $C617 
BNE $073D 
JSR $D48D 
LDA $81 
STA $0291 
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aktuelle Sekundäradresse holen und 
retten 

aktuelle Kanalnummer holen und 

retten 

aktuelle Sektornummer holen und 

retten 

aktuelle Spurnummer holen und 

retten 

Nummer des internen Lesekanals (17) 

als aktuelle Kanalnummer setzen 

Spur- und Sektornummer festlegen 
aktueller Dateityp 

holen und retten 

Laufwerksnummer der neuen Datei 
herstellen und 

als aktuelle Laufwerksnummer festlegen 
Nummer des aktuellen Puffers 
Laufwerksnummer des zugehörigen Jobcodes 
holen und mit Aktueller vergleichen 

ist angesprochendes Laufwerk identisch ? 
Zeiger auf gültigen 

Eintrag setzen 

nächsten freien Eintrag suchen 

ist alles belegt ? 

nein, Eintrag in Directory schreiben 
Nummer des Directorysektors holen 

ist Sektornummer gesetzt ? 

ja, mit aktueller Sektornr. vergleichen 
identisch ? ; 

nein, Nummer des aktuellen Sektors holen 
Sektor in Puffer einlesen 

neuen Eintrag anlegen 

Zeiger auf gültigen 

Dateieintrag setzen 

letzten Sektor des Directory holen 

noch ein Eintrag frei ? 

nein, neuen Directorysektor anlegen 
Nummer des Sektors holen 

und in Zeiger für Direktorysektor setzen 
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D738 AY 


D73A  8D 
4 


02 
92 


02 


D73D AD 92 02 


D740 20 
D743 68 
D744 &D 
D747 C9 
D749 DO 
D74B_ 09 
D74D 20 
D750 68 
D751 8&D 
D754 20 
D757 68 
D758 &D 
D75B 20 
D75E 20 
D761 A8 
D762 AD 
D765 AA 
D766 A9 
D768 20 
D76B AO 
D7&ED_ AY 
p76r 1 
D7’’1 cC8 
D772 CO 
D774 90 
D776 AD 
D779 C9 
D77B DO 
D77D AO 
D7’’F AD 
D782 91 
D784 C8 
D785 AD 
D788 91 
D7’8&A C8 
D788B AD 
D78E, 91 


c8 


58 
94 


D4 


02 


C6 


02 


02 


02 


D790 20 64 D4 


LDA #802 
STA $0292 


LDA $0292 


JSR $DACB 
PLA 


STA $024A 


CMP #804 

BNE $D74D 
ORA #%80 

JSR $CFF1 
PLA 

STA $0280 
JSR $CFF1 
PLA 

STA $0285 
JSR $CFF1 
JSR $DF93 
TAY 

LDA $027A 


TAX 


LDA #810 
JSR $C66E 
LDY #$10 
LDA #$00 


STA ($94),Y 


INY 

CPY #%1B 
BCC $D76F 
LDA $024A 
CMP #%04 
BNE $D790 
LDY #810 
LDA $0259 


STA ($94) ,Y 


INY 
LDA $025A 


STA ($94),Y 


INY 
LDA $0258 


STA (89% ),Y 


JSR $D464 


Pufferzeiger auf Beginn des 
Datenbereichs initialisieren 

aktuelle Position des Zeigers 
Pufferzeiger setzen 

aktueller Dateityp zurückholen 

und wieder setzen 

mit Wert für Relative Datei vegleichen 
Liegt eine relative Datei vor ? 

ja, Datei als geschlossen kennzeichnen 


‘Dateityp in Directory eintragen 


Spurnummer des ersten Dateisektors 
wieder holen und speichern 
Spurnummer in Directory schreiben 
Nummer des ersten Sektors der Datei 
holen und merken 

Sektornumner in Directory schreiben 
Nummer des Directorypuffers holen 
und merken 

Position des Dateinamens im 
Eingabepuffer holen und merken 

Länge des Dateinamens 

Dateinamen in Directory schreiben 
Pufferzeiger auf Ende des Dateinamens 
Leerbytes zum Auffüllen des Eintrags 
in Puffer schreiben 

Pufferzeiger auf nächstes Byte 

und mit Endwert vergleichen 

schon ganzer Puffer gefüllt ? 

ja, aktuellen Dateityp holen 

mit Wert für Relative Datei vergleichen 
ist eine Relative Datei einzutragen ? 
ja, Pufferzeiger auf Ende des Namens 
Spurnummer des ersten Side-Sektors 
holen und in Eintrag schreiben 
Pufferzeiger auf nächste Position 
Sektornummer holen und in Directory- 
puffer schreiben 

Pufferzeiger auf nächstes Byte 

Länge des Records holen und 

in Directory eintragen 
Directorysektor auf Diskette schreiben 


422 Das Disk-Operating-System (DOS 


D793 68 PLA Nummer des aktuellen Kanals holen 
D794 85 82 STA $82 und wieder setzen 
D796 AA TAX Kanalnummer merken 
D’97 68 PLA aktuelle Sekundäradresse wieder 
D798 85 83 STA $83 zurückholen und setzen 
D7’9A AD 91 02 LDA $0291 Spurnummer des Dateieintrags holen 
D7’9D 85 D8 STA $D8 und merken 
D’YF 9D 60 02 STA $0260,X und Puffer zuordnen 
D7’A2 AD 92 02 LDA $0292 Sektornummer des Dateieintrags 
D7’AS 85 DD STA $DD holen und merken 
D’A7T 9 66 02 STA $0266,X Nummer dem Directorypuffer zuordnen 
D’AA AD 4A 02 LDA $024A Typ der Datei holen 
D7’AD 85 E7 STA $E7 und merken 
 D7AF AS 7F LDA $7F Nummer des aktuellen Laufwerks holen 
D7B1I 85 E2 STA $E2 und Dateieintrag zuordnen 
D’B3 60 RTS zurück zur aufrufenden Routine 
[BF5D/C15D] 
Open-Befehl mit Sekundäradresse 0 bis 14 annehmen 
D7B4 AS 83 LDA $83 aktuelle Sekundäradresse holen 
D7B6 8D 4C 02 STA $024C und merken 
D’B9 20 B3 C2 JSR $C2B3 Zeiger für Befehlsstring setzen 
D7’BC 8E 2A 02 STX $022A Kanalnummer des Befehls löschen (0) 
D7’BF AE 00 02 LDX $0200 erstes Zeichen des Eingabepuffers holen 
D’C2 AD 4AC 02 LDA $O24C Sekundäradresse holen 
D’C5 DO 2C BNE $D7F3 liegt ein Load-Befehl vor ? 
D’C7 EO 2A CPX #$2A ja, erstes Zeichen auf '*' Joker prüfen 
D’C9 DO 28 BNE $D’F3 ersten Diretoryeintrag laden ? 
D7’CB A5 TE LDA $7E ja, letzte Spurnummer holen 
D’CD FO 4D BEQ $DEIC ist Nummer gesetzt ? . 
D7’CF 85 80 STA $80 ja, dann als aktuelle Spur übernehmen 
D7’DI AD 6E 02 LDA $026E Nummer des letzten aktiven Laufwerks 
D7D4 85 7F STA $7F holen und als aktuelles Laufwerk setzen 
D7D6 85 E2 STA $E2 Laufwerk der Datei zuordnen 
D7D8 AI 02 LDA #$02 Flag für Joker 
D7’DA 85 E7 STA $E7 setzen 
D’DC AD 6F 02 LDA $026F letzten bearbeiteten Sektor holen und 
D’DF 85 81 STA $81 als aktuelle Sektornummer übernehmen 
D7’E1 20 00 CI JSR $C100 LED am aktuellen Laufwerk einschalten 
D’EA 20 46 DC JSR $DC46 Puffer belegen und Sektor einlesen 


D’E7 AI 04 LDA #804 Bitflag für Programmdatei 
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D7E9. 05 
D7’EB A6 
D7ED 99 
D7FO_ 4C 
D7F3” EO 
D’F5 DO 
D7F7 AD 
D’FA DO 
D’FC. 4C 
D’FF 
D802 AD 
D805 85 
D807 A9 
D809 85 
D80B 20 
D80OE AS 
D810 09 
D812. 4C 
D815 
D817 DO 
_D819. 4C 
DSIC 
DSIE 8D 
D821 19 
D823 85 
D825 8D 
D828. 20 
08281 20 
D82E DO 
0830 A2 
D832. FO 
08341 aA 
D835 FO 
D837 19 
0839. 4C 
pescl 88 
D83D FO 
D8ZF_ 88 
D840° 8C 
D843 19 
D845 20 


TF 
82 
EC 00 
94 1 


c8 cC1 


TA 02 
8D 
68 C2 
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ORA $7F 
LDX $82 


STA $00EC,Y 


JMP $C194 
CPX #$%24 
BNE $D815 
LDA $024C 
BNE $D7FF 
JMP $DA55 
JSR $C1D1 
LDA $FE85 
STA $80 
LDA #800 
STA $81 
JSR $DC46 
LDA $7F 
ORA #802 
JMP $D7EB 
CPX #823 
BNE $D82B 
JMP $CB84 
LDA #02 
STA $0296 
LDA #800 
STA $7F 
STA $028E 
JSR $D042 
JSR $CIES5 
BNE $D834 
LDX #800 
BEQ $D840 
TXA 

BEQ $D83C 
LDA #830 
JMP $CiC8 
DEY 

BEQ $D840 
DEY 

STY $027A 
LDA #858D 
JSR $C268 


aktuelles Laufwerk mit einblenden 
Nummer des aktuellen Kanals holen 
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und Dateitypflag in dem Kanal zuordnen 


Ok! Meldung bereitstellen 

erstes Zeichen mit '$'! vergleichen 
soll Directory geladen werden ? 
ja, Sekundäradresse wieder holen 
Directory als Programm laden ? 


Ja, Directory in Basic-Programm wandeln 
Zeiger für Parameter im Befehl setzen 


Nummer der Directoryspur 

als aktuelle Spur merken 
Startsektor des Directory als 
aktuelle Spurnummer setzen 
Puffer belegen und Sektor lesen 


Nummer des aktuellen Laufwerks holen 
Flag fur SEQ-Datei setzen und Directory 


als Datei kennzeichnen und Ende 
erstes Zeichen mit '#'! vergleichen 
Direktzugriffskanal öffnen ? 

ja, Direktzugriffsdatei öffnen 
Kennzeichen für Programm-Datei 
setzen 

Laufwerk O0 als aktuelles 

Laufwerk festlegen 


Zeiger auf letztes Laufwerk setzen | 


BAM in Puffer lesen 

Befehlsstring nach '!:'! durchsuchen 
gefunden ? 

ja, Startposition des Parameters 
immer Sprung nach $D840 

Zahl der Parameter holen 

durch Komma getrennte Parameter ? 
ja, Fehlermeldung 

ı30 Syntax Error! ausgeben 

Zeiger auf Position des !:! setzen 
Beginn des Parameters erreicht ? 
Zeiger auf Laufwerksangabe setzen 
und Position merken 

Kennzeichen für Befehlsstringende 
im Eingabepuffer suchen 
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D848 E8 INX Zahl der gefundenen Parameter 

D849 BE 78 02 STX $0278 die durch Komma getrennt sind merken 
D84C 20 12 C3 JSR $C312 Laufwerksnummer holen und setzen 

D8E4AF 20 CA C3 2 JSR $C3CA Nummer des Laufwerks überprüfen 

D852 20 9D CA JSR $CA9D Dateieintrag im Directory suchen 

D855 A2 00 LDX #800 Zeiger löschen : 

D857 8E 58 02 STX $0258 Länge eines Records 

D85A 8E 97 02 STX $0297 Dateibetriebsart 

D85D 8E 4A 02 STX $024A Dateityp 

D860 EB INX nächsten Dateinamen anwählen 

D861 EC 77 02 CPX $0277 auf Zahl der vorhandenen Namen prüfen 
D864 BO 10 BCS $D876 sind noch weitere Angaben vorhanden ? 
D866 20 09 DA JSR $DAOY ja, Dateityp und Betriebsart holen 
D869 EB INX Zeiger auf nächsten Dateinamen 

D86A EC 77 02 CPX $0277 auf Zahl der vorhandenen Namen prüfen 
D86D BO 07 BCS $D876 sind alle Namen bearbeitet ? 

D8E6F CO 04 CPY #504 nein, Dateityp auf 'REL' prüfen 

D871 FO 3E BEQ $D8B1 liegt relative Datei vor ? 

D873 20 09 DA JSR $DAOY Dateityp und Betriebsart holen 

0876" AE 4C 02 LDX $O24C Sekundäradresse wieder holen 

D879 86 83 STX $83 und setzen; mit Wert für 

D87B EO 02 CPX #802 Beginn der Dateikanäle vergleichen 
D87D BO 12 BCS $D891 ist Kanalnummer größer 2 ? 

D8’F BE 97 02 STX $0297 nein, Flag f. Lesen o. Schreiben setzen 
D882 A9 40 LDA #340 Flag für 'BAM ungültig"! 

D884 8D F9 02 STA $02F9 setzen (da neu eingetragen wird) 
'D887 AD 4A 02 LDA $024A aktuellen Dateityp holen 

D88A DO 1B BNE $D8A7 liegt DEL-Datei vor ? 

D88C A9 02 LDA #802 ja, Kennzeichen für PRG-Datei 

D8BE. 8D 4A 02 STA $024A als aktuellen Dateityp setzen 

p891l AD sa 02 LDA $024A Dateityp holen 

D894 DO 11 BNE $D8A7 ist als Typ 'DEL' angegeben ? 

D896 AS E7 LDA $E7 ja, Dateityp aus Kanaltabelle holen 
D898 29 07 AND #507 Flags ausblenden 

D8E9A 8D LA 02 STA $024A und merken 

D89D AD 80 02 LDA $0280 Spurnummer des Sektors aus Puffertabelle 
D8AD DO 05 BNE $D8A7 ist Spur gesetzt ? 

D8A2 AY 01 LDA #801 nein, Kennzeichen für 'SEQ' 

D8EA4_ 8D AA 02 STA $024A in aktuellem Dateityp setzen 

D8A7” AD 97 02 LDA $0297 Dateibetriebsart wieder holen 


D8AA C9 01 CMP #801 und mit Wert für Schreiben vergleichen 


Das große Floppybuch_1571/70 425 


DBAC FO 18 
DBAE, 4C 40 D9 
pasıl sc 7a 02 
DEB4 B9 00 02 
D8B7 &D 58 02 
DEBA AD 80 02 
D8BD DO B7 
DEBF A9 01 
D8CI &D 97 02 
D8C4 DO BO 
pacel a5 E7 
DEC8 29 80 
DECA AA 

DECB DO 14 
DECD A9 20 
DECF 24 E7 
D8D1 FO 06 
D8ED3 20 B6 CB 
D8D6. 4C EZ D9 
peno| AD 80 02 
DEDC DO 03 
DBDE_ 4C E3 D9 
DBEI” AD 00 02 
DBEL C9 40 
DBE6 FO OD 
DBEB BA 

DBE9 DO 05 


BEQ $D8C6 
JMP $DY4O 


LDY $027A,X 
LDA $0200,Y 
STA $0258, 


LDA $0280 
BNE $D876 
LDA #801 
STA $0297 
BNE $D876 
LDA $E7 
AND #80 
TAX 

BNE $D8E1 
LDA #820 
BIT $E7 
BEQ $D8D9 
JSR $C8B6 
JMP $DIE3 
LDA $0280 
BNE $D8E1 
JMP $DIE3 
LDA $0200 
CMP #840 
BEQ $D8F5 
TXA 

BNE $DEFO 
LDA #863 
JMP $C1C8 
LDA #$33 
JMP $C1IC8 


soll Datei geschrieben werden ? 

nein, Lesekanal öffnen 

Zeiger auf nächsten Parameter holen 
und Zeichen des Parameters aus Eingabe- 
puffer holen und speichern 

Spur des Datenblocks testen 

ist Angabe gesetzt ? 

ja, Flag für Lesen/Schreiben 

setzen 

immer Sprung nach $D876 

Dateityp holen 

Flag für 'Joker vorhanden! holen 

und merken 

ist im Dateinamen ein Joker ? 

nein, Flag für 'Datei nicht geschlossen! 
für ersten Namen testen 

ist Datei geschlossen worden ? 

nein, Dateieintrag in Directory löschen 
neue Datei anlegen 

Spurnummer des ersten Datenblocks 

ist Datei belegt ? 

nein, neue Datei anlegen 

erstes Zeichen aus Eingabepuffer holen 
und mit Replace-Befehl ('a') vergleichen 
bestehenden Eintrag überschreiben ? 
Flag für Joker wieder holen 

ist Datei vorhanden ? 

ja, Fehlermeldung 

163 File Exists'! ausgeben 
Fehlermeldung 

133 Syntax Error! ausgeben 


_ [D8E6] 


bestehenden Dateieintrag überschreiben 


D8F5 AS E7 
D8F7 29 07 
D8F9 CD 4A 02 
DEFC DO 67 
DEFE CY 04 
D900 FO 63 
D902 20 DA DC 


LDA $E7 

AND #807 
CMP $024A 
BNE $D965 
CMP #804 

BEQ $D965 
JSR $DCDA 


Dateityp des ersten Dateinamens holen 
und Flagbits ausblenden 

mit aktuellem Dateityp vergleichen 
identisch ? 

ja, auf Wert für Relative Datei prüfen 
liegt eine Relative Datei vor ? 

nein, Datei zum Schreiben öffnen 


A5 
&D 
A9 
85 
20 
AD 
20 
AD 
B1 
09 
91 
AO 
A5 
91 


ID 


9D 


82 
70 


80 


02 


9702 


Das Disk-Operating-System (DOS 


LDA $82 Nummer des geöffneten Kanals holen 

STA $0270 und als aktuellen Schreibkanal merken 
LDA #811 Kanalnummer für internen Lesekanal (17) 
STA $83 als Sekundäradresse setzen 

JSR $DOEB Kanal zum Lesen öffnen 

LDA $0294 Position im akuellen Puffer holen 

JSR $D4C8 und Pufferadresse setzen 

LDY #00 Pufferzeiger initialisieren 

LDA ($94),Y Dateityp aus Directorypuffer holen 

ORA #%20 Flagbit für Datei geöffnet setzen 

STA ($94),Y und wieder in Dateieintrag schreiben 
LDY #81A Pufferzeiger auf Position der neuen 

LDA $80 Spurnummer setzen; Spurnummer holen und 
STA ($94),Y in Dateieintrag schreiben 

INY Pufferzeiger auf nächste Position 

LDA $81 Nummer des aktuellen Sektors holen und 
STA ($94),Y in Eintrag als ersetzende Werte merken 
LDX $0270 Nummer des aktuellen Schreibkanals holen 
LDA $D8 Sektor des Dateieintrags holen 

STA $0260,X und Nummer des Dateieintrags zuordnen 
LDA $DD Zeiger auf Sektornummer im Eintrag holen 
STA $0266,X und Dateieintrag zuordnen 

JSR $DE3B aktuelle Spur- und Sektornummer an Job 
JSR $D464 Datensektor schreiben 

JMP $DYEF Daten in Datei schreiben 

LDA $0280 Spurnummer des ersten Eintrags holen 
BNE $DI4A richtigen Eintrag gefunden ? 

LDA #862 nein, Fehlermeldung 

JMP $C1C8 162 File Not Found ausgeben 

LDA $0297 Dateibetriebsart feststellen 

CMP #803 und mit Wert für 'M' vergleichen 

BEQ $DY5C nicht geschlossene Datei lesen ? 

LDA #820 nein, Flag für 'Datei ist noch nicht 
BIT $E7 ordnungsgemäß geschloßen! setzen 

BEQ $DY5C ist Flag gesetzt ? 

LDA #$60 ja, Fehlermeldung 

JMP $C1C8 ı60 Write File Open! ausgeben 

LDA $E7 Dateityp holen und 

AND #807 reines Dateikennzeichen isolieren 

CMP $024A mit aktuellem Dateityp vergleichen 


BEQ $DI6A identisch ? 
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0965? 


: D967 
DIYSA 
DISC 
DY6F 
D972 
D974 
D976 
D978 
D97A 
DYTC 
DYTE 
DYEO 
D9Y82 
D983 
D985 
D987 
DIYSA 
DYED 
DYBE 
DY9O 
D993 


1 


A9 64 
4c c8 ci 
AO 00 
&C 79 02 
AE 97 02 
EO 02 

DO 1A 

c9 04 

FO EB 

Bi 94 

29 4F 

91 94 

AS 83 

48 

A9 11 

85 83 

20 3B DE 
20 64 D4 
68 

85 83 

20 AO D9 
AD 97 02 


LDA #564 
JMP $CIC8 
LDY #800 
STY $0279 
LDX $0297 
CPX #802 
BNE $D990 
CMP #504 
BEQ $D965 


LDA ($94) ,Y 


AND #54 F 


STA ($94) ,Y 


LDA $83 
PHA 


_LDA #811 


STA $83 
JSR $DE3B 
JSR $D464 
PLA 

STA $83 
JSR $DYAO 
LDA $0297 
CMP #$02 
BNE $DYEF 
JSR $DA2A 
JMP $C194 


nein, Fehlermeldung 

164 File Type Mismatch' ausgeben 
Pufferzeiger 

zurücksetzen 


Dateibetriebsart feststellen 


und mit Kennzeichen für 'A' vergleichen 
sollen Daten angefügt werden ? 

ja, Dateityp auf Relative Datei prüfen 
liegt eine Relative Datei vor ? 

nein, Dateityp aus Directorypuffer 
holen und Datei als geöffnet markieren 
Dateityp wieder in Eintrag zurück 
aktuelle Sekundäradresse holen 

und retten 


Nummer des internen Lesekanals (17) 


als aktuelle Sekundäradresse setzen 
aktuelle Spur und Sektor feststellen 
Sektor auf Diskette schreiben 
Sekundäradresse wieder holen 

und zurücksetzen 

Datei zum Lesen öffnen 
Dateibetriebsart feststellen und mit 
Kennzeichen für 'A' (Append) vergleichen 
Daten an bestehende Datei anhängen ? 
ja, Datei zum Anfügen vorbereiten 
und 'Ok'! Meldung bereitstellen 


[CA26/D9Y90] 
zum Lesen öffnen 


Datei 
DYAO 
DYA2 
DYA4 
DYA7 
DYAB 
DYAA 
DYAD 
DYAE 
DIBO 
DIB3 
DIB6 
D9B7 


AO 13 

B1 94 

8D 59 02 
c8 

Bi 94 

8D 5A 02 
c8 

B1 94 

AE 58 02 
&D 58 02 
8A 

FO 0A 


LDY #813 


LDA ($94),Y 


STA $0259 
INY 


LDA ($94),Y 


STA $025A 
INY 


LDA ($94),Y 


LDX $0258 
STA $0258 
TXA 

BEQ $D9C3 


Zeiger auf Side-Sektor-Eintrag richten 
Spur des ersten Side-Sektors holen 
und merken 

Pufferzeiger auf nächstes Byte 
Sektornummer des ersten Side-Sektors 
holen und merken 

Pufferzeiger auf nächste Position 
Länge eines Records feststellen 
letzte Recordlänge holen 

neue Recordlänge setzen 

letzte Recordlänge 

nicht gesetzt ? 


CD 58 02 
FO 05 
A9 50 
20 C8 Ci 
AE 79 02 
BD 80 02 
85 80 
BD 85 02 
85 81 
20 46 DC 
A4 82 
AE 79 02 
B5 D8 
99 60 02 


99 66 02 


CMP $0258 
BEQ $D9C3 
LDA #850 
JSR SCICB 
LDX $0279 
LDA $0280,X 
STA $80 

LDA $0285 ,X 
STA $81 

JSR $DC46 
LDY $82 

LDX $0279 
LDA $D8,X 
STA $0260,Y 
LDA $DD,X 
STA $0266,Y 
RTS 


Das Disk-Operatinge-System (DOS 


nein, mit aktueller Länge vergleichen 
letzter Record erreicht ? 

ja, Fehlermeldung 

150 Record Not Present! ausgeben 
Nummer des Dateinennung (0) 
aktuelle Spurnummer holen und 
setzen 

aktuelle Sektornummer holen 

und setzen 

Lesekanal öffnen 

Nummer des Kanals holen 

Nummer der verarbeiteten Datei 
Sektornummer holen und 
übertragen 

Position in Dateieintrag holen 
und übertragen 

zurück zur aufrufenden Routine 


[D8D6/DEDE) 
zum Schreiben öffnen 


Datei 
DIE3 
DIES 
DIET 
DIEI 
DYEC 
DYEF 
DYF1 
DIF3 
DIF5 
DYFE 
DYFA 
DYFC 


AS E2 
29 01 
85 7F 
20 DA DC 
20 E4 D6 
A5 83 
c9 02 
BO 11 
20 3E DE 
A5 80 
85 7E 
AS TF 
8D 6E 02 
AS 81 
8D 6F 02 
4c 99 C1 


LDA $E2 
AND #%01 
STA $7F 
JSR $DCDA 
JSR $D6EA 
LDA $83 
CMP #$02 
BCS $DA06 
JSR $DE3E 
LDA $80 
STA $7E 
LDA $7F 
STA $026E 
LDA $81 
STA $026F 
JMP $C199 


Nummer des angesprochenen Laufwerks 
herstellen 

und als aktuelles Laufwerk merken 

Kanal zum Schreiben öffnen 

Datei ins Directory eintragen 

aktuelle Sekundäradresse holen 

und auf Beginn der Dateikanäle prüfen 
soll Load oder Save ausgeführt werden ? 
ja, Spur und Sektor von Job holen 
Spurnummer als letzte Spur des letzten 
Zugriffs merken 

Nummer des aktuellen Laufwerks holen 
und als letztes aktives Laufwerk merken 
Nummer des aktuellen Sektors als letzten 
zugegriffenen Sektor merken 

ıOk'! Meldung bereitstellen 


[D866/D8373] 
Dateityp und Dateibetriebsart aus Befehlsstring feststellen 


DAOY 
DAOC 


BC 7A 02 
BY 00 02 


LDY $027A,X 
LDA $0200,Y 


Position des ersten Parameters holen 
Zeichen aus Eingabepuffer holen 
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DAOF_ AO 04 
panıl 88 

DA12 30 08 
DA14 D9Y B2 FE 
DA17T DO F& 
DA19_ &C 97 02 
DAIC, AO 05 
pa1el 88 

DAIF 30 08 
DA21 D9Y B6 FE 
DA24 DO FB 
DA26_ 8C 4A 02 
DA29 60 


LDY #804 
DEY 

BMI $DA1C 
CMP $FEB2,Y 
BNE $DA11 
STY $0297 
LDY #805 
DEY 

BMI $DA29 
CMP $FEB6,Y 
BNE $DA1E 
STY $024A 
RTS 


Zähler auf Zahl der Betriebsarten setzen 
Zähler auf nächstes Kennzeichen richten 
schon alle Betriebsarten geprüft ? 
nein, mit Dateibetriebsart vergleichen 
identisch ? 

ja, Position in Eingabestring merken 
und Zähler für Dateitypen setzen 

Zähler auf nächsten Dateityp richten 
schon alle Dateitypen geprüft ? 

nein, mit Dateityp vergleichen 
identisch ? 

ja, Position merken 

zurück zur aufrufenden Routine 


- [C9Y96/DYYA/DA32] 
Datei für Append 
DA2ZA 20 39 CA 
DA2D AY 80 
DA2ZF 20 AS DD 
DA32 FO F6 
DA34 20 95 DE 
DA37 A6 81 
DA39 EB 

DA3A 8A 

DA3B DO 05 
DA3D 20 A3 D1 
DA4O_ AY 02 
DA42 20 C8 D4 
DA45 A6 82 
DA47 A9Y 01 
DA49 95 F2 
DA4B AY 80 
DA4D 05 82 

A6 83 

9D 2B 02 


vorbereiten 
JSR $CA39 
LDA #80 
JSR $DDA6 
BEQ $DAZA 
JSR $DE9Y5 
LDX $81 
INX 

TXA 

BNE $DA42 
JSR $D1A3 
LDA #$02 
JSR $D4C8 
LDX $82 
LDA #801 
STA $F2,X 
LDA #$80 
ORA $82 
LDX $83 
STA $022B,X 
RTS 


Datenbyte lesen 

Flag für 'EOI aufgetreten! 

testen 

wurde letztes Byte gelesen ? 

ja, aktuelle Spur und Sektor feststellen 
Zeiger auf gültigen Datenbereich holen 
und um eins erhöhen 

(bei $FF wird er dann 0) 

ist der Sektor ganz gefüllt ? 

ja, Sektor auf Diskette schreiben 
Pufferzeiger auf Beginn 

des Datenbereichs setzen 

Nummer des aktuellen Kanals holen 

Flag für Schreiben 

in Kanalstatustabelle setzen 

Flag für Schreiben 

mit Kanalnummer verbinden 

aktuelle Sekundäradresse holen und 
Statusbyte der Sekundäradresse zuordnen 
zurück zur aufrufenden Routine 


[D7FC] 


Directory an Rechner übermitteln 


DAS5 A9 OC 
DAS7 8D 2A 02 


LDA #$0C 
STA $022A 


Befehlsnummer 12 
setzen 


00 
14 


02 


LDA #$00 
LDX $0274 
DEX 

BEQ $DA6D 
DEX 

BNE $DA86 
LDA $0201 
JSR $C3BD 
BMI $DA86 
STA $E2 
INC $0277 
INC $0278 
INC $027A 
LDA #880 . 
STA $E7 
LDA #$2A 
STA $0200 
STA $0201 
BNE $DA9YE 
JSR $C1E5 
BNE $DAYO 
JSR $C2DC 
LDY #803 
DEY 

DEY 

STY $027A 
JSR $C200 
JSR $C398 
JSR $C320 
JSR $C3CA 
JSR $C7B7 
JSR $C49D 
JSR $EC9YE 
JSR $D137 
LDX $82 


STA $023E,X 


LDA $7F 
STA $028E 
ORA #804 
STA $EC,X 
LDA #$00 


Das Disk-Operating-System ([ DOS 


Laufwerksnummer 

Länge des Befehlsstrings holen 

und mit 1 vergleichen 

hat der Befehl nur ein Zeichen ? 
nein, mit 2 vergleichen 

hat der Befehl nur zwei Zeichen ? 
ja, zweites Zeichen holen und für 
Laufwerksnummer überprüfen 

ist Laufwerksnennung fehlerfrei ? 
ja, Laufwerk merken 

Zeiger auf ersten 

und auf den zweiten Parameter im 
Befehlsstring auf nächste Position 
Flag für 'Datei richtig geschlossen! 
setzen 

ı*ı Joker als Dateiname in 
Befehlsstring 

schreiben 

immer Sprung nach $DA9E 

ı,ı in Befehlstring suchen 
Doppelpunkt gefunden ? 

ja, Zeiger für Befehlsstring löschen 
Position des ersten Dateinamens (1) 
‚Zeiger auf Position des Namens 
setzen 

Zeiger auf ersten Dateinahmen setzen 
Zeiger für Parameteranalyse setzen 
Zeiger auf Dateinamen und Dateityp 
Laufwerksnummer aus Befehlsstring holen 
Laufwerke für Zugriff vorbereiten 
Directorytitel erzeugen 

Dateinamen aus Directory holen 
Directoryzeile herstellen 

erstes Byte des Directory aus Puffer 
Nummer des aktuellen Kanals 

Byte zur Ausgabe bereitstellen 
aktuelles Laufwerk als Laufwerk, auf 
das zuletzt zugegriffen wurde merken 
Flag für PRG-Datei setzen 

und in Tabelle dem Kanal zuordnen 
Zeiger in Eingabepuffer wieder 


Das 


DABD 
DABF 


roße Flo 


85 A3 
60 
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STA $A3 
RTS 


bereit machen 
zurück zur aufrufenden Routine 


[8151/9193/91A3/91B9/AYF1/BF6O/ESCE) 


Datei 
DACO 
DAC2 
DAC5 
DAC7 
DAC9 
DACB 
DACE 
DAD1 
DAD4 
DAD6 
DAD8 
DADB 
DADD 
DADF 
DAE1 
DAE4 
DAE6 
DAEY 


schließen 


A9 00 
8D F9 02 
A5 83 
DO OB 
A9 00 
8D 54 02 
20 27 D2 
4C DA DA 
c9 OF 
FO 14 
20 02 DB 
A5 83 
c9 02 
90 FO 
AD 6C 02 
DO 03 
4c 94 C1 
4c AD Ci 


LDA #800 
STA $02F9 
LDA $83 
BNE $DAD4 
LDA #800 
STA $0254 
JSR $0227 
JMP $D4DA 
CMP #$0F 
BEQ $DAEC 
JSR $DBO2 
LDA $83 
CMP #%02 
BCC $DAD1 
LDA $026C 
BNE $DAEY 
JMP $C194 
JMP $C1AD 


Flag für 'BAM ungültig! 

setzen 

aktuelle Sekundäradresse holen 
Load-Befehl ? 

Ja, Flag für '!'Directory wird ausgegeben! 
Löschen 

Kanal schließen 

interne Lese-/Schreibkanäle schließen 
Sekundäradresse mit 15 vergleichen 

ist der Kommandokanal angesprochen ? 
nein, Datei abschließen 

aktuelle Sekundäradresse holen 

mit Beginn der Dateikanäle vergleichen 
liegt Load/Save - Kanal vor (0/1) ? 
nein, Fehlerflag holen und prüfen 

ist Fehler aufgetreten ? 

nein, 'Ok'! Meldung ausgeben 
Fehlermeldung ausgeben 


[DAD6] 


Alle Dateien abschließen 


DAEC AY OE LDA #%0E höchste Sekundäradrese für Dateien 

. DAEE, 85 83 STA $83 als aktuelle Sekundäradresse setzen 
DAFO 20 02 DB JSR $DB02 Datei schließen 
DAF3 C6 83 DEC $83 nächste Sekundäradresse anwählen 
DAF5 10 FY BPL $DAFO schon alle Kanäle geschlossen ? 
DAF7T AD 6C 02 LDA $026C ja, Fehlerflag holen und prüfen 
DAFA DO 03 BNE $DAFF ist Schließen fehlerfrei verlaufen ? 
DAFC, 4C 94 C1 JMP $C194 ja, 'Ok'! Meldung ausgeben 
DAFF 4C AD CI JMP $CIAD Fehlermeldung ausgeben 
[CYF7/DADB/DAFO] 


Datei, die durch Sekundäradresse bestimmt wird, abschließen 


DBO2 A6 83 LDX $83 aktuelle Sekundäradresse holen 
DBO4+ BD 2B 02 LDA $022B,X und entsprechenden Status feststellen 
DBO7T C9Y FF CMP #SFF mit Wert für 'Kanal frei' vergleichen 
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DBO9 
DBOB 
DBOC 
DBOE 
DB10 
DB13 
DB15 
DB17 
DB19 
DB1B 
DBIE 
DB20 
DB23 
DB26 
DB29 
DB2C 
DB2F 
DB32 
DB35 
DB37 
DB39 
DB3B 
DB3D 
DB3F 
DB41 
DB43 
DB44 
DB46 
DB48 
DB4B 
DB4D 
DB4F 
DB51 
DB53 
DB55 
DB57 
DB5A 
DB5C 
DB5F 


l 


20 25 D1 


AI 40 
20 A6 DD 
FO 03 
20 AS DB 
4c 27 D2 


BNE $DBOC 
RTS 

AND #$0F 
STA $82 
JSR $0125 
CMP #807 
BEQ $DB26 
CMP #804 
BEQ $DB2C 
JSR $D107 
BCS $DB29 
JSR $DB62 
JSR $DBA5 
JSR $EEF4 
JMP $D227 
JSR $DDF1 
JSR SCFIE 
JSR $EICB 
LDX $D5 
STX $73 
INC $73 
LDA #800 
STA $70 
STA $71 
LDA $D6 
SEC 

SBC #$0E 
STA $72 
JSR $DF51 
LDX $82 
LDA $70 
STA $B5,X 
LDA $71 
STA $BB,X 
LDA #840 
JSR $DDA6 
BEQ $DB5F 
JSR $DBA5 
JMP $D227 


Das Disk-Operating-System (DOS 


ist Kanal belegt ? 


nein, zurück zur aufrufenden Routine 


reine Kanalnummer herstellen 

und merken 

Dateityp holen und mit Kennzeichen 
für Direktzugriffsdatei vergleichen 
identisch ? 

nein, auf Wert für Relative Datei prüfen 
identisch ? 

nein, Kanal auf Schreibkanal prüfen 
ist der Kanal zum Schreiben geöffnet ? 
ja, Schreiben zu Ende führen 

Eintrag im Directory schließen 

BAM wieder auf Diskette zurückschreiben 
Kanal schließen 

aktuellen Puffer auf Diskette schreiben 
neuen Puffer anlegen 

Position des letzten Records holen 
Nummer des letzten Side-Sektors holen 
und merken 

nächsten Side Sektor anwählen 
Zeropageadressen als 

Zwischenspeicher 

einrichten 

Position in Side-Sektor holen 

und Zahl der Bytes für 

Verkettung zu anderen Side-Sektoren 
berücksichtigen 

Zahl der Blöcke der Datei errechnen 
Nummer des aktuellen Kanals 

Zahl der Blocks der relativen Datei 
(Low-Byte) in Tabelle übernehmen 
High-Byte 

kopieren 

Flag für "Eintrag korregieren'! in 
Dateityp des Kanals prüfen 

ist Flag in Dateityp gesetzt ? 

ja, Directoryeintrag aktualisieren 
Kanal schließen 
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[DB20] 

Letzten Datensektor einer Datei auf Diskette schreiben 

DB62 A6 82 LDX $82 Nummer des aktuellen Kanals holen 

DBö4 B5 B5 LDA $B5,X dem Kanal zugeordnete Recordnummer 
DB66 15 BB ORA $BB,X holen und prüfen 

DB68 DO 0C BNE $DB76 ist Recordnummer gesetzt ? 

DB6A 20 E8 D4 JSR $D4EB nein, aktuellen Pufferzeiger holen und 
DB6ED C9 02 CMP #$02 mit Start des Datenbereichs vergleichen 
DBöF DO 05 BNE $DB76 ist der Sektor noch leer ? 

DB71 A9 OD LDA #%0D ja, leeren Record ('Return') in 

DB73| 20 FI CF  JSR $CFF1 Puffer schreiben 

08762 20 E8 D4 JSR $DL4EB Pufferzeiger holen und mit Wert 

DB79 C9 02 CMP #02 für Start des Datenbereichs vergleichen 
DB7B DO OF BNE $DB&C ist der Sektor noch leer ? 

DB7D 20 IE CF  JSR $CFiE ja, neuen Puffer anlegen 

DB8EO A6 82 LDX $82 Nummer des aktuellen Kanals feststellen 
DB8ß2 B5 B5 LDA $B5,X zugeordnete Recordnummer (Low-Byte) 
DB8S4+ DO 02 BNE $DB88 ist Low-Byte auf Null ? 

DB86. D6 BB DEC $BB,X Ja, dann High-Byte der Recordnummer -1 
DB88 D6 B5 DEC $B5,X Low-Byte um eins vermindern 

DB8SA, A9Y 00 LDA #00 Rechenwert bei 'Puffer voll! 

DBSC 38 SEC Anzahl der gültigen 

DB8ED EY 01 SBC #801 Datenbytes des Sektors berechnen 

DBöF 48 PHA und merken 

DBYO A9Y 00 LDA #800 Pufferzeiger auf Verkettungsbytes 

DBY2 20 C8 DA JSR $DAC8 setzen 

DBY5S 20 Fi CF JSR SCFFi Kennzeichen für letzten Sektor schreiben 
DBY3 68 PLA Zahl der gültigen Datenbytes holen 
DBY9Y 20 FI CF  JSR $CFF1 und in Sektor schreiben 

DBYC 20 C7 DO JSR $D0C7 Sektor auf Diskette zurückschreiben 
DBYF 20 99 D5 JSR $0599 und warten bis Job ausgeführt ist 

DBA2 4C 1E CF JMP $CFiE neuen Puffer anlegen 

[DB23/DB5C] 

Directoryeintrag nach dem Schreiben abschließen 

DBA5S A6 82 LDX $82 Nummer des aktuellen Kanals 

DBA7’ 8E 70 02 STX $0270 holen und retten 

DBAA A5 83 LDA $83 Nummer der aktuellen Sekundäradresse 
DBAC 48 PHA holen und retten 

DBAD BD 60 02 LDA $0260,X Nummer des Directorysektors für Eintrag 


. DBBO 85 81 STA $81 holen und als aktuellen Sektor setzen 
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DBB2 
DBB5 
. DBB8 
DBBA 
DBBC 
DBBE 
DBC1 
DBC3 
DBC6 
DBC7 
DBCY 
DBCC 
DBCE 
DBD1 
DBD3 
DBD6 
DBD8 
DBDA 
DBDC 
DBDE 
DBE1 
DBE3 
DBES5 
DBE7 
DBEY 
DBEB 
DBEC 
DBEE 
DBFO 
DBF2 
DBF4 
DBF6 
DBF7 
DBF8 
DBFA 
DBFC 
DBFE 
DBFF 
DCO1 
DC03 
DCO6 


BD 66 02 


85 81 

A9 67 

20 45 E6 
48 


LDA $0266,X% 


STA $0294 
LDA $EC,X 
AND #801 
STA $7F 
LDA $FE85 
STA $80 
JSR $DF93 
PHA 

STA $F9 
JSR $D460 
LDY #800 


LDA $FEEO,X 


STA $87 
LDA $0294 
STA $86 


LDA ($86),Y 


AND #820 
BEQ $DC21 
JSR $D125 
CMP #804 
BEQ $DC29 


LDA ($86),Y 


AND #&8F 


STA ($86),Y 


INY 


LDA ($86),Y 


STA $80 
sty $71 
LDY #$1B 


LDA ($86),Y 


PHA 
DEY 


LDA ($86),Y 


BNE $DC06 
STA $80 
PLA 

STA $81 
LDA #$67 
JSR $E645 
PHA 
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Position des Eintrags im Directory holen 
und als aktuellen Pufferzeiger setzen 
Dateityp des Kanals holen 

Nummer des Laufwerks feststellen 

und als aktuelles Laufwerk übernehmen 
Nummer der Directoryspur holen 

und als aktuelle Spur festlegen 
Nummer des Puffers holen 

und merken 

aktuelle Puffernummer setzen 
Directorysektor in Puffer einlesen 
Positionszeiger zurücksetzen 
Pufferadresse (High-Byte) holen und als 
High-Byte des Pufferzeigers übernehmen 
aktuelle Position im Puffer holen und 
als Low-Byte übernehmen 

Dateityp aus Directoryeintrag holen 
und Flag für 'Datei offen! prüfen 

ist die Datei schon geschlossen ? 
nein, Dateityp weiter prüfen 

und auf Wert für Relative Datei prüfen 
identisch ? 

nein, gesamten Dateitypzeiger holen 
Flags löschen 

und Dateityp wieder zurück in Eintrag 
Pufferzeiger auf nächste Position 
Spurnummer des ersten Sektors der Datei 
holen und als aktuelle Spur merken 
aktuellen Pufferzeiger merken 
Pufferzeiger auf Sektor vom 
Überschreiben setzen und Nummer holen 
Sektornummer merken 

Pufferzeiger auf dazugehörige Spur 
setzen und Spurnummer holen 

ist kein Überschreibeintrag gesetzt ? 
ja, Spurnummer und 

Sektornummer wieder holen und in 
aktuelle Zeiger setzen 

Fehlermeldung 

167 illegal Track Or Sector! ausgeben 
Spurnummer merken 
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DCO7 
DCO9 
DCOB 
DCOc 
DCOE 
DCOF 
DC11 
DC13 
DC14 
-DC16 
DC18 
DC19 
DC1B 
DCIE 
Dc21 
DC23 
DC25 
DC27 
DC29 
Dc2C 
DC2E 
DC30 
DC32 
DC33 
DC35 
DC37. 
DC38 
DC39 
DC3B 


A9 
91 
c8 
91 
68 
Ah 
91 
c8 
B1 
85 
68 
91 
20 
De 
B1 
29 
09 
91 
AE 
AO 


00 
86 


86 


71 
86 


86 
81 


86 
7D C8 


29 DC. 


86 
OF 
80 
86 
70 02 
IC 
B5 
86 
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LDA #800 
STA (386) ,Y 
INY 

STA ($86) ,Y 
PLA 

LDY $71 

STA ($86),Y 
INY 

LDA ($86),Y 
STA $81 

PLA 

STA (386) ,Y 
JSR $C87D 
JMP $DC29 
LDA ($86),Y 
AND #$0F 
ORA #880 
STA ($86),Y 
LDX $0270 
LDY #$1C 
LDA $B5,X 


STA ($86),Y 


INY 

LDA $BB,X 
STA ($86),Y 
PLA 

TAX 

LDA #890 
ORA $7F 
JSR $D590 
PLA 
STA $83 
JMP $D107 
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Eintrag der Spur- 

und Sektornummer 

der überschreibenden Datei 

Löschen 

Spurnummer wieder holen 

Pufferzeiger wieder zurücksetzen 

Spur des ersten Sektors der Datei setzen 
Pufferzeiger auf nächstes Byte 

Nummer des alten Sektors holen 

und merken 

Nummer des ersten Sektors der Datei 
holen und in Eintrag speichern 

alte Dateisektoren löschen 

Datei schließen 

Dateityp aus Eintrag holen 

reines Dateikennzeichen isolieren 

Flag für 'Datei geschlossen! setzen 
und als neuen Dateityp setzen 

Nummer des aktuellen Kanals wieder holen 
Pufferzeiger auf Blockangabe setzen (28) 
Zahl der Blocks der Datei (Low-Byte) 
holen und in Eintrag schreiben 
Pufferzeiger auf nächstes Byte setzen 
High-Byte der Blockzahl holen und 

in Eintrag schreiben 

aktuelle Puffernummer zurückholen 

und merken 

Jobeode für 'Sektor schreiben! 
aktuelles Laufwerk in Jobcode eintragen 
Job ausführen 

aktuelle Sekundäradresse wieder holen 
und zurücksetzen 

Kanalnummer holen 


[DA7E/D7E4/DEOB/DIYDO/DC98:DDEA] 


Kanal 
DC46 
DC48 
DC4B 
DC4E 
DC51 


zum Lesen einer Datei öffnen 


A9 
20 
20 
AD 
48 


01 

E2 D1 
B6 DC 
4A 02 


LDA #801 
JSR $DIE2 
JSR $DCB6 
LDA $024A 
PHA 


Zahl der Puffer 

Kanal zum Lesen öffnen 
Zeiger des Kanals setzen 
aktuellen Dateityp holen 
und merken 


ASL A 
ORA $7F 

STA $EC,X 
JSR $D098 
LDX $82 

LDA $80 

BNE $DC65 
LDA $81 

STA $0244 ,X 
PLA 

CMP #804 
BNE $DCA9 
LDY $83 

LDA $022B,Y 
ORA #540 
STA $022B,Y 
LDA $0258 
STA $C7,X 
JSR $D28E 
BPL $DC81 
JMP $D20F 
LDX $82 
STA $CD,X 
LDY $0259 
STY $80 

LDY $025A 
sTY $81 

JSR $D6D3 
JSR $DE73 
JSR $D599 
LDX $82 
LDA #802 
STA $C1,X 
LDA #800 
JSR $D4CB 
JSR $E153 
JMP $DE3E 
JSR 30156 
LDX $82 

STA $023E ‚X 
LDA #888 
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Dateitypeintrag für Kanaltabelle 
herstellen; Laufwerk einblenden 

und in Tabelle dem Kanal zuordnen 
Sektor in Puffer einlesen 

aktuelle Kanalnummer holen 

aktuelle Spurnummer feststellen 

ist weiterer Sektor vorhanden ? 
nein, Zahl der gültigen Datenbytes 
‚holen und merken 

Dateityp wieder zurückholen und mit 
Wert für Relative Datei vergleichen 
liegt eine Relative Datei vor ? 

Ja, derzeitige Sekundäradresse holen 
zugeordnete Kanalnummer holen 

Flag für Lesen 

Sekundäradresse zuordnen 

Länge des Records holen 

und dem Kanal zuordnen 

neuen Puffer für Side-Sektor belegen 
noch ein Puffer frei ? 

nein, Fehler '70 No Channel! ausgeben 
Nummer des aktuellen Kanals 
Puffernummer merken 

Spurnummer des ersten Side-Sektors holen 
und als aktuelle Spurnummer setzen 
Nummer des Sektors holen 

und als aktuellen Sektor speichern 
Spur- und Sektor an Jobschleife 
Side-Sektor von Diskette in Puffer lesen 
warten bis Job ausgeführt 

Nummer des aktuellen Kanals holen 
und Recordzeiger in Tabelle 
initialisieren 

Zeiger auf Beginn des Sektors 
Pufferzeiger setzen 

ersten Record lesen und bereitstellen 
Byte für Ausgabe und Zeiger setzen 
Byte aus Puffer holen 

aktuelle Kanalnummer holen 

Byte für Ausgabe übergeben 
Ausgabeflag in Tabelle 
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DCB3 95 F2 STA $F2,X mit Kanalstatus setzen 

DCB5 60 RTS zurück zur aufrufenden Routine 
[DC4B/DCE5] 

Zeiger zum Kanal öffnen initialisieren 

DCB6 A6 82 LDX $82 Nummer des Kanals holen 

DCB8B B5 A7 LDA $A7,X und zugeordeten Puffer feststellen 
DCBA OA ASL A Flag für Pufferbelegung prüfen 

DCBB 30 06 BMI $DCC3 Puffer belegt ? 

DCBD A8 TAY nein, 

DCBE A9 02 LDA #02 Pufferzeiger auf Start des Datenbereichs 
DCCO. 99 99 00 STA $0099,Y (Byte $02) setzen 

DCC3 B5 AE LDA $AE,X Pufferstatus holen 

DCC5 09 80 ORA #%80 und Flag für Puffer inaktiv 

DCC7 95 AE STA $AE,X setzen 

DCC9_ OA ASL A Bit6 prüfen 

DCCA 30 06 BMI $DCD2 soll Puffer zurückgeschrieben werden ? 
DCCC A8 TAY nein, Puffernummer merken 

DCCD A9 02 LDA #802 Pufferzeiger (Low-Byte) auf 

DCCF. 99 99 00 STA $0099,Y Start des Datenbereichs setzen 

DCD2° AI 00 LDA #800 Zahl der freien Blocks (Low-Byte) 
DCD4 95 B5 STA $B5,X Löschen 
"DCD6 4C 7F A9 JUMP $AYTF Zahl der freien Blocks löschen 

DCDY EA NOP unbenutztes Byte 

[DA8A/DYO2/DIEI] 

Kanal um Datei zu schreiben öffnen 

DCDA 20 A9 Fi JSR $FI1AY freien Sektor in BAM suchen 

DCDD AY 01 LDA #$01 Zahl der benötigten Puffer 

DCDF 20 DF DI  JSR $DIDF Puffer belegen 

DCE2 20 DO D6 JSR $DEDO Spur- und Sektor an Jobschleife 

DCES 20 B6 DC JSR $DCB6 Kanalzeiger initialisieren 

DCEB A6 82 LDX $82 Nummer des derzeitigen Kanals 

DCEA AD ZA 02 LDA $024A aktuellen Dateityp holen 

DCED 48 PHA und merken 

DCEE OA ASL A Laufwerksnummer in 

DCEF 05 7F ORA $7F Dateityp übernehmen und 

DCF1 95 EC STA $EC,X in Tabelle dem Kanal zuordnen 

DCF3 68 PLA ursprünglichen Dateityp holen 

DCF4 C9 04 CMP #304 und auf Wert für Relative Datei prüfen 
DCF6 FO 05. BEQ $DCFD liegt eine Relative Datei vor ? 


8D 5A 


02 


LDA 
STA 
RTS 
LDY 
LDA 
AND 
ORA 
STA 
LDA 
STA 
JSR 
BPL 
JMP 
LDX 
STA 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 


#501 
$F2,X 


383 
$022B,Y 
#53 F 
#540 
$022B,Y 
$0258 
$C7,X 
$D28E 
$DD16 
$D20F 
$82 
$CD ‚X 
$DECI 
$FI1E 
$80 
$0259 
$81 
$025A 
$82 
$CD,X 
$D6D3 
#500 
$DEE9 
#500 
$DD8D 
#511 
$DDED 
#500 
$DD8D 
$0258 
$DD8D 
$80 
$DD8D 
$81 
$DD8D 
#810 
$DEE9 
$DEZE 
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nein, Flag für Schreiben 

setzen 

zurück zur aufrufenden Routine 
aktuelle Sekundäradresse holen 

und Kanal zuordnen 

Flagbits im Kanalstatus zurücksetzen 
Flag für Lesen 

setzen 

Länge eines Records holen 

und merken 

Puffer suchen 

freien Puffer gefunden ? 

nein, Fehler '70 No Channel! ausgeben 
Nummer des aktuellen Kanals holen 
und Puffer für Side-Sektor belegen 
Pufferinhalt löschen 

freien Sektor in BAM suchen 
Spurnummer des Sektors als Spur 

des ersten Side-Sektors speichern 
Nummer des Sektors als Sektornummer 
für den ersten Side-Sektor merken 
aktuelle Kanalnummer holen 

Nummer des entsprechenden Puffers holen 
Spur- und Sektornummer an Jobschleife 
Pufferzeiger auf Anfang 

des Puffers setzen 

Kennzeichen für letzten Sektor in 
Puffer schreiben 

Zahl der gültigen Bytes des Side-Sektors 
in Puffer übernehmen (17) 

Nummer des Side-Sektors 

in Puffer übertragen 

Recordlänge in Side-Sektor 

eintragen 

aktuelle Spurnummer in 

Side-Sektor speichern 

aktuelle Sektornummer in 

Side-Sektor speichern 

Pufferzeiger auf Recorddaten 

im Side-Sektor setzen 

Spur und Sekktor des letzten Jobs holen 
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DD5D A5 80 LDA $80 Spurnummer des ersten Datensektors 
DD5SF 20 8D DD JSR $DDED in Side-Sektor schreiben 

DD62 A5 81 LDA $81 Nummer des ersten Datensektors 
DD64 20 8D DD JSR $DDED in Side-Sektor übernehmen 

DD67 20 6C DE JSR $DESC Side-Sektor auf Diskette schreiben 
DD6EA 20 99 D5 JSR $D599 warten bis Job ausgeführt ist 

DDED A9 02 LDA #02 aktuellen Pufferzeiger auf 

DDöF 20 C8 D4  JSR $DAC8 Beginn des Datenbereichs setzen 
DD72 A6 82 LDX $82 Nummer des aktuellen Kanals 

DD7’4 38 SEC holen 

DD’5 A9 00 LDA #00 Akku initialisieren und 

DD77 F5 C7 SBC $C7,X aus Recordlänge die Position des 
DD7’9 95 C1 STA $C1,X nächsten Records errechnen und setzen 
DD7B 20 E2 E2 JSR $E2E2 Records in Sektor anlegen 

DD’E 20 19 DE JSR $DE1Y Verkettung setzen 

DD81 20 5E DE JSR $DES5E Sektor auf Diskette schreiben 

DD84 20 99 D5 JSR $D599 und warten bis Job ausgeführt ist 
DD87 20 F4 EE UJSR $EEF4 neue BAM auf Diskette schreiben 
DDBA AC 98 DC JMP $DC9Y8 Rückmeldung ausgeben 


“un 0m a0 0 aan a TE En En a nn a 5 a mn mm na m na m En ET m a Sn CH na a a a aa 5 a m OT a a a a a a a nn an mn um m 


[DD38/DD30/DD42/DD48/DD4D/DD52/DD5SF/DD64/E3FA/E3ZFE] 
Ein Byte in aktuellen Side-Sektor schreiben 


DDED 48 PHA Byte merken 

DD8E A6 82 LDX $82 Nummer des aktuellen Kanals holen 
DD90O B5 CD LDA $CD,X und entsprechenden Puffer feststellen 
DD92 AC FD CF JUMP SCFFD Byte in Puffer übertragen 


[Einsprungstelle wird im DOS nicht genutzt] 

Kanalnummer im Dateityp-Flag setzen (Carry=1) oder löschen (Carry=0) 
DD95 90 06 BCC $DD9D Flags löschen ? 
[CAAF/DDY7/EOIA/EOAD/E107/E2SF] 

Wert in Dateitypflag einblenden (Bit =1: setzen) | 


DD97 A6 82 LDX $82 nein, Nummer des aktuellen Kanals holen 
DD99 15 EC ORA $EC,X und in Dateitypflag einblenden 
"DDYB DO 06 BNE $DDA3 immer Sprung nach $DDA3 


[CFAC/DD95/DFD2/EO03/EOED/E21B] 

Wert in Dateitypflag ausblenden (Bit =1: ausblenden) 

DD9D A6 82 LDX $82 aktuelle Kanalnummer holen 
DDYF 49 FF EOR #$FF und invertieren 
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DDA1 


DDA5 


35 EC 
DDA3 95 EC 


60 
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AND $EC,X Nummer aus Dateitypflag ausblenden 
STA $EC,X neues Dateitypflag setzen 
RTS zurück zur aufrufenden Routine 


[C9YDD/DA2F/DB5S7/DFD7/EOAD/EOBE/EOFS/E122/E26A] 
Dateitypflag auf gesetzt prüfen (Flag-Wert in Akku) 


DDA6 A6 82 LDX $82 Nummer des aktuellen Kanals holen 
DDA8 35 EC AND $EC,X und entsprechende Flags prüfen 

DDAA 60 RTS zurück zur aufrufenden Routine 
[CF4C/EO52/E060] 

Prüfen ob Jobcode für Schreiben vorliegt | 

DDAB 20 93 DF JSR $DF93 Nummer des derzeitigen Puffers holen 
DDAE AA TAX und merken 

DDAF BD 5B 02 LDA $025B,X letzten Jobcode des Puffers holen 
DDB2 29 FO AND #&F0 und reine Befehlsbits herstellen 
DDB4 C9 90 CMP #890 mit Wert für Schreiben vergleichen 
DDB6ö 60 RTS zurück zur aufrufenden Routine 
[C835] 

Dateizeiger prüfen 

DDB7, A2 00 LDX #%00 Sekundäradresse setzen 

DDBY 86 71 STX $71 und merken 

DDBB BD 2B 02 LDA $022B,X zugehorige Kanalnummer holen 

DDBE CY FF CMP #SFF mit Wert für "Kanal frei! vergleichen 
DDCO_ DO 08 BNE $DDCA ist Kanal belegt ? 

DDC2> A6 71 LDX $71 ja, Nummer der Sekundäradresse wieder 
DDC4 EB INX holen und nächste Adresse anwählen 
DDC5 EO 10 CPX #810 mit maximaler Adresse +1 vergleichen 
DDC7 90 FO BCC $DDB9 ist Sekundäradresse erlaubt ? 

DDC9_ 60 RTS nein, zurück zur aufrufenden Routine 
opcaAl 86 71 STX $71 freie Sekundäradresse merken 

DDCC 29 3F AND #$3F Kanalnummer feststellen 

DDCE A8 TAY und merken 

DDCF B9 EC 00 LDA $ODEC,Y Dateitypflag holen und Nummer 

DDD2 29 01 AND #801 des angewählten Laufwerks holen 

DDD4 85 70 STA $70 Laufwerksnummer merken 

DDD6 AE 53 02 LDX $0253 Nummer des Eintrags 

DDD9 B5 E2 LDA $E2,X Standardlaufwerk des Kanals 

DDDB 29 01 AND #801 holen 

DDDD C5 70 CMP $70 und mit angewähltem Laufwerk vergleichen 
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DDDF DO EI BNE $DDC2 identisch ? 

DDEi BY 60 02 LDA $0260,Y ja, Nummer des Directorysektors holen 

DDE4 D5 D8 CMP $D8,X und mit Sektor des Eintrags vergleichen 
 DDE& DO DA BNE $DDC2 identisch ? 

DDE8 BY 66 02 LDA $0266,Y ja, Position des Eintrags holen 

DDEB D5 DD CMP $DD,X und auf Position in Directory testen 

DDED DO D3 BNE $DDC2 identisch ? 

DDEF 18 CLC ja, Flag für alle Zeiger ok 

DDFO 60 RTS zurück zur aufrufenden Routine 

[DB2C/E2AA/E454] 

Puffer auf Diskette schreiben 

DDF1 20 9E DF JSR $DFYE Status des Puffers prüfen 

DDF4 50 06 BVC $DDFC sind Daten im Puffer geändert worden 

DDF6 20 5E DE JSR $DESE ja, Sektor auf Diskette schreiben 

DDF9_ 20 99 D5 JSR $D599 warten bis Job ausgeführt ist 

DDFC 60 -RTS zurück zur aufrufenden Routine 

[E3AC/E3BF] 

Verkettungsbytes, die auf nächsten Sektor zeigen, setzen 

DDFD 20 2B DE JSR $DE2B aktuellen Pufferzeiger setzen 

DEOO A5 80 LDA $80 Spurnummer des nächsten Sektors in 

DEO2 91 94 STA ($94),Y Puffer übertragen 

DEOL CB INY Pufferzeiger auf nächste Position 

DEO5S AS 81 LDA $81 Nummer des nächsten Sektors 

DEO7T 91 94 STA ($94),Y in aktuellen Puffer schreiben 

DEO9 4C 05 EI  UMP $E105 Puffer als 'geändert'! kennzeichnen 

[E2ZAD/E3D7] 

Verkettungsbytes, die auf nächsten Sektor zeigen, holen 

DEOC 20 2B DE JSR $DE2B aktuellen Pufferzeiger setzen 

DEOF B1 94 LDA ($94),Y Spurnummer des nächsten Sektors aus 

DE11 85 80 STA $80 Puffer holen und merken 

DE13 C8 INY Pufferzeiger auf nächstes Byte setzen 

DE14 Bi 94 LDA ($94),Y Nummer des nächsten Sektors aus Puffer 

DE16 85 81 STA $81 | holen und als aktuellen Sektor merken 


DE18 60 RTS zurück zur aufrufenden Routine 
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[DD7E/E3D1] 
Kennzeichen für letzten Sektor in Verkettungsbytes setzen 
DE19 20 2B DE JSR $DE2B aktuellen Pufferzeiger setzen 
DEIC A9 00 LDA #%00 Kennzeichen für letzten Sektor in 
DEIE 91 94 STA ($94),Y Puffer schreiben 
DE20 C8 INY Pufferzeiger auf nächstes Byte 
DE21 A6 82 LDX $82 | Nummer des aktuellen Kanals holen 
DE23 B5 CI LDA $C1,X Zahl der gültigen Datenbytes aus Tabelle 
DE25S AA TAX holen und 
DE26 CA DEX korregieren 

: DE27 BA TXA (da O0 mitgezählt wird) 
DE28 91 94 STA ($94),Y Zahl in Puffer schreiben 
DE2ZA 60 RTS zurück zur aufrufenden Routine 


[DDFD/DEOC/DEI9/E1B2/EZE2] 
Pufferzeiger des aktuellen Puffers auf Null setzen 


DE2B 20 93 DF JSR $DF93 Nummer des Puffers holen 

DEZE OA ASL A und verdoppeln (da Zeigertabelle aus 
DE2F AA TAX 2-Byte-Werten besteht) 

DE30O B5 9A LDA $9A,X Highbyte der Pufferadresse holen 

DE32 85 95 STA $95 und in Pufferzeiger übernehmen 

DE34 A9 00 LDA #800 Low-Byte auf Start des Puffers 

DE36 85 94 STA $94 setzen 

DE38 AO 00 LDY #00 Indexzeiger auf Anfang zurücksetzen 
DE3A 60 RTS zurück zur aufrufenden Routine 


[C5E8/C634/D48D/D6F4/D937/D987] 
aktuelle Spur- und Sektornummer des aktuellen Jobs holen 
DE3B 20 EB DO JSR $DOEB Kanalnummer der Sekundäradresse holen 


[DYFS/DCA6/DDSA/E2DO/E3EO/E824/E840/FI1E] 
Spur- und Sektornummer des aktuellen Jobs holen 


DEZE 20 93 DF JSR $DF93 zugehörige Puffernumer feststellen 

DEA1 85 FY STA $F9 und als aktuellen Puffer merken 

DE43 OA ASL A Puffernummer verdoppeln (da Spur/Sektor- 
DE44 AB TAY Tabelle aus 2-Byte-Werten besteht) 

DE4S BY 06 00 LDA $0006,Y Spurnummer des aktuellen Jobs holen 
DE48 85 80 STA $80 und als aktuelle Spurnummer merken 

DE4JA B9 07 00 LDA $0007,Y Nummer des dazugehörigen Sektors holen 
DE4D 85 81 STA $81 und als aktuellen Sektor übernehmen 


DE4F 60 RTS zurück zur aufrufenden Routine 
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[EAA6/DE57:CAA9,CF5A,E057,E065 ,E075/DESE:COBB,CAC3,DD81,DDF6,E047 ,E3B3] 
[E3D4 ,E4ED/DE6C:DD67 ,E420/DE73:DCY2] 
Jobcodes an Jobschleife übergeben 


[DA34/EO3F/EO6B] 


DE5SO A9 90 LDA #$90 Jobcode für 'Sektor schreiben! 
DE52 8D 4D 02 STA $0240 setzen 
DE5S5_ DO 28 BNE $DE7F immer Sprung nach $DE7F 
DE57” A9Y 80 LDA #$80 Jobcode für 'Sektor lesen! 
DE5S9 8D LAD 02 STA $024D setzen 
DESC_ DO 21 BNE $DE7F immer Sprung nach $DE7F 
DESE A9Y 90 LDA #890 Jobceode für '!Sektor schreiben! 
DE6DO 8D 4D 02 STA $024D setzen 
DE63 DO 26 BNE $DE8B immer Sprung nach $DE7F 
DE65 A9Y 80 LDA #80 Jobeode für Sektor lesen 
DE67 8D 4D 02 STA $024D setzen 
DE6A_ DO 1F BNE $DE8B immer Sprung nach $DE7F 
| DESCZ A9 90 LDA #$90 Jobcode für 'Sektor schreiben! 
DE6GE 8D 4D 02 STA $024D setzen 
DE71, DO 02 BNE $DE75 immer Sprung nach $DE7F 
pe 731 A9 80 LDA #$80 Jobcode für 'Sektor lesen! 
DE75 8D 4D 02 STA $024D setzen 
DE78 A6 82 LDX $82 Nummer des aktuellen Kanals holen 
DE7TA B5 CD LDA $CD,X Nummer des dritten Puffers feststellen 
DE7’C AA TAX und merken 
DE7D_ 10 13 BPL $DE9Y2 ist Puffer benutzt ? 
DETFZ 20 DO D6 JSR $DEDO nein, Spur und Sektor an Jobschleife 
DE82 20 93 DF JSR $DFY3 Nummer des aktuellen Puffers holen 
DE8S AA TAX und merken 
DE8B6 AS 7F LDA $7F Nummer des aktuellen Laufwerks holen 
DE8S| 9D 5B 02 STA $025B,X und Puffer zuordnen 
DE8SB” 20 15 EI JSR $E115 Flag für ' Puffer geändert! löschen 
DESE 20 93 DF JSR $DF93 Nummer des aktuellen Puffers holen 
DE91_ AA TAX und merken 
DEY2 4C 06 D5 JUMP $D506 Parameter prüfen und Job ausführen 


Parameter des nächsten Sektors anhand der Verkettungsbytes setzen 


DEY5 A9 00 LDA #00 aktuellen Pufferzeiger auf 

DE9Y7 20 C8 DA UJSR $DAC8 Start des Puffers zurücksetzen 
DE9A 20 37 DI JSR $D137 Byte aus Puffer holen und 

DEYD 85 80 STA $80 als aktuelle Spurnummer übernehmen 
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Byte aus Puffer holen und 


DE9F 20 37 D1 JSR $0137 

DEA2 85 81 STA $81 als Nummer des aktuellen Sektors setzen 
DEA4 60 RTS zurück zur aufrufenden Routine 

[E467] 


Daten aus Puffer in anderen Puffer kopieren 
(Akku muß Zahl der Bytes enthalten; Y die Nummer des Quellpuffers; 
X enthält die Nummer des Zielpuffers) 


DEA5 48 PHA Zahl der zu kopierenden Bytes merken 
DEA6 A900 LDA #$00 Low-Bytes der beiden 

DEA8 85 6F STA $6F Pufferzeiger 

DEAA 85 71 STA $71 Löschen 

DEAC B9 EO FE LDA $FEEO,Y High-Byte der Pufferadresse des Quell- 
DEAF 85 70 STA $70 puffers setzen 

DEB1I BD EO FE LDA $FEEO,X High-Byte der Pufferadresse des Ziel- 
DEB4 85 72 STA $72 puffers setzen 

DEB6 68 PLA Zahl der zu übertragenden Bytes 

DEB7 A8 TAY wieder holen und merken 

DEB8 88 DEY zähler initialisieren 

peggl B1 6F LDA ($6F),Y Byte aus Quellpuffer lesen und 

DEBB 91 71 STA ($71),Y in Zielpuffer übertragen 

DEBD 88 DEY Pufferzeiger auf nächstes Byte setzen 
DEBE 10 F9 BPL $DEBY schon alle Daten übertragen ? 

DECO 60 RTS Ja, zurück zur aufrufenden Routine 
[DD1A/E45SB] 


Puffer mit $00 löschen (Nummer in 


A) 


DEC1 A8 TAY Puffernummer merken 

DEC2 BY EO FE LDA $FEEO,Y High-Byte der Pufferadresse holen 
DECS 85 70. STA $70 und in Zeiger festlegen 

DEC7 A9 00 LDA #%00 Low-Byte des Zeigers 

DECY 85 6F STA $6F auf den Pufferbeginn setzen 

DECB_ AB TAY Puffer mit Wert der Puffernummer 
peccl 91 6F STA ($6F),Y Löschen 

DECE C8 INY Pufferzeiger auf nächste Position 
DECF DO FB BNE $DECC schon ganzer Puffer gelöscht ? 
DEDI 60 RTS ja, zurück zur aufrufenden Routine 
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[DF66/E1ICB] 
Nummer des aktuellen Side-Sektors holen 


DED2 
DED4 


A9 00 
20 DC DE 


LDA #%00 
JSR $DEDC 
LDY #802 


LDA ($94) ,Y 


RTS 


Pufferadresse holen 

und in Zeiger $94/$95 setzen 

Position im Puffer anwählen 

Nummer des Side-Sektors aus Sektor holen 
zurück zur aufrufenden Routine 


[DED4/DEEA/E41E/E46C] 
Pufferzeiger $94/$95 auf beliebige Position in Puffer setzen 


DEDC 
DEDE 
DEEO 


85 94 
A6 82 

B5 CD 
AA 

BD EO FE 
85 95 


STA $94 
LDX $82 
LDA $CD,X 
TAX 


LDA $FEEO,X 


STA $95 
RTS 


gewünschte Position im Puffer merken 
Nummer des aktuellen Kanals holen 

und zugeordneten 3. Puffer feststellen 
und Puffernummer merken 

High-Byte der Pufferadresse holen 

und in Zeiger setzen 

zurück zur aufrufenden Routine 


[DD33/DD57/DF14/EIFF/E3SA/E3F4] 


Pufferzeiger setzen 


DEE9Y 
DEEA 
DEED 
DEEE 
DEEF 
DEFO 
DEF1 


48 
20 DC DE 
48 


PHA 

JSR $DEDC 
PHA 

TXA 

ASL A 

TAX 

PLA 

STA $9A,X 
PLA 

STA $99,X 
RTS 


gewünschte Position im Puffer merken 
Pufferzeiger setzen 

High-Byte der Pufferadresse merken 
Nummer des aktuellen Puffers holen 

und verdoppeln (da Tabelle 2-Byte-Werte 
enthalten) 

High-Byte der Pufferadresse wieder holen 
und in Tabelle der Pufferadressen setzen 
Position im Puffer holen 

und in Tabelle eintragen 

zurück zur aufrufenden Routine 


[E258/E43C] 
Side-Sector in Puffer lesen und Zeiger setzen 


_DEFB 
DEFB 
DEFD 
DEFF 
DFO1 
DFO3 
DFO& 


20 66 DF 
30 0E 
50 13 
A6 82 
B5 CD 
20 1B DF 
20 66 DF 


JSR $DF66 
BMI $DFOB 
BVC $DF12 
LDX $82 

LDA $CD,X 
JSR $DFIB 
JSR $DF66 


Status des Side-Sektors prüfen 
existiert Side-Sektor ? 

ja, ist Side-Sektor im Puffer ? 

nein, Nummer des aktuellen Kanals holen 
zugeordnete Puffernummer feststellen 
Side-Sektor in Puffer einlesen 

Status nochmals prüfen 
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DFOY 
DFOB 
DFOE 
DF11 
DF12 
DF14 
DF17 
DFIA 


10 07 

20 CB Ei 
2C CE FE 
60 

A5 D6 
20 E9 DE 
2C CD FE 
60 


BPL $DF12 
JSR $EICB 
BIT $FECE 
RTS 

LDA $D6 
JSR $DEEI 
BIT $FECD 
RTS 
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ist alles fehlerfrei verlaufen ? 
nein, Ende der rel. Datei suchen 
N und V Prozessorflag setzen 
zurück zur aufrufenden Routine 
Position in Side-Sektor holen 
und Pufferzeiger setzen 

alle Flags löschen 

zurück zur aufrufenden Routine 


[DFO3/E1EC/E4ADE] 


Sektor lesen (Pufferzeiger des aktuellen Puffer muß auf Spur- und 
Sektorparameter der Verkettungsbytes gerichtet sein) 


DFIB 
DFID 
DFIF 
DF21 
DF23 
DF25 
DF26 
DF28 
DF2A 
DF2C 
DF2D 
DF2F 
DF32 
DF34 
DF36 
DF37 
DF39 


l 


85 F9 
A9 80 

DO 04 

85 F9 
A9 90 

48 

B5 EC 

29 01 

85 7F 

68 

05 7F 

8D 4D 02 
B1 94 

85 80 

c8 

B1 94 

85 81 

A5 F9 

20 D3 D6 
A6 FY 
4C 93 D5 


STA $F9 

LDA #880 
BNE $DF25 
STA $F9 

LDA #890 
PHA 

LDA $EC,X 
AND #801 
STA $7F 

PLA 

ORA $7F 

STA $024D 
LDA ($94),Y 
STA $80 

INY 

LDA ($94),Y 
STA $81 

LDA $F9 


Nummer des Puffers merken 

Jobcode für '!'Sektor lesen! setzen 
immer Sprung nach $DF25 

Nummer des aktuellen Puffers merken 
Jobcode für !Sektor schreiben! setzen 
und Jobcode merken 

Dateityp des Kanals holen 

und angewähltes Laufwerk feststellen 
als aktuelle Laufwerksnumer übernehmen 
Jobcode wieder holen 

und Laufwerksnummer mit einblenden 
Jobcode merken 

Nummer des nächsten Sektors aus Puffer 
lesen und speichern 

Pufferzeiger auf nächstes Byte setzen 
Nummer des Sektors aus Puffer holen. 
und übernehmen 
Nummer des aktuellen Puffers 

Spur- und Sektorparameter an Jobschleife 
Nummer des aktuellen Puffers holen 
Job ausführen 


[LEZEY/EAOF/ELIE] 
Zeiger für Side-Sektor setzen 


 DF45 
DF47 
DF49 


A6 82 
B5 CD 
4C EB D4 


LDX $82 
LDA $CD,X 
JMP $D4EB 


Nummer des aktuellen Kanals 
Nummer des zugeordneten Puffers holen 
Pufferzeiger setzen 
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[DF52/Einsprung über DF51/DF5C in DB48/DF4E/DF57/E381/DF51:DB48] 
Zahl der Sektoren einer Relativen Datei berechnen 


DFAC 
DF4E 
DF51 
DF52 
DF54 
DF56 
DF57 
DFS5A 
DFSC 
DF5D 
DF5SF 
DF61 
DF63 
DF65 


A9 78 
20 5C DF 
CA 

10 F8 
AS 72 
4A 

20 5C DF 
AS 73 

18 

65 70 

85 70 

90 02 

E6 71 

60 


LDA #878 
JSR $DF5C 
„DEX . 

BPL $DFAC 
LDA $72 
LSR A 

JSR $DF5C 
LDA $73 
CLC 

ADC $70 
STA $70 
BCC $DF65 
INC $71 
RTS 


Zahl der Sektorzeiger pro Side-Sektor 
in Zähler addieren 

nächste Side-Sektornummer setzen 
alle Side-Sektoren berücksichtigt ? 
ja, Zahl der Verkettungsbytes 

durch 2 teilen 

dazu addieren 

Zahl der Side-Sektoren 

Addition initialisieren 

Wert zu Zähler 

addieren 

ist ein Übertrag aufgetreten ? 

ja, High-Byte korregieren 

zurück zur aufrufenden Routine 


[DEF8/DFO6] 


Status eines Side-Sektors prüfen 


DF66 
DF69 
DF6B 
DFED 
DFöF 
DF71 
DF73 
DF76 
DF77 
DF7A 
DF7B 
DF7D 
DF7F 
DF81 
DF&2 
DF83 
DF85 
DF87 
DF89Y 
DF&B 
DF8E 
DFEF 


20 D2 DE 
Cc5 D5 
DO 0E 
A4 D6 


l 2C CF FE 


l 


60 


I 2C CE FE 


JSR $DED2 
CMP $D5 
BNE $DF7B 
LDY $D6 
LDA ($94) ,Y 
BEQ $DF77 
BIT $FECD 
RTS 

BIT $FECF 
RTS 

LDA $D5 
CMP #306 
BCS $DF8B 
ASL A 

TAY 

LDA #804 
STA $94 
LDA ($94),Y 
BNE $DFBF 
BIT $FEDO 
RTS 

BIT $FECE 


Nummer des Side-Sektors aus Puffer holen 
mit gesuchtem Sektor vergleichen 

ist der richtige Side-Sektor im Puffer ? 
ja, Zeiger in Puffer holen 

Spurnummer des Records holen 

ist Record angelegt ? 

ja, Fehlerflags löschen 

zurück zur aufrufenden Routine 

Flag für 'kein Record' setzen 

zurück zur aufrufenden Routine 

Nummer des gesuchten Side-Sektors holen 
mit größtem Side-Sektor vergleichen 

ist Nummer im erlaubten Bereich ? 

ja, Side-Sektornummer verdoppeln 

und merken 

Pufferzeiger setzen 

und speichern 

Spurnummer des Side-Sektors holen 

ist Spur gesetzt ? 

nein, Fehlerflags setzen 

zurück zur aufrufenden Routine 

Flag für 'Sektor nicht im Puffer! setzen 
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DF92 60 RTS Ä zurück zur aufrufenden Routine 
[CAB7/CDEC/CF6ÖF/CFF2/DOCC/D12F/D1D3/D324/D44D/DACA/DAEB/DAFB/DEDO/D’5E] 
[DBC3/DDAB/DE2B/DE3E/DE82/DEBE/EOTF/E45S7/EADI/ECB3/ECDC/EDOD/ED32/ED4A6] 
[EEF4] 

Nummer des aktuellen Puffers feststellen 


DF93 A6 82 LDX $82 Nummer des aktuellen Kanals holen 
DF95 B5 A7 LDA $A7,X Pufferbelegung prüfen 

DF97 10 02 BPL $DF9YB ist Puffer belegt ? 

DF99 BSAE : LDA $AE,X Nummer des zweiten Puffers 

DF9B 29 BF AND #$BF holen 

DF9D 60 RTS zurück zur aufrufenden Routine 


[DDF1/EO42/E10A/E115/E4B1] 
Status des akuellen Puffers holen 


DFYE A6 82 LDX $82 Nummer des derzeitigen Kanals holen 
DFAO 8E 57 02 STX $0257 und merken 

DFA3 B5 A7 LDA $A7,X Puffernummer holen 

DFA5 10 09 BPL $DFBO ist Puffer belegt ? 

DFA7 BA TXA ja, Kanalnummer wieder holen 

DFA8 18 CLC und auf Nummer 

DFA9 69 07 ADC #807 für Zugriff auf zweiten 

DFAB 8D 57 02 STA $0257 Puffer umrechnen und merken 

DFAE, B5 AE LDA $AE,X Pufferstatus holen und prüfen 

prsol 85 70 STA $70 Status merken 

DFB2 29 iF AND #$1F Flags ausblenden 

DFB4 24 70 BIT $70 ist Puffer aktiv ? 

DFB6 60 RTS zurück zur aufrufenden Routine 
[CF21/CF7E] 

Prüfen ob Puffer frei ist 

DFB7 A6 82 LDX $82 Nummer des aktuellen Kanals 

DFB9 B5 A7 LDA $A7,X dazugehörige Puffernummer holen 
DFBB 30 02 BMI $DFBF ist Puffer belegt ? 

DFBD, B5 AE LDA $AE,X ja, Pufferstatus prüfen 

DFBF CY FF CMP #SFF mit Wert für 'Puffer aktiv' vergleichen 


DFC1 60 RTS zurück zur aufrufenden Routine 
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aktuellen Puffer aktivieren (bei 2-Puffer-Betrieb) 


Nummer des aktuellen Kanals holen 

Flag für 'Puffer inaktiv! setzen 

Nummer des passenden Puffers holen 

ist 1. Puffer belegt ? 

nein, 1. Puffer aktivieren 

zurück zur aufrufenden Routine 

Nummer für 2. Puffer dem Kanal zuordnen 
zurück zur aufrufenden Routine 


Flag für '!Record voll! 

Löschen 

Flag für letztes Byte (EOI) 

Flag prüfen 

ist letztes Byte empfangen worden ? 
nein, Nummer des aktuellen Kanals holen 
und Nummer des Records erhöhen 

ist ein Übertrag emtstanden ? 

ja, High-Byte auch korregieren 
aktuelle Kanalnummer holen 

Zeiger auf Position im Puffer holen 
Zeiger gesetzt ? 

Ja, Pufferzeiger wieder holen 

Nummer des aktuellen Kanals holen und 
Puffer- mit Recordzeiger vergleichen 
ist Puffer- kleiner Recordzeiger ? 
nein, Record in Puffer schreiben 
Nummer des aktuellen Kanals 
dazugehörigen Zeiger auf Record holen 
und Pufferzeiger entsprechend setzen 
Datenbyte aus Puffer holen 

und merken 

Flag für "Record voll! 

Löschen 

Recordlänge zu Pufferzeiger addieren 
neuen Zeigerwert merken 

Passt Record noch in aktuellen Sektor ? 
nein, Positionszeiger setzen 


[ICF2E/CF88] 
DFC2 A6 82 LDX $82 
DFCA 09 80 ORA #$80 
DFC6 BA A7 LDY $A7,X 
DFC8 10 03 BPL $DFCD 
DFCA 95 A7 STA $A7,X 
DFCC, 60 RTS 
DFCD 95 AE STA $AE,X 
DFCF 60 RTS 

- [E153/E009:E291] 
Record einer Relativen Datei schreiben 
DFDO AY 20 LDA #820 
DFD2 20 9D DD JSR $DDID 
DFD5 A9Y 80 LDA #%80 
DFD7 20 A6& DD JSR $DDA6 
DFOA DO 41 BNE $701D 
DFDC A6 82 LDX $82 
DFDE F6 B5 INC $B5,X 
DFEO DO 02 BNE $DFE4 
DFE2. F6 BB INC $BB,X 
DrE4l A6 82 LDX $82 
DFE6 B5 C1 LDA $C1,X 
DFE8 FO 2E BEQ $7018 
DFEA 20 E8 D4 UJSR $D4EB 
DFED A6 82 LDX $82 
DFEF D5 C1 CMP $C1,X 
DFF1 90 03 BCC $DFF6 
DFF3_ 20 3C EO JSR $EOSC 
DFF6 A6 82 LDX $82 
DFF8 B5 C1 LDA $C1,X 
DFFA 20 C8 DA UJSR $D4C8 
DFFD A1 99 LDA ($99,X) 
DFFF 85 85 STA $85 
E001 A9 20 LDA #820 
E0O03 20 9D DD JSR $DDID 
E006, 20 04 E3 JSR $E304 
E009 48 PHA 
EOOA 90 28 BCC $E034 
EOOC A9 00 LDA #%00 


450 | Das Disk-Operating-System (DOS 


EOOE 20 F6 D4 JSR $DAF6 “und Byte (Spurnummer) aus Puffer holen 
EO11 DO 21 BNE $E034 ist ein weiterer Datenblock vorhanden ? 
E013 68 PLA nein, neuen Pufferzeiger wieder holen 
EO14 C9 02 CMP #802 und mit Wert für Datenstart vergleichen 
E016, FO 12 __ BEQ $EO2A ist der neue Puffer leer ? 

Eo1sl A9 80 LDA #80 nein, Flag für letztes Byte (EOI) 
EO1A, 20 97 DD JSR $DD97 setzen 

EO1D 20 2F DI UJSR $D12F Puffer- und Kanalnumer feststellen. 
E020 B5 99 LDA $99,X Low-Byte des Pufferzeigers holen und 
E022 99 44 02 STA $0244,Y als letztes Zeichen merken 

E025 A9 OD LDA #$0D Return! an Ausgabe 

E027 85 85 STA $85 übergeben 

E029 60 RTS zurück zur aufrufenden Routine 

Eo2Al 20 35 EO JSR $E035 Zeiger auf letztes Zeichen setzen 
E02D A6 82 LDX $82 Nummer des aktuellen Kanals 

EO2F A9 00 LDA #800 Zeiger auf nächsten Record 

E031 95 C1 STA $C1,X Löschen 

E033 60 RTS zurück zur aufrufenden Routine 
[EOOA/EO11] 

Zeiger auf letztes Zeichen setzen 

E034. 68 PLA Zeiger auf Start des nächsten Records 
E035 A6 82 LDX $82 Nummer des aktuellen Kanals holen und 
E037_ 95 C1 STA $C1,X Zeiger merken 

E0O39 4C 6E E1 JMP $EI6E Zeiger auf letztes Zeichen setzen 
[DFF3/EOA7/E135] 

Sektor des Records bereitstellen 

EO3SC 20 D3 DI JSR $01D3 angewähltes Laufwerk feststellen 

EO3F 20 95 DE JSR $DEY5 Spur und Sektor des nächsten Blocks 
EO42 20 9E DF JSR $DFYE Pufferstatus prüfen | 

E045 50 16 BVC $E05D wurde Pufferinhalt geändert ? 

E0O47 20 5E DE JSR $DES5E ja, Puffer auf Diskette schreiben 
EO4A 20 1E CF JSR $CFIiE neuen Puffer einrichten 

EO4D A9 02 LDA #802 Pufferzeiger auf Beginn des 

EO4F 20 C8 DA UJSR $D4C8 Datenbereichs setzen 

E052 20 AB DD JSR $DDAB letzten Job auf Schreiben prüfen 

E0O55 DO 24 BNE $E07B wurde vorher Sektor geschrieben ? 
E0O57 20 57 DE _JSR $DE57 ja, Sektor wieder in Puffer lesen 
EO5SA. 4C 99 D5 JMP $0599 und warten bis Job ausgeführt ist 


E0OSD 20 IE CF JSR $CFiE neuen Puffer einrichten 
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E060 
E063 DO 
E0O65 20 
E068 
EO6B 
EO6E A5 
EO7O FO 
E0O72 20 
E0O75 20 
EO78,_ 20 
EO7B 60 


20 AB DD 


06 
57 DE 


20 99 D5 
20 95 DE 


80 
09 
1E CF 
57 DE 
1E CF 


[EOB4/EOFE] 
ein Zeichen eines Records in Puffer schreiben 


EO7C 20 
EOTF 20 
E082 OA 
E083 AA 
E084 A5 
E086 81 
E088 B4 
EOSA CB 
E08B DO 
EO8D A4 
 EOSF B9 
E092 FO 
EO94 AO 
E0961 98 
E097 A4 
E099 D9 
EO9C. DO 
Eogel a9 
EOAO, 4C 
Eonzl Fe 
EOA5 DO 
EOA7, 20 
EOAnl 60 


05 E1 
93 DF 


c1 00 


82 
c1 00 
05 
20 
97 DD 
99 
03 


JSR $DDAB 
BNE $E06B 
JSR $DE57 
JSR $D599 
JSR $DE95 
LDA $80 
BEQ $E07B 
JSR $CFIE 
JSR $DE57 
JSR $CFIE 
RTS 


JSR $E105 
JSR $DF93 
ASL A 

TAX 

LDA $85 


STA ($99,X) 


LDY $99,X 
INY 

BNE $E096 
LDY $82 


LDA $00C1,Y 


BEQ $EOYE 
LDY #802 
TYA 

LDY $82 


CMP $00C1,Y 


BNE $E0A3 
LDA #820 
JMP $DD97 
INC $99,X 
BNE $EOAA 
JSR $EOZC 
RTS 


letzten Job auf Schreiben prüfen 
wurde vorher Sektor geschrieben ? 
ja, Sektor von Diskette einlesen 
und warten bis Job ausgeführt ist 
Spur und Sektor des nächsten Blocks 
Nummer der nächsten Spur holen 

ist ein weiterer Sektor vorhanden ? 
ja, Puffer neu anlegen 

Sektor von Diskette einlesen 

und neuen Puffer anlegen 

zurück zur aufrufenden Routine 


Flag für 'Puffer geändert! setzen 
Nummer des aktuellen Puffers holen 
und verdoppeln (da Pufferzeigertabelle 
aus 2-Byte-Werten besteht) 
einzutragendes Byte holen 

und in Puffer schreiben 

Pufferzeiger (Low-Byte) holen 

und auf nächste Position setzen 

Ende des Puffers erreicht ? 

ja, derzeitige Kanalnummer 


und Zeiger auf den nächsten Record holen 


Zeiger gesetzt ? 

ja, Pufferzeiger auf 

Beginn des Datenbereichs setzen 
Nummer des aktuellen Kanals holen 
Puffer- und Recordzeiger vergleichen 
steht Recordzeiger auf Pufferanfang ? 
ja, Flag für "Record voll! 

setzen 

Pufferzeiger auf nächstes Byte richten 
Ende des Puffers erreicht ? 

ja, Sektor auf Diskette schreiben 
zurück zur aufrufenden Routine 
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[CFCB] 


Record in Datenpuffer schreiben 


EOAB 
EOAD 
EOBO 
EOB2 
EOB4 
EOB7 
EOBY 
EOBB 
EOBC 
EOBE 
EOC1 
EOC3 
EOC5 
EOCE 
EOCB 
EOCE 
EOD1 
EOD3 
EOD6 
EODI 
EODB 
EODD 
EODF 
EOE1 
EOE2 
EOE4 
EOES 
EOE8 


1 


1 


A9 AO 

20 A6 DD 
DO 27 
A5 85 
20 7C EO 
AS FB 

FO OD 

60 


LEOC8/E101] 
restlichen Record mit Leerbytes auffüllen 


EOF3 
EOF5 
EOF8 
EOFA 


A9 20 
20 A6 DD 
DO OA 
A9 00 


LDA #85A0 
JSR $DDA6 
BNE $EODY 
LDA $85 
JSR $EO7C 
LDA $F8 
BEQ $EOC8B 
RTS 

LDA #20 
JSR $DDA6 
BEQ $EOC8 
LDA #851 
STA $026C 
JSR $EOF3 
JSR $E153 
LDA $026C 
BEQ $EOD6 
JMP SC1C8 
JMP $E6BC 
AND #$80 
BNE $EOE2 
LDA $F8 
BEQ $EOBC 
RTS 

LDA $85 
PHA 

JSR $E3ZIC 
PLA 

STA $85 
LDA #$80 
JSR $DD9D 
JMP $EOB2 


LDA #20 
JSR $DDA6 
BNE $E104 
LDA #800 
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Flags für '!letztes Byte! (EOI) und für 
ıRecord voll! prüfen 

ein Flag gesetzt ? 

nein, Byte aus Eingaberegister holen 
und in Record schreiben 

Flag für !letztes Byte’ (EOI) prüfen 
war das das letzte Byte ? 

ja, zurück zur aufrufenden Routine 
Flag für 'Record voll! 

überprüfen 

ist der Record schon vollgeschrieben ? 
ja, Fehlerflag für 

151 Overflow In Record! setzen 

Rest des Records mit Nullen füllen 
nächsten Record holen 

Flag für Fehler prüfen 

ist ein Fehler aufgetreten ? 

ja, Fehlermeldung ausgeben 

ıOk! Meldung bereitstellen 

Flag für '!letztes Byte! (EOI) prüfen 
ist Flag gesetzt ? 

nein, EOI vom seriellen Bus prüfen 
ist Flag gesetzt ? 

ja, zurück zur aufrufenden Routine 
Byte vom Eingaberegister holen und 
merken 

Relative Datei erweitern 

Byte wieder zurückholen 

und merken 

Flag für 'letztes Byte in Datei' (EOI) 
Löschen 

Record weiter in Puffer schreiben 


Flag für "Record voll! 
prüfen 

ist gesamter Record gefüllt 
Wert der Leerbytes 
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EOFC 
EOFE 
E101 
E104 


85 85 

20 7C EO 
4c F3 EO 
60 


STA $85 
JSR $EO7C 
JMP $EOF3 
RTS 


setzen 

Byte in Record schreiben 
nächstes Byte auffüllen 

zurück zur aufrufenden Routine 


[DEO9/EO7C] 
Flag für 'Pufferdaten geändert! setzen 


E105 
E107 
E10A 


A9 40 
20 97 DD 
20 9E DF 
09 40 
AE 57 02 
95 A7 


LDA #840 

JSR $DD97 
JSR $DFIE 
ORA #840 

LDX $0257 
STA $A7,X 
RTS 


Flag für 'Sektor geändert! 

setzen 

Pufferstatus holen 

Flag für '!Puffer geändert! 

Nummer des Kanals +7 (zeigt auf $AE) 
Pufferstatus neu setzen 

zurück zur aufrufenden Routine 


[DE8B] 


Flag für 'Pufferdaten geändert! löschen 


E115 


20 9E DF 
29 BF 
AE 57 02 
95 A7 


JSR $DFIE 
AND #$BF 
LDX $0257 
STA $A7,X 
RTS 


Pufferstatus holen 

und Flag ausblenden 

Nummer des Kanals für 2. Puffer 
Pufferstatus wieder in Tabelle setzen 
zurück zur aufrufenden Routine 


. . 00000 0 0 0 2 0 a an nn nn mn nn a a 5 DS 5 SS SH CH 5 5 5 ET CS ET TH a a a m 5 a a 5 a 5 m nm nn nm m 


[D3B1/E138:E294] 


Byte aus Record holen 


E120 
E122 
E125 
E127 
E12A 
E12C 
E12F 
E131 
E133 
E135 
E138 
E13B 
. E13D 
E140 
E142 
E145 


A9 80 
20 A6 DD 
DO 37 
20 2F D1 
B5 99 
D9 44 02 
FO 22 
F6 99 
DO 06 
20 3C EO 
20 2F D1 
A1 99 
99 3E 02 
A9 89 
99 F2 00 
B5 99 


LDA #$80 
JSR $DDA6 
BNE $E15E 
JSR $D12F 
LDA $99,X 
CMP $0244,Y 
BEQ $E153 
INC $99,X 
BNE $E13B 
JSR $EO3C 
JSR $D12F 
LDA ($99,X) 
STA $023E,Y 
LDA #889 
STA $00F2,Y 
LDA $99,X 


Flag für 'letztes Byte! (EOI) 
überprüfen 

ist das das letzte Byte des Records ? 
nein, Pufferzeiger initialisieren 
Pufferzeiger holen 

und auf Endposition des Records prüfen 
ist das Ende des Records erreicht ? 
nein, Pufferzeiger auf nächstes Byte 
ist der Datenpuffer voll ? 

ja, Sektor schreiben und Nächsten holen 
Pufferzeiger initialisieren 

Byte aus Datenpuffer holen 

und merken 

Flag für Lesen/Schreiben/EOI 

in Kanalstatus setzen 


Low-Byte des Pufferzeigers holen und mit 
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E147 D9Y 44 02 CMP $0244,Y Wert für Ende des Records vergleichen 


E14A FO 01 BEQ $E14D schon ganzer Record gelesen ? 

E14C_ 60 RTS nein, zurück zur aufrufenden Routine 
E14D AY 81 LDA #$81 Flag für Lesen/Schreiben 

E14F 99 F2 00 STA $OOF2,Y in Kanalstatus setzen 

E152 60 RTS zurück zur aufrufenden Routine 
[DCA3/EOCB/E12F] 

Record holen und ausgeben 

E153 20 DO DF JSR $DFDO nächsten Record holen 

E156 20 2F DI JSR $DI2F Puffer- und Kanalnummer feststellen 
E159 A5 85 LDA $85 Byte holen und für Ausgabe 

E15B 4C 3D E1 JMP $E13D bereitstellen 

[E125/E262/E26F] 

Fehler aufgetreten 

E1I5SE A6 82 LDX $82 Nummer des aktuellen Kanals holen 
E160 A9 OD LDA #$0D und Ausgabe mit 'Return! 

E162 9D 3E 02 STA $023E,X abschließen 

E165 A9 81 LDA #881 Kanalstatus wieder 

E167 95 F2 STA $F2,X zurücksetzen 

E169 A9 50 LDA #%50 Fehlermeldung 

E16B 20 C8 Ci JSR $CICB 150 Record Not Present! ausgeben 
[E039] 

Zeiger auf letztes Zeichen des Records setzen 

E16E A6 82 LDX $82 Nummer des derzeitigen Kanals 

E170 B5 Ci LDA $Ci,X Zeiger auf Beginn des nächsten Records 
E172 85 87 STA $87 holen und merken 

E174 C6 87 DEC $87 Zeiger korregieren (da 0 auch zählt) 
E176 C9 02 CMP #%02 und mit Wert für Datenbeginn vergleichen 
E178 DO 04 BNE $E17E steht Zeiger auf Pufferbeginn ? 

E17A A9 FF LDA #$FF ja, Zeiger auf Ende des Puffers setzen 
E17C, 85 87 STA $87 und merken 

e1rel B5 C7 LDA $C7,X Länge des Records holen 

E180 85 88 STA $88 und merken 

E182 20 E8 D4 JSR $D4EB aktuellen Pufferzeiger setzen 

E185 A6 82 LDX $82 Nummer des derzeitigen Kanals holen 
E187 C5 87 CMP $87 Puffer- mit Recordzeiger vergleichen 
E189 90 19 BCC $E1A4A ist der Pufferzeiger größer ? 


Ei8B FO 17 BEQ $E1A4 ja, sind beide Zeiger gleich ? 
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E18D 20 IE CF JSR $CFiE nein, neuen Puffer anlegen 
E190 20 B2 EI UJSR $E1B2 Ende des Records suchen 
E193 90 08 BCC $E19D gefunden ? 
E195 A6 82 LDX $82 nein, aktuelle Kanalnummer holen 
E197 9D 44 02 STA $0244,X und Zeiger merken 
Ei9A. 4AC IE CF JMP $CFiE neuen Puffer anlegen und beenden 
- E19D 20 1E CF  UJSR SCFiE neuen Puffer anlegen 
E1AO AY FF LDA #$FF Recordzeiger auf Ende des Puffers 
E1A2| 85 87 STA $87 setzen 
EIALZ 20 B2 EI JSR $E1B2 Ende des Records suchen 
E1A7 BO 03 BCS $E1AC Ende gefunden ? 
E1A9. 20 E8 DA UJSR $D4EB ja, aktuellen Pufferzeiger setzen 
E1AC A6& 82 LDX $82 Nummer des dazugehörigen Kanals holen 
E1IAE 9D 44 02 STA $0244,X und Endposition des Records merken 
E1B1 60 RTS zurück zur aufrufenden Routine 
 TEI90/E1A4] 
Ende des Records suchen 
E1B2 20 25 DE UJSR $DE2B Zeiger auf Pufferbeginn setzen 
E1BS, A4 87 LDY $87 aktuellen Recorddzeiger holen 
Eip7l Bi 94 LDA ($94),Y Byte aus Record lesen 
E1B9 DO OD BNE $E1C8 Byte gleich Leerbyte ? 
E1BB 88 DEY ja, Pufferzeiger auf nächstes Byte und 
EiBC CO 02 CPY #802 mit Wert für Pufferbeginn vergleichen 
EIBE 90 04 BCC $EICA Pufferanfang erreicht ? 
E1ICO C6 88 DEC $88 nein, Recordlänge vermindern 
Eic2, DO F3 BNE $E1B7 schon ganzen Recordbereich abgesucht ? 
E1c4l C6 88 DEC $88 ja, Recordzeiger korregieren 
E1C6 18 CLC Flag für 'Ende gefunden! setzen 
E1IC7, 60 RTS zurück zur aufrufenden Routine 
eical 98 TYA aktuelle Pufferposition holen und 
E1C9 38 SEC Flag für '!Ende nicht gefunden! setzen 
EICA 60 RTS zurück zur aufrufenden Routine 


[CA56/CA69/DB32/DFOB/E3IF] 
Ende der Relativen Datei suchen 


EiICB 20 D2 DE JSR $DED2 Nummer des aktuellen Side-Sektors holen 
EiICE 85 D5 STA $D5 und merken 

EiDO AY 04 LDA #504 Pufferzeiger auf Beginn 

E1D2 85 94 STA $94 des Sektors zurücksetzen 


E1D4 AO 0A LDY #$0A Zeiger auf Spur des letzten Side-Sektors 
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E1D6, DO 04 BNE $E1DC immer Sprung nach $E1DC 


E1D8 88 DEY Pufferzeiger auf Spurnummer 
E1D9 88 DEY des vorangehenden Side-Sektors setzen 
E1IDA,_ 30 26 BMI $E202 kein Side-Sektor mehr vorhanden ? 
Eioch B1 94 LDA ($94),Y nein, Spurnummer des Side-Sektors holen 
E1DE FO F8 BEQ $E1D8 ist Sektor angelegt ? 
E1EO 98 TYA ja, Nummer des Side-Sektors 
E1E1 4A LSR A ermitteln 
E1E2 C5 D5 :CMP $D5 und mit aktueller Nummer vergleichen 
E1E4 FO 09 BEQ $E1EF identisch ? 
E1E6 85 D5 STA $D5 nein, neue Side-Sektornummer merken 
EiIE8 A6 82 LDX $82 Nummer des derzeitigen Kanals holen 
E1EA B5 CD LDA $CD,X Puffer des Sektors feststellen 

 EIEC, 20 1B DF JSR $DFIB und Sektor einlesen 
Eier] AO 00 LDY #$00 Pufferzeiger auf Beginn des 
E1F1 84 94 STY $94 Sektors zurücksetzen 
EiF3 B1 94 LDA ($94),Y Spur des nächsten Sektors holen 
EIF5S DO OB BNE $E202 kein weiterer Side-Sektor ? 
EIF7 C8 INY ja, Zeiger auf nächste Position: setzen 
E1F8 B1 94 LDA ($94),Y Zahl der gültigen Datenbytes holen 
EIFA A8 TAY und merken 
E1IFB 88 DEY Zeiger auf Verkettungsbytes des Sektors 
EIFC 84 D6 STY $D6 des letzten Records 
EIFE 98 TYA setzen und merken 
EIFF, 4C E9 DE JUMP $DEEY Pufferzeiger auf diese Position setzen 
£2021 A9 67 LDA #867 Fehlermeldung 
E204 20 45 E6 JSR $E645 167 Illegal Track Or Sector' ausgeben 


[Einsprung über Routine C146] 
Routine für Record-Befehl ('P') 


E207 20 B3 C2 JSR $C2B3 Zeiger für Befehlsstring setzen 

E20A AD 01 02 LDA $0201 zweites Zeichen des Befehls aus Puffer 
E20D 85 83 STA $83 holen und als Sekundäradresse festlegen 
E20F 20 EB DO JSR $DOEB Lesekanal öffnen 

E212 90 05 BCC $E219 wurde ein freier Kanal gefunden ? 

E214 A9 70 LDA #%70 nein, Fehlermeldung 

E216. 20 C8 C1 JSR SCIC8 ‘70 No Channel! ausgeben 

E219° A9 AO LDA #$A0 Flags für EOI 

E21B 20 9D DD JSR $DD9YD Löschen 

E21E 20 25 DI JSR 80125 Dateityp holen und prüfen 


E221 FO 05 BEQ $E228 liegt eine Relative Datei vor ? 
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E223 
E225 
E228 
E22A 
E22C 
E22E 
E231 
E233 
E236 
E238 
E23A 
E23C 
E23E 
E241 
E243 
E244 
E246 
E248 
E24A 
. E24C 
E24E 
E251 
E253 
E255 
E258 
E25B 
E25D 
E25F 
E262 
E265 
E268 
E26A 
E26D 
E26F 


gesuchten Record 


1 


AY 64 


20 
B5 
29 
85 
AD 
95 
AD 
95 
A6 
A9 
95 
AD 
FO 


50 
A9 
20 
4Cc 
20 
A9 


c8 
EC 
01 

TF 
02 
B5 
03 
BB 


75 
80 


20 A6 


FO 


03 


C1 


02 


02 


DD 


4C 5E Ei 
E272 4C 94 C1 


[E265/E441] 


E275 20 9C E2 
E278 AS D7 
E27A 20 C8 D4 


LDA #864 
JSR SCIC8 
LDA $EC,X 


: AND #801 


STA $7F 


LDA $0202° 


STA $B5,X 
LDA $0203 
STA $BB,X 
LDX $82 

LDA #$89 
STA $F2,X 
LDA $0204 
BEQ $E253 


“SEC 


SBC #$01 
BEQ $E253 
CMP $C7,X 
BCC $E253 
LDA #851 
STA $026C 
LDA #800 
STA $D4 
JSR $CEOE 
JSR $DEFB 
BVC $E265 


LDA #880 


JSR $DD97 
JMP $E15E 
JSR $E275 
LDA #580 

JSR $DDA6 
BEQ $E272 
JMP $E15E 
JMP $C194 


in Puffer 
JSR $E29C 
LDA $D7 

JSR $DACB 


nein, Fehlermeldung 

164 File Type Mismatch! ausgeben 

Flags des Kanals holen und 

angewähltes Laufwerk 

als aktuelles Laufwerk übernehmen 
drittes Zeichen aus Eingabepuffer holen 
und als Low-Byte der Recordnummer setzen 
High-Byte der Recordnummer holen 

und übernehmen 

Nummer des derzeitigen Kanals holen 
Flag für Lesen/Schreiben/EOI 

in Kanalstatus setzen 

fünftes Zeichen aus Eingabepuffer holen 
keine Angabe ? 

nein, Position in Record übernehmen 

und prüfen ob Zeiger auf 1 

Zeiger auf Anfang des Records gesetzt ? 
nein, mit Länge des Records vergleichen 
ist Position zulässig ? 

nein, Fehler '51 Overflow In Record! 

in Fehlerflag speichern 

Positionszeiger auf Beginn des Records 
setzen 

Position des Records errechnen 
dazugehörigen Side-Sektor einlesen 
Side-Sektor fehlerfrei gelesen ? 

nein, Flag für 'letztes Byte! (EOI) 
setzen 

Fehler '50 Record Not Present! ausgeben 
gesuchten Record lesen 

Flag für 'letztes Byte! 

testen 

ist Record nicht vorhanden ? 

ja, Fehler '50 Record Not Present! 

Ok! Meldung bereitstellen 


einlesen 


Sektor, der Record enthält, einlesen 
Position im Record in 
aktuellen Pufferzeiger übertragen 
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E27D A6 82 LDX $82 Nummer des derzeitigen Kanals 

E27F B5 C7 LDA $C7,X Länge des Records feststellen 

E281 38 SEC und davon aktuelle Position 

E282 E5 D4 SBC $D4 in Datensatz subtrahieren 

E284 BO 03 BCS $E289 ist Zeiger noch im Datensatz ? 

E286, 4C 02 E2 UJMP $E202 ja, Fehler '67 Illegal Track Or Sector! 

E289 18 CLC Position des gewünschten Bytes 

E28A 65 D7? ADC $D7 im Record einrechnen 

E28C 90 03 BCC $E291 Byte im nächsten Datensektor ? 

E28E 69 01 ADC #%01 ja, Position auf Start setzen 

E290. 38 SEC und Flag für nächsten Sektor setzen 

E291 20 09 EO JSR $E009 Zeiger für auf Record setzen 

E294 40 38 E1 4JMP $E138 Byte aus Record holen 

E297 AY 51 LDA #851 Fehlermeldung 

E299 20 C8 C1 JSR $C1ICB 151 Overflow In Record! ausgeben 

[CA6&C/E322/E275] 

Sektor der Record enthält in Puffer einlesen 

E29C A5 94 LDA $94 aktuellen Pufferzeiger 

E29E 85 89 STA $89 in Zwischenspeicher 

E2AD A5 95 LDA $95 in Adresse $89/$8A 

E2A2 85 BA STA $8A retten 

E2A4 20 DO E2 JSR $E2DO Puffer auf Sektor prüfen 

E2A7 DO 01 BNE $E2AA ist der gesuchte Sektor im Puffer ? 

E2A9 60 RTS ja, zurück zur aufrufenden Routine 

E2AA 20 Fi DD JSR $DDF1 Pufferinhalt auf Diskette schreiben 
 E2AD 20 OC DE JSR $DEOC Spur und Sektor des nächsten Blocks 

E2BO A5 80 LDA $80 $purnummer des nächsten Sektors holen 

E2B2 FO 0E BEQ $E2C2 ist weiterer Sektor vorhanden ? 

E2B4 20 D3 E2 JSR $E2D3 . ja, Puffer auf Sektor prüfen 

E2B7 DO 06 BNE $E2BF ist Sektor schon im Puffer ? 

E2B9 20 IE CF  UJSR $CFiE ja, neuen Puffer anlegen 

E2BC. 4C DA D2 JMP $D2DA alle inaktiven Puffer freigeben 

gar} 20 DA D2 JSR $D2DA alle inaktiven Puffer freigeben 

E2C2° AO 00 LDY #$00 Pufferzeiger initialisieren 

E2C4 B1 89 LDA ($89),Y Spurnummer aus Side-Sektor holen 

E2C6 85 80 STA $80 und als aktuelle Spur übernehmen 

E2C8 C8 INY . Pufferzeiger auf nächstes Byte 

E2C9 B1 89 LDA ($89),Y Nummer des Datensektors holen 

E2CB 85 81 STA $81 und speichern 


E2CD 4C AF DO JMP $DOAF Sektor in Puffer einlesen 
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[E2A4] 
prüfen, ob Sektor schon im Puffer ist 
E2D0O_ 20 3E DE JSR $DE3E Spur und Sektor des letzten Jobs holen 
E2D3 AO 00 LDY #800 Pufferzeiger initialisieren 
E2D5 Bi 89 LDA ($89),Y gesuchte Spur aus Side-Sektor holen und 
E2D7 C5 80 CMP $80 mit zuletzt gelesenem Wert vergleichen 
E2D9 FO 01 .  BEQ $E2DC identisch ? 
E2DB_ 60 RTS nein, zurück zur aufrufenden Routine 
ezocl c8 INY Pufferzeiger auf Sektornummer setzen 
E2DD Bi 89 LDA ($89),Y Nummer des gesuchten Sektors holen und 
E2DF C5 81 CMP $81 mit aktuellem Sektor vergleichen 
E2E1I 60 RTS zurück zur aufrufenden Routine 
[DD7B/E3C2/ESCE] 
Neue Records in Sektor anlegen 

. EZE2 20 2B DE JSR $DE2B aktuelle Pufferadresse setzen 
E2ES AO 02 LDY #$02 Zeiger auf Beginn des Datenbereichs | 
E2E7, A9 00 LDA #%00 Wert zum Löschen des Sektors 
Ezeo! 91 94 STA ($94),Y Leerbyte in Puffer schreiben 
E2EB C8 INY Pufferzeiger auf nächstes Byte setzen 
E2EC DO FB BNE $E2E9 schon ganzer Puffer gefüllt ? 
E2EE. 20 04 E3 SR $E304 ja, Position des nächsten Records holen. 
garıl 95 C1 STA $C1,X und merken 
E2F3 AB TAY Wert als Pufferzeiger übernehmen 
E2F4 A9 FF LDA #$FF Wert zum Anlegen des Records 
E2F6 91 94 STA ($94),Y in Puffer schreiben 
E2F8 20 04 E3 UJSR $E304 Position des nächsten Records errechnen 
E2FB 90 F4 BCC $E2F1 hat der Record im Sektor noch Platz ? 
E2FD DO 04 BNE $E303 nein, passt Record genau in Sektor ? 
E2FF A9 00 LDA #800 ja, Position des nächsten Records 
E301, 95 C1 STA $C1,X auf Anfang des nächsten Sektors setzen 

E3031 60 RTS zurück zur aufrufenden Routine 
[EOOS/E2ZEE/EZF8] 
Berechnet die Position des neuen Records im Sektor 
E304 A6 82 LDX $82 Nummer des derzeitigen Kanals holen 
E306 B5 C1 LDA $C1,X und dazugehörigen Recordzeiger holen 
E308 38 SEC Flag für 'keinen weitern Record! setzen 
E309 FO OD BEQ $E318 füllt alter Record den Sektor genau ? 


E30B 18 CLC | nein, Länge des 


460 


E3OC 
E30E 
E310 
E312 
E314 
E317 
E318 
E31A 
E31B 


[EOES/E33B:CA85] 


75 c7 
90 OB 
DO 06 
A9 02 
2C CC 
60 
69 01 
38 
60 


FE 


ADC $C7,X 
BCC $E31B 
BNE $E318 
LDA #$02 
BIT $FECC 
RTS 

ADC #801 
SEC 
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Record zur aktuellen Position addieren 
reicht Record noch in nächsten Sektor ? 
ja, füllt Record den Sektor genau ? 

ja, Zeiger auf Start des neuen Sektors 
Flags für 'noch ein Sektor! setzen 
zurück zur aufrufenden Routine 

Zeiger auf Beginn des nächten Records 
Flag für 'kein weiterer Sektor! setzen 
zurück zur aufrufenden Routine 


Neue Records an Relative Datei anfügen 
20 D3 DI 


E31C 
E31F 
E322 
E325° 
E328 
E32A 
E32C 
E32E 
E330 
E332 
E334 
E336 
E338 
E338 
E33E 
E340 
E342 
E343 
E344 
E345 
E347 
E349 
E348 
E34D 
E34F 
E351 
E353 
E35 
E357 


2 


20 CB 
20 9C 
20 7B 
A5 D6 
85 87 
A5 D5 
85 86 
A9 00 
85 88 
A9 00 
85 D4 
20 OE 
20 4D 
A4 82 
B6 C7 
CA 

BA 

18 

65 D7 
90 0C 
E6 D6 
E6 D6 
DO 06 
E6 D5 
A9 10 
85 D6 
AS 87 
18 


E1 
E2 
CF 


CE 
EF 


JSR $D1D3 
JSR $EICB 
JSR $E29IC 
JSR $CF7B 
LDA $D6 
STA $87 
LDA $D5 
STA $86 
LDA #800 
STA $88 
LDA #$00 
STA $D4 
JSR $CEOE 
JSR $EF4D 
LDY $82 
LDX $C7,Y 
DEX 

TXA 

CLC 

ADC $D7 
BCC $E355 
INC $D6 
INC $D6 
BNE $E355 
INC $05 
LDA #810 
STA $D6 
LDA $87 
CLC 


Nummer des angewählten Laufwerks holen 
Position des letzten Records holen 
Side-Sektoren und Records einlesen 
neuen Puffer anlegen 

Zeiger auf Datenblock in Side-Sektor 
retten 

Zeiger auf aktuellen Side-Sektor 
zwischenspeichern 

Flag für 'nur ein Block! 

Löschen 


Zeiger auf Position des 


Records löschen 

Side-Sektor des Datenblocks errechnen 
Zahl der freien Blöcke holen 

Nummer des aktuellen Kanals feststellen 
Länge des zugehörigen Records holen 


korregieren 


(da 0 auch gezählt wird) 

und zu aktuellem 

Pufferzeiger addieren 

liegt neuer Pufferzeiger im Sektor ? 
nein, Zeiger in Side-Sektor auf Spur- 
und Sektor des nächsten Datenblocks 
Zeiger noch im aktuellen Side-Sektor ? 
nein, nächsten Side-Sektor anwählen 
Pufferzeiger auf Beginn der Spur- und 
Sektorzeiger der Datenblöcke 

alten Pufferzeiger auf 

nächste Sektordaten (Spur/Sektor) 
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E358 
EBSA 
E35D 
E35F 
E361 
E363 
E365 
E368 
E36A 
E36B 
E36D 
E36F 
E371 
E372 
E374 
E376 
E378 
E37A 
E37C 
E37E 
E380 
E381 
E384 
E386 
E388 
E38A 
E38B 
E38D 
E38F 
E392 
E394 
E396 
E399 
E39B 
E39D 
E39F 
E3A2 
E3A3 
E3A5 
E3A7 
E3A9 


1 


1 


2 


l 


69 02 
20 E9 DE 
A5 D5 
c9 06 
90 05 
A9 52 
20 Cc8 Ci 
A5 D6 
38 

ES 87 
BO 03 
E9 OF 

18 

85 72 
A5 D5 

E5 86 
85 73 
A2 00 
86 70 
86 71 

AA 

20 51 DF 
AS 71 

DO 07 
A6 70 
CA 

DO 02 
E6 88 

CD 73 02 
90 09 
DO CD 

AD 72 02 
c5 70 
90 C6 
A9 01 
20 F6 DA 
18 

69 01 

A6 82 
95 c1 

20 IE Fi 


ADC #$02 
JSR $DEEY 
LDA $D5 
CMP #806 
BCC $E368 
LDA #852 
JSR $C1C8 
LDA $D6 
SEC 


"SBC $87 


BCS $E372 
SBC #$0F 
CLC 

STA $72 
LDA $D5 
SBC $86 
STA $73 
LDX #800 
STX $70 
STX $71 
TAX 

JSR $DF51 
LDA $71 
BNE $E38F 
LDX $70 
DEX 

BNE $E38F 
INC $88 
CMP $0273 
BCC $E39D 
BNE $E363 
LDA $0272 
CMP $70 
BCC $E363 
LDA #801 
JSR $DAF6 
CLC 

ADC #801 
LDX $82 
STA $C1,X 
JSR $FI1E 


setzen 
Pufferzeiger setzen 
Nummer des aktuellen Side-Sektors holen 


und mit maximalem Wert vergleichen 


Nummer zulässig ? 

nein, Fehlermeldung 

152 File Too Large! ausgeben 

aktuelle Position im Side-Sektor 

holen 

letzten Side-Sektor-Zeiger subtrahieren 
ist neuer Wert in vorhergehndem Sektor ? 
ja, Verkettungsbytes am Anfang des 
Side-Sektors beachten 

und neuen Wert merken 

aktuelle Side-Sektornummer holen 

und letzte Nummer abziehen 

neuen Wert merken 

Zwischenspeicher 

für Zahl der benutzten 

Blöcke löschen 

Side-Sektornummer 0 

Zahl der von der Datei benötigten Blöcke 
errechnen und holen (High-Byte) 

ist Zahl der Blöcke kleiner 256 ? 

ja, Low-Byte der Blockzahl 

prüfen 

ist nur ein Block (Side-Sektor) belegt ? 
Flag für 'nur ein Block! setzen 

mit Zahl der freien Blöcke vergleichen 
ist auf der Diskette noch Platz frei ? 
nein, paßt Datei evtl. genau auf Disk ? 
ja, Low-Bytes der benötigten Blocks mit 
Zahl der freien Blocks vergleichen 

ist Datei größer als Kapazität ? 

nein, Pufferzeiger auf Sektornummer 
Byte aus Puffer holen 

Zeiger auf aktuelles 

Datenbyte in aktuellem Sektor erhöhen 
Kanalnummer holen 

Zeiger auf Datenbyte merken 

nächsten freien Sektor aus BAM holen 


DE 


DF 


E4 


DE 


DD 


DD 


JSR $DDFD 
LDA $88 
BNE $E3C8 
JSR $DESE 
JSR SCFIE 
JSR $DEDO 
JSR $FI1E 
JSR $DDFD 
JSR $E2E2 
JMP $E3D4 
JSR $CFIE 
JSR $D6DO 
JSR $E2ZE2 
JSR $DEI9 
JSR $DESE 
JSR $DEOC 
LDA $80 
PHA 

LDA $81 
PHA 


JSR $DE3E 


LDA $81 
PHA 

LDA $80 
PHA 

JSR $DF45 
TAX 

BNE $E3F9 
JSR $E44E 
LDA #810 
JSR $DEEY 
INC $86 
PLA 

JSR $DD8D 
PLA 

JSR $DDED 
PLA 

STA $81 
PLA 

STA $80 
BEQ $E4I8 
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Verkettungsbytes für nächsten Sektor 
Flag für 'nur ein Block! 


gesetzt ? 


nein, Sektor auf Diskette schreiben 
Puffer wechseln 

Spur und Sektor an Jobschleife 
nächsten freien Block in BAM suchen 
Parameter des nächsten Blocks in Puffer 
neue Records anlegen 

Sektor auf Diskette schreiben 
"Puffer wechseln 

Spur und Sektor an Jobschleife 

neue Records anlegen 

letzten Sektor kennzeichnen 

Sektor auf Diskette schreiben 

Spur und Sektor von Verkettungsbytes 
nächste Spurnummer holen und 


merken 


nächste Sektornummer 


retten 


Spur und Sektor des letzten Jobs holen 
Nummer des letzten Sektors 


merken 


Spurnummer des letzten Sektors 


retten 


Pufferzeiger für Side-Sektor setzen 
und Low-Byte merken 

steht Zeiger auf Pufferstart ? 

ja, neuen Side-Sektor anlegen 
Pufferzeiger auf Beginn der Zeiger 
auf Datensektoren setzen 

alte Side-Sektornummer erhöhen 

Spur des letzten Sektors wieder holen 
und in Side-Sektor eintragen 
Sektornummer holen 

und Byte in Side-Sektor übernehmen 
Nummer des aktuellen Sektors 

holen und speichern 

Nummer der aktuellen Spur 

holen und speichern 

letzter Block ? 
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E409 
E4OB 
E4OD 
E4OF 
E412 
E414 
E416 
E418 
E41B 
E41C 
E41E 
E421 
E423 
E424 
 EA26 
E427 
EA2E 
E429 
E42B 
E42D 
E430 
E433 
E436 
E439 
E43C 
EA3F 
E441 


A5 86 
C5 D5 
DO A7 
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LDA $86 
CMP $D5 
BNE $E3B6 
JSR $DF45 
CMP $D6 
BCC $E3B6 
BEQ $E3CE 
JSR $DF45 
PHA 

LDA #800 
JSR $DEDC 
LDA #%00 
TAY 


STA ($94),Y 


INY 
PLA 
SEC 
SBC #$01 


STA ($94),Y 


JSR $DESC 
JSR $D599 
JSR $EEF4 
JSR $CEOE 
JSR $CFiE 
JSR $DEFE 
BVS $E444 
JMP $E275 
LDA #880 
JSR $DD97 
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nein, aktuelle Side-Sektor-Nummer 

mit der Letzten vergleichen 

hat sie sich geändert ? 

ja, Pufferzeiger positionieren 

und mit Side-Sektor-Zeiger vergleichen 
ist der Pufferzeiger kleiner ? 

nein, ist er gleich ? 

nein, Pufferzeiger positionieren 

und als Endmarkierung merken 
Pufferzeiger auf 

Null zurücksetzen 

Pufferzeiger auf Anfang 

des Sektors setzen 

Flag für letzter Block im Puffer setzen 
Pufferzeiger auf nächstes Byte setzen 
Zeiger auf Ende zurückholen 

und um eins 

verringern 

Zeiger für Zahl der gültigen Bytes 
Sektor auf Diskette schreiben 

und auf Schreibfehler prüfen 

Sektor in BAM belegen 

Zeiger für REL-Datei neu initialisieren 


anderen Puffer anwählen 


Side-Sektor prüfen 

ist richtiger Side-Sektor im Puffer ? 
ja, Recordzeiger neu setzen; Ende 
Zeiger und Flags 

des Filetyps zurücksetzen 
Fehlermeldung 

50 Record Not Present! ausgeben 


[E3EF] 
Neuen 
E44E 
E451 
E454 
E457 
E45A 
E45B 
E45E 


Side-Sektor fertigstellen 


20 IE Fi 
20 1E CF 
20 Fi DD 
20 93 DF 
48 

20 Ci DE 
A6 82 


JSR $FI1E 
JSR SCFIE 
JSR $DDF1 
JSR $DF93 
PHA ! 

JSR $DECI 
LDX $82 


nächsten freien Block feststellen 
Puffer auswählen 

vorhergehenden Side-Sektor schreiben 
Puffernummer holen 

und merken 

Datenpuffer löschen 

Nummer des Kanals 
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E460 B5 CD LDA $CD,X Nummer des Puffers für Side-Sektor 
E462 AB TAY übernehmen 
E463 68 PLA auf Stapel und in 
Eb6A AA TAX X/Y-Register merken 
E465 A9 10 LDA #$10 16 Bytes des vorhergehenden Side-Sektors 
E467 20 A5 DE JSR $DEA5 in aktuellen Puffer übertragen 
EA6A AY 00 LDA #800 Wert für Pufferzeiger 
E46C 20 DC DE JSR $DEDC Pufferzeiger zurücksetzen 
E46F AO 02 LDY #802 Puffer des vorhergehenden Side-Sektors 
E471 B1 94 LDA ($94),Y anwählen und Side-Sektor-Nummer holen 
EL73 48 PHA Nummer des letzten Side-sektors merken 
E474 A9 00 LDA #800 Pufferzeiger auf Puffer des neuen 
E476 20 C8 D4_ JSR $D4C8 Side-Sektors richten und zurücksetzen 
EA79 68 PLA Nummer des letzten Side-Sektors holen 
EA7A 18 CLC um eins 
E47B 69 01 ADC #$01 erhöhen und 
EA7TD 91 94 STA ($94),Y als neue Nummer speichern 
EA7TF OA ASL A Wert verdoppeln 
E480 69 04 ADC #504 und 4 addieren 
E482 85 89 STA $89 Zeiger auf Spur/Sektor setzen 
 E484 AB TAY und merken 
E485 38 SEC dann daraus 
E486 EI 02 SBC #802 Zeiger auf 
E488 85 8A STA $8A vorherigen Side-Sektor berechnen 
E48A AS 80 LDA $80 Nummer der Spur 
E48SC 85 87 STA $87 merken 
E4BE 91 94 STA ($94),Y den aktuellen Puffer schreiben 
E4L9IO CB INY Pufferzeiger auf nächstes Byte setzen 
E491 AS 81 LDA $81 Nummer des Sektors 
E49Y3 85 88 STA $88 speichern und in den 
E49I5 91 94 STA ($94),Y aktuellen Puffer übertragen 
E497 AO 00 LDY #800 Pufferzeiger auf Beginn 
EL99Y 98 TYA des Sektors richten 
E49A 91 94 STA ($94),Y Flag für letzten Side-Sektor 
E4IC C8 INY Pufferzeiger auf nächstes Byte setzen 
EA9YD A9 11 LDA #811 Zahl der gültigen Bytes des Sektors 
E4A9F 91 94 STA ($94),Y setzen (17) 
E4A1 A9 10 LDA #$10 Pufferzeiger auf 
E4A3 20 C8 DL UJSR $DAC8 Position 16 einstellen 
EAA6 20 50 DE JSR $DESO Sektor auf Diskette schreiben 
E4A9 20 99 D5 JSR $0599 Rückmeldung des Diskcontrollers abwarten 
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ELAAC A6 82 LDX $82 aktuelle Kanalnummer setzen 
E4JAE B5 CD LDA $CD,X Nummer des Puffers zum Side-Sektor 
E4BO 48 PHA holen und merken 
E4B1 20 9E DF JSR $DFYE Puffernummer holen 
E4B4 A6 82 LDX $82 aktuelle Kanalnummer 
E4B6 95 CD" "STA $CD,X und als dritten Puffer merken 
E4BB 68 PLA’ Puffernummer für Side-Sektor 
E4B9 AE 57 02 LDX $0257 Zeiger auf letzten aktiven Datenpuffer 
E4BC 95 A7 STA $A7,X Puffer belegen 
E4BE A9 00 LDA #800 Pufferzeiger auf Null 
ECO 20 C8 D4 JSR $04C8 zurücksetzen 
E4C3 AO 00 LDY #00 Pufferzeiger auf Beginn des Sektors 
E4C5 A5 80 LDA $80 Nummer der Spur 
E4C7 91 94 STA ($94),Y in Datenpuffer übernehmen 
E4LC9I CB INY Zeiger auf nächstes Zeichen setzen 
E4ACA AS 81 LDA $81 Nummer des Sektors 
E4CC 91 94 STA ($94),Y in den Puffer übernehmen 
E4CE, 4C DE EL JMP $E4DE Side-Sektor auf Diskette schreiben 
E4p1l 20 93 DF JSR $DF93 aktuelle Puffernummer feststellen 
E4D4 A6 82 LDX $82 aktuelle Kanalnummer 
E4AD6 20 IB DF JSR $DFiB nächsten Side-Sektor von Diskette lesen 
E4AD9 AI 00 LDA #$00 Pufferzeiger auf Null 
E4DB, 20 C8 DA JSR $D4C8 zurücksetzen 
E4DE” C6 8A DEC $8A Side-Sektornummer 
EZEO C6 BA DEC $8A korregieren 
E4E2 A4 89 LDY $89 Pufferzeiger für Spur-/Sektorposition 
E4EA AS 87 LDA $87 Nummer der Spur 

' E4E6 91 94 STA ($94),Y in den Datenpuffer schreiben 
E4EB C8 INY Pufferzeiger auf nächstes Byte setzen 
E4E9 A5 88 LDA $88 Nummer des Sektors holen 
E4EB 91 94 STA ($94),Y und in den Puffer übernehmen 
E4ED 20 5E DE JSR $DES5E Side-Sektor auf Diskette schreiben 
E4FO 20 99 D5 JSR $D599 Meldung des Diskcontrollers abwarten 
EAF3 A4 8A LDY $8A Side-Sektornummer holen 
E4F5 CO 03 CPY #%03 und prüfen 
EA4F7 BO D8 BCS $E4D1 größer drei ? 


E4F9 | AC IE CF JMP $CFIE nein, anderen Puffer anwählen 
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Das erste Byte ist die Fehlernummer in BCD-Code 

Danach folgt der Text der Fehlermeldung. Dabei wird Anfang und Ende des 
Textstrings durch Bit7=1 im ersten und letzten Byte gekennzeichnet 
Einige Wörter sind durch Kurzkodes ersetzt. Die höherwertige Bytehälfte 
dieser Werte ist Null. Sie werden wie Fehlermeldungen gehandhabt. 

E4FC 00 Iok! 

E4FD AO 4F CB 

E500 20 21 22 23 24 27 'read error! 

E506 D2 45 41 44 89 

E50B 52 ıfile too large! 

E50C 83 20 54 4F 4F 20 4C 41 52 47 C5 

E517 50 Irecord not present! 

E518 88 06 20 50 52 45 53 45 4E D4 

E522 51 toverflow in record! 

E523 CF 56 45 52 46 4C AF 57 20 49 4E 8B 


ES2F 25 28 '!write error! 
E531 8A 89 
ES33 26 'write protect on' 


E534 BA 20 50 52 hr 54 45 43 54 20 AF CE 


ES46 30 31 32 33 34 Isyntax error! 
E5S4B D3 59 4E 54 41 58 89 


E556 63 ıfile exists! 

E5S57 83 20 45 58 49 53 54 D3 

ESSF 64 ıfile type mismatch' 
E560 83 20 54 59 50 45 85 
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E567 65 n Ino block! 

E568 CE 4F 20 42 4C 4F 43 CB 

E570 66 67 ıillegal track or sector! 

E572 C9 4C 40 45 47 41 4C 20 54 52 41 43 4B 20 AF 52 20 53 45 43 54 4F D2 
E589 61 ıfile not open! 

E5BA 83 06 84 | 


E592 01 files scratched' 
E593 83 53 20 53 43 52 41 54 43 48 45 C4 

ES9F 70 Ino channel! 

ESAO CE 4F 20 43 48 41 4E 4E 45 CC 


ESB6ö 73 ıcbm dos v3.0 1571' 
ESB7 C3 42 4D 20 44 4F 53 20 56 33 2E 30 20 31 35 37 B1 
ESC8 74 ıdrive not ready! 
ESC9 CA 52 49 56 45 06 20 52 45 41 44 D9 


E5D5 09 lerror! 
E5D6 C5 52 52 4F D2 

ESDB 0A Iurite! 
E5SDC D7 52 49 54 C5 

E5E1 03 ifile! 

' ESE2 C6 49 4C C5 
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E5SE6 04 !open! 

- E5E7 CF 50 45 CE 
ESEB 05 Imismatch' 
E5SEC CD 49 53 4D 41 54 43 CB 
E5SF4 06 Inot! 
E5SF5 CE 4F D4 
ESF8 07 I found! 
E5SF9 C6 AF 55 LE CA 
E5SFE 08 ıdisk! 
ESFF C4 49 53 CB 
E603 OB Irecord'! 


[8391/91AA/A47B/ASCB/BF63/CBEC/D641/E6OD :A9D2] 
Ausgabe der Fehlermeldung (A muß Fehler- und X die Puffernummer enthalten) 


E60A 4C BY A9_ JMP $A9BI 1571 Modus berücksichtigen 

E60D 8A TXA Puffernummer | 

E6DE OA ASL A verdoppeln 

E6OF AA TAX und als Zeiger auf Diskcontroller setzen 
E610 B5 06 LDA $06,X Nummer der Spur vom Diskcontroler holen 
E612 85 80 STA $80 und speichern 

E614 B5 07 LDA $07,X Nummer des Sektors holen 

E616 85 81 STA $81 und speichern 

E618 68 PLA Fehlernummer wieder herstellen 

E619 29 OF AND #%$0F ist es die 

E61B FO 08 BEQ $E625 Fehlernummer 15 oder größer ? 

E61D CY OF CMP #$0F ja, ist es es genau Fehler 

E61iF DO 06 BNE $E627 Nummer 15 ? 

E621 AY 74 LDA #%74 ja, interne Nummer der Fehlermeldung 
E623. DO 08 BNE $E62D immer Sprung nach $E62D 

E6251 A9 06 LDA #806 Fehlernummer 

E627° 09 20 ORA #820 Lesefehler wmrechnen 

E629 AA TAX und für 

E62A CA DEX Fehlertabelle (BCD-Werte) 

E62B CA DEX korregieren 
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E62C 
E62D 
E62E 
E631 
E633 
E635 
E637 
E63A 


8A 

48 

AD 2A 02 
c9 00 

DO OF 

A9 FF 

&D 2A 02 
68 

20 C7 E6 
20 42 DO 
4C 48 E6 
68 


TXA 

PHA 

LDA $022A 
CMP #800 
BNE $E644 
LDA #$FF 
STA $022A 
PLA 

JSR $E6C7 
JSR $D042 
JMP $E648 
PLA 


Nummer wieder holen 

Fehlernummer retten 

Nummer des ausgeführten Befehls 
auf Validate - Befehl prüfen 
identisch ? 

ja, dann Nummer des 

Befehls löschen 

und Fehlernummer wieder zurückholen 
Fehlermeldung im Puffer erzeugen 
Initialize - Befehl ausführen 
Fehlermeldung aktivieren 


-Fehlernummer zurückholen 


[AS82/AYF5/CD2E/D54F/D577/DCO3/E204/E829/FIDC/FIF7/F248] 


Fehlermeldung bereitstellen 


Fehlermeldung im Puffer erzeugen 


E645 20 C7 E6  JSR $E6C7 
[A4AA/DO21/E641/FOIF] 
Fehlermeldung aktivieren 
E648 20 BD C1 JSR $C1BD 
E64B AI 00 LDA #00 
E64D 8D F9 02 STA $02F9 
E650 20 2C C1 JSR $C12C 
E653 20 DA D4 JSR $D4DA 
E656 A9 00 LDA #800 
E658 85 A3 STA $A3 
E65A A2 45 LDX #%45 
E65C 9A TXS 
E65D AS 84 LDA $84 
E65F 29 OF AND #$0F 
E661 85 83 STA $83 
E663 C9 OF CMP #$0F 
E665 FO 31 BEQ $E698 
E667 78 SEI 

E668 A5 79 LDA $79 
E66A DO IC BNE $E688 
E66C A5 7A LDA $7A 
E66E DO 10 BNE $E680 
E670 A6 83 LDX $83 
E672 BD 2B 02 LDA $022B,X 
E675 C9 FF CMP #SFF 


Eingabepuffer für Befehlsstring löschen 
Zurückschreiben der BAM durch setzen des 
Flags verhindern 

LED blinken lassen 

Kanäle schließen 

Zeiger auf Position im Befehlsstring 
im Eingabepuffer zurücksetzen 
Stackpointer wieder neu 

setzen 

Standard-Sekundäradresse 

herstellen und 

merken 

Vergleich mit Kanal 15 

ist es der Kommandokanal ? 

nein, Diskcontroller abstellen 

Flag für 'Listen aufgetreten! 

aktiv ? 

nein, Flag für 'Talk aufgetreten! 
aktiv ?. 

nein, Sekundäradresse holen 

und dazugehörigen Kanalzustand 
testen 
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E677 FO 1F BEQ $E698 ist der Kanal aktiv ? 


E679 29 OF AND #&0F ja, Kanalnummer herstellen 
E67B 85 82 STA $82 und speichern 
E67D, 4C BE E6 JUMP $ES6BE zur Warteschleife 
Essol 20 EB DO JSR $DOEB Kanalnummer holen 
E683 EA NOP Bereich mit Leerschritten 
E684 EA NOP [entsteht durch Modifizierung) 
E685 EA NOP [des 1541 ROM] 
E686, DO 06 -BNE $E68E immer Sprung nach $E68E 
E6sgl 20 07 D1 JSR $D107 Schreibkanal holen 
E68B EA NOP Bereich mit Leerschritten 
E68C EA NOP [entsteht durch Modifizierung] 
E68D_ EA NOP [des 1541 ROM] 
E6BEZ 20 25 DI JSR $D125 aktuellen Dateityp feststellen 
E691 C9 04 CMP #804 auf relative Datei prüfen 

. E693 BO 03 BCS $E698 liegt relative Datei vor ? 
E695_ 20 27 D2 JSR $0227 nein, alle Kanäle freigeben 
E698” 4C 6B 83 JMP $836B zur Befehlswarteschleife 
[EGEA/E6F4] 
Wandelt einen Binärwert in A in BCD-Wert um 
E6YB AA TAX Binärwert merken 
E69C A9 00 LDA #800 Akku zurücksetzen 
E69YE, FB SED [Fehler siehe Kapitel 7.1.5] 
E69F EO 00 CPX #%00 Binärwert mit Null vergleichen 
E6A1 FO 07 BEQ $E6AA identisch ? 
E6A3 18 CLC Addition vorbereiten 
E6A4 69 01 ADC #801 X-mal eins im 
E6A6& CA DEX BCD-Modus addieren 
E6A7_ 4C YF ES JMP $E6YF weiterzählen, bis X gleich Null wird 
E6AA DE CLD Dezimalmodus ausschalten 
[E6D1] 
BCD-Zahl in zwei ASCII-Zeichen umwandeln 
E6AB AA TAX  - BCD-Wert merken 
E6AC 4A LSR A höherwertiges 
E6AD 4A LSR A Nibble isoliern, damit 
E6AE 4A LSR A erste Ziffer der 
E6AF 4A LSR A BCD-Zahl bereitstellen 
E6B0O 20 B4 E6 UJSR $E6B4 und in ASCII-Wert wmrechnen 


E6B3 BA. TXA Orginalwert wieder holen 
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E6B4 29 OF AND #$0F und zweite BCD-Ziffer isolieren 
E6B6 09 30 ORA #$30 in ASCII-Zeichen umwandeln 

E6BB 91 A5 STA ($A5),Y und in den aktuellen Puffer schreiben 
E6BA C8 INY Zeiger auf nächstes Byte im Puffer 
E6BB 60 RTS zurück zur aufrufenden Routine 
[C150/E0D6] 

Fehlermeldung '0O0 OK! bereitstellen 

E6BC 20 23 Ci JSR $0123 Fehlerflags zurücksetzen 

E6BF A9Y 00: LDA #%00 Fehlernummer für !ok! 

[D24A/EBD7)] 

Fehlermeldung mit Spur,Sektor =0 ausgeben 

E6C1 AO 00 LDY #$00 Spurnummer und 

E6C3 84 80 STY $80 Sektornummer 

E6C5 84 81 STY $81 Löschen 


[C1A7/E63B/E645/EFCB] 
Fehlermeldung im Puffer erzeugen (Nummer im Akku) 


E6C7 AO 00 LDY #800 Zeiger auf Position im Puffer setzen 
E6C9 A2 D5 LDX #%D5 Pufferadresse des Fehlermeldungs- 
E6CB 86 A5 STX $A5 puffers ($02D5) im 

 E6CD A2 02 LDX #%02 Zeiger $A5/$A6 
E6CF 86 A6 STX $A6 merken 
E6D1 20 AB E6 JSR $E6AB Fehlernummer in Puffer schreiben 
E6D4 AI 2C LDA #%2C 'ı,‘ Komma 
E6D6 91 A5 STA ($A5),Y nach Fehlernummer in Puffer übertragen 
E6D8 C8 INY Pufferzeiger auf nächstes Byte setzen 
E6D9 AD D5 02 LDA $02D5 erste Ziffer der Fehlernummer 
E6DC 8D 43 02 STA $0243 ins Ausgaberegister kopieren 
E6DF 8A TXA Fehlernummer wieder holen 
E6EO 20 06 E7 JSR $E706 Fehlermeldung im Klartext in Puffer 
E6E3 AI 2C LDA #%2C schreiben und nachfolgendes 
E6E5 91 A5 STA ($A5),Y Komma setzen 
E6E7 CB INY Pufferzeiger auf nächstes Byte setzen 
E6E8 A5 80 LDA $80 Nummer der Spur, wo Fehler auftrat 
E6EA 20 9B E6 JSR $E6PB - in ASCII umwandeln und in Puffer 
E6ED A9Y 2C LDA #$2C ı.‘ Komma 
E6EF 91 A5 STA ($A5),Y in Puffer als Trennzeichen setzen 
E6Fi C8 INY Pufferzeiger auf nächstes Byte 


E6F2 A5 81 LDA $81 Nummer des Sektors, wo Fehler auftrat 


20 9B 
E6F7 88 
E6F8 98 
E6F9 18 
69 D5 
8D 49 
E6 A5 


E6 


x 


02 


JSR $E69B 
DEY 

TYA 

CLC 

ADC #%D5 
STA $0249 
INC $A5 
LDA #$88 
STA $F7 
RTS 
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in ASCII umwandeln und in Puffer 

Länge der 

Fehlermeldung 

im Puffer 

errechnen und 

merken 

Pufferzeiger $A5/$A6 auf zweites Zeichen 
Flag für 'Fertig zum Ausgeben' 

setzen und 

zurück zur aufrufenden Routine 


[E6EO/ETSF] 


Fehlermeldung im 


E706 AA 

E707 AS 86 
E709 48 

E7TOA AS 87 
E7OC 48 

E7OD A9 FC 
E7TOF 85 86 
E711 A9 EA 
E713 85 87 
E715 8A 

E716, A2 00 
eriel C1 86 
E7TIA FO 21 
E7iC 48 

E7iD 20 75 
. E720, 90 05 
E72! 20 75 
E725_ 90 FB 
E727! AS 87 
E729 C9 E6 
E72B 90 08 
E72D DO OA 
E7T2F A9Y OA 
E731 C5 86 
E733_ 90 04 
E7351 68 


E7 


E7 


E736_ 4C 18 E7 


E739° 68 


Klartext in Fehlerpuffer schreiben 


TAX 

LDA $86 
PHA 

LDA $87 
PHA 

LDA #$FC 
STA $86 
LDA #$E4 
STA $87 
TXA 

LDX #800 
CMP ($86,X) 
BEQ $E73D 
PHA 

JSR $E775 
BCC $E727 
JSR $E775 
BCC $E722 
LDA $87 
CMP #8E6 
BCC $E735 
BNE $E739 
LDA #80A 
CMP $86 
BCC $E739 
PLA 

JMP $E718 
PLA 


Fehlernummer merken 

die Werte des Zwischenspeichers, 
der benutzt wird, 

werden gerettet, da diese Adressen 
von der Routine benötigt werden 
Adresse für Beginn 

der Texttabelle ($E4FC) 

in Zeiger $86/$87 

setzen 

Fehlernummer wieder holen 
Pufferzeiger initialisieren 

Nummer mit Texttabelle vergleichen 
identisch ? 

nein, Fehlernummer merken 
Pufferzeiger erhöhen 

immer Sprung nach $E727 
Pufferzeiger erhöhen 

immer Sprung nach $E727 


High-Byte des Textzeigers holen 


und auf Endwert prüfen 

ist Ende der Tabelle erreicht ? 

Ja, ist gleiche Speicherseite erreicht ? 
ja, Low-Byte des Textzeigers 

mit Endwert vergleichen 

ist Ende der Fehlertabelle erreicht ? 
ja, Fehlernummer wieder holen 
Fehlernummer suchen 

Fehlernummer wieder holen 
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E73A_ 4C 4D E7 JMP $E74D Ende 

E73D 20 67 E7_ JSR $E767 Byte aus Fehlertext holen 

E740. 90 FB BCC $E73D ist Anfang-Flag gesetzt ? 

E742° 20 54 E7 JSR $E754 ja, Zeichen in Puffer schreiben 
E745 20 67 E7_ JSR $E767 Byte aus Fehlertext holen 

E748 90 FB BCC $E742 ist Ende-Flag gesetzt ? 

E7T4A, 20 54 E7  JSR $E754 ja, Zeichen in Puffer schreiben 
E74D 68 PLA Zeropagewerte wieder 

E7T4E 85 87 STA $87 holen und ursprüngliche 

E750 68 PLA Werte wieder 

E751 85 86 STA $86 herstellen 

E753 60 RTS zurück zur aufrufenden Routine 
[E742/E74A] 


ASCII-Zeichen in Puffer schreiben 
Nicht-ASCII-Zeichen werden als Fehlernummer interpretiert 


E754 C9 20 CMP #$20 mit Leerzeichen vergleichen 
E756 BO OB BCS $E763 ist Zeichen größer als Leerzeichen ? 
E758 AA TAX nein, Zeichen als Fehlernummer merken 
E759 A9 20 LDA #820 und Leerzeichen in 
E75B 91 A5 STA ($A5),Y aktuelle Pufferposition schreiben 
E75D C8 | INY Pufferzeiger auf nächstes Zeichen setzen 
E7SE 8A TXA und Fehlernummer wieder holen 
E’SF 20 06 E7 JSR $E706 Klartext der Fehlermeldung in Puffer 
E762, 60 RTS zurück zur aufrufenden Routine 
E763 91 A5 STA ($A5),Y ASCII-Zeichen in Puffer schreiben 
E765 C8 INY und Pufferzeiger auf nächste Position 
E766 60 RTS zurück zur aufrufenden Routine 
[E73D/E745] 
Ein Zeichen des Fehlertexts aus der Texttabelle holen 
E767 E6 86 INC $86 Textzeiger auf nächstes Zeichen 
E769 DO 02 BNE $E76D ist ein Übertrag entstanden ? 
E76B_ E6 87 INC $87 ja, High-Byte korregieren 
E76D” A1 86 LDA ($86,X) Zeichen aus Textttabelle holen 
 E76F OA ASL A Bit7 ins Carry 
E770 A1 86 LDA ($86,X) Orginal-Zeichen nochmal holen 
E772 29 7F AND #&7F Bit7 ausblenden 


E774 60 RTS zurück zur aufrufenden Routine 
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[E7iD/E722] 


aktuelles Byte aus Tabelle holen 


E775 20 6D E7 


JSR $E76D 
INC $86 
BNE $E77E 
INC $87 
RTS 


Zeichen aus Tabelle holen 

Textzeiger auf nächstes Byte richten 
ist ein Übertrag entstanden ? 

ja, High-Byte korregieren 

zurück zur aufrufenden Routine 


[Teil wird im 1571 DOS nicht verwendet] 


E7T7F 60 
E780 60 


RTS 
RTS 


Frühere 1541-ROM-Versionen enthielten 
hier eine Autoboot-Routine 

Der eventuelle Einsprung in 

diese Routine wird bei der 1571 hiermit 
abgefangen und beendet 


[Einsprung durch Routine C146/E7A8:A611,A619] 
Routine für den &-Befehl (Autostart-Programme) 


E7TA3 20 FE A5 
E7TA6 EA 

E7TA7T EA 

ETA8 20 58 F2 
ETAB AD 78 02 
ETAE 48 

ETAF A9 01 
E7Bi 8D 78 02 
E7B4 A9 FF 
E7B6 85 86 
E7B8 20 4F C4 
E7BB AD 80 02 
E7’BE DO 05 
E7’CO A9Y 39 
E7’C2, 20 C8 ci 
E7C5 68 

E7’C6 8D 78 02 
E7’C9 AD 80 02 
E7’CC 85 80 
E’CE AD 85 02 
E7D1 85 81 
E7D3 A9 03 
E7D5, 20 77 D4 


Eros] A9 00 


JSR $ASFE 
NOP 

NOP 

JSR $F258 
LDA $0278 
PHA 

LDA #%01 
STA $0278 
LDA #$FF 
STA $86 
JSR $CA4F 
LDA $0280 
BNE $E7C5 
LDA #839 
JSR SCIC8 
PLA 

STA $0278 
LDA $0280 
STA $80 
LDA $0285 
STA $81 
LDA #$03 
JSR $D477 
LDA #800 


Patch (=Korrektur) für 1571 DOS 
[Leerschritte, da 1541 ROM] 
[modifiziert wurde] 

keine Funktion (rts) 

Zahl der Namen für die Dateinennung 
merken 

Arbeit auf erste 

Datei begrenzen 

Flag für Eintrag 

Löschen 

Dateieintrag im Directory suchen 
Flag für Suchergebnis (Spurnummer) 
Dateieintrag gefunden ? 
Fehlermeldung | 

ı39 File Not Found! ausgeben 

Zahl der Dateinamen wieder holen 
und zurücksetzen 

Spur des ersten Sektors der Datei 
übertragen 

Nummer des ersten Sektors 
übertragen 

Kennzeichen für USR-Datei 

Datei eröffnen; ersten Sektor einlesen 
Prüfsumme 
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ETDA 85 87 
E7DC 20 39 
ETDF 85 88 
.E7EI 20 48 
ETE4 20 39 
ETE7T 85 89 
ETE9 20 4B 
ETEC A5 86 
ETEE FO 0A 
ETFO A5 88 
ETF2 48 
ETF3 A5 89 
E7TF5 48 
ETF6 A9 00 
ETF&B. 85 86 
ETFA 
E’FD 85 8A 
ETFF, 20 4B 
E802 
E805 AO 00 
E807 91 88 
E809 20 4B 
E8ßOC AS 88 
E8OE 18 
E8OF 69 01 
E811 85 88 
E813 90 02 
E815_ E6 89 
esı7l 

E819 DO E7 


E81B 20 35 


ESiE AS 85 
E820 C5 87 
E822 FO 08 
E824 20 3E 
E827 A9Y 50 
E829 20 45 
Esac! AS F8 
E8ß2E DO AS 
E830 68 


E831 85 89 


E8 


E6 


STA $87 
JSR $E839 
STA $88 
JSR $E84B 
JSR $E839 
STA $89 
JSR $EB4B 
LDA $86 
BEQ $E7FA 
LDA $88 
PHA 

LDA $89 
PHA 

LDA #$00 
STA $86 
JSR $E839 
STA $8A 
JSR $E84B 
JSR $E839 
LDY #800 


STA ($88),Y 


JSR $E84B 
LDA $38 
CLC 

ADC #$01 
STA $88 
BCC $E817 
INC $89 
DEC $8A 
BNE $E802 
JSR $CA35 
LDA $85 
CMP $87 
BEQ $EB2C 
JSR $DE3E 
LDA #850 
JSR $E645 
LDA $F8 
BNE $E7D8 
PLA 

STA $89 


Löschen 
Speicherstartadresse aus 
dem Puffer holen 

und im Zeiger $88/89 
merken; dabei jeweils 
den geholten Wert 


zur Prüfsumme hinzurechnen 


Flag für 'Startadresse gelesen! 
gesetzt ? 

nein, Startadresse Low-Byte 
merken und 

Startadresse High-Byte 

merken 

Flag für 'Startadresse gelesen! 
setzen 

Zahl der folgenden Datenbytes 
aus dem Puffer holen und merken 
Prüfsumme aktualisieren 
Datenbyte aus Puffer holen 
Zeiger in Speicher initialisieren 
und Byte abspeichern 

Byte in Prüfsumme übernehmen 
Speicheradresse (Low-Byte) 

die Adresse, wo Daten 

abgelegt werden sollen 

um eins erhöhen 

ist ein Übertrag entstanden ? 
ja, High-Byte korregieren 


zähler für Gesamtzahl der Datenbytes 


alle Bytes im Speicher ? 

ja, Prüfsumme aus Puffer holen 
Prüfsumme mit 

errechnetem Wert vergleichen 
identisch ? 

Spur- und Sektor holen 
Fehlermeldung 

ı50 Record Not Present! ausgeben 


Flag für EOI (letztes Zeichen) holen 


wurde letztes Zeichen bearbeitet ? 
ja, Startadresse des Programms 
wieder holen 
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E833 68 
E834 85 88 
E836 6C 88 00 


PLA 
STA $88 
JMP (0088) 


[E7DC/ET7EA/ETFA/E8O2] 
Byte aus Puffer holen 
E839 20 35 CA JSR $CA35 
E8ßSC A5 FB LDA $F8 
Eß3E DO 08 BNE $E848 
E840 20 3E DE JSR $DE3E 
 E843 AY 51 LDA #851 
E845, 20 45 E6 JSR $E645 
E848° A5 85 LDA $85 
E84A 60 RTS 


[EZE1/E7E9/ETFF/E8O9] 
Prüfsumme aktualisieren 


E84B . 18 CLC 

E84C 65 87 ADC $87 
ES4E 69 00 ADC #$00 
E850 85 87 STA $87 
E852 60 RTS 
[9DC1] 

Flag für ATN vom 

E853 AD 01 18 LDA $1801 
E856 AY 01 LDA #801 
E858 85 7C STA $7C 
E8SSA 60 RTS 


[A7BD/EAS6/EA68/E8D7:AYB6] 
Routine zum Steuern des seriellen 


E8öSB 78 SEI 

E8öSC A9 00 LDA #$00 
EßSSE 85 7C STA $7C 

E860 85 79 STA $79 

E862 85 7A STA $7A 

E864 A2 45 LDX #%45 
E866 9A TXS 

E867 A9Y 80 LDA #380 
E869 85 FB STA $F8 


und in Zeiger $88/$89 
einrichten 
über Zeiger Sprung zu Programm 


Byte aus Sektor holen 
Flag für EOI testen 
war das das letzte Zeichen ? 


ja, Spur und Sektor setzen 


Fehlermeldung 

151 Overflow in Record! ausgeben 
letztes Zeichen holen 

zurück zur aufrufenden Routine 


neues Byte 

zu bisherigen Werten addieren 
den überlauf auch dazurechnen 
und neuen Prüfsummenwert merken 
zurück zur aufrufenden Routine 


seriellen Bus empfangen wird gesetzt 


[Fehler siehe Kapitel 7.1.5] 
Flag für 'ATN empfangen' 
setzen 

zurück zur aufrufenden Routine 


Bus 3 
Diskcontroller abschalten 
Flags mit Null löschen : 
Flag für 'ATN empfangen! 
Flag für Listen 

Flag für Talk 
Stackpointer neu 

setzen | 

Flags mit $80 (Bit? aktiv) löschen : 
Flag für EOI (Ende der Übertragung) 
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ES6EB 85 7D STA $7D Flag für ATN-Modus 

Eß6ED 20 B7 EI JSR $E9B7 Clock auf High setzen 

E87’O 20 A5 E9 JSR $EYAS Data Leitung auf Low legen 
E873 AD 00 18 LDA $1800 Bus-Steuerregister holen 

E876 09 10 ORA #%10 ‘  ATN Request löschen 

E878. 8D 00 18 STA $1800. und auf Bus geben 

E87] AD 00 18 LDA $1800 Busstatus wieder holen 

ES7TE 10 57 BPL $E8D7 ist ATN gesetzt ? 

E880 29 04 AND #804 nein, Clock Leitung maskieren 
E882. DO F7 BNE $E87B ist Clock gesetzt ? 

E884 1 20 C9 EI UJSR $EICYI ja, Kommandowort vom Bus einlesen 
E887 C9 3F CMP #$3F mit Unlisten vergleichen 

E889 DO 06 BNE $E891 identisch ? 

E88SB A9 00 LDA #800 ja, Flag für Listen 

EßßSD 85 79 STA $79 Löschen 

ESSF, FO 71 BEQ $E9O2 immer Sprung nach $E902 

Egg c9 5F CMP #$5F mit Untalk vergleichen 

E893 DO 06 BNE $E89B identisch ? 

E895 A9Y 00 LDA #00 ja, Flag für Talk 

E897 85 7A STA $7A Löschen 

E8YY_ FO 67 BEQ $E902 immer Sprung nach $E902 

Eagg1 Cc5 78 CMP $78 Kennzeichen für Talkadresse 
E8YD DO OA BNE $E8AY Soll Talkadresse empfangen werden ? 
E8YF AY 01 LDA #501 ja, Flag für Talk 

E8AI 85 7A STA $7A setzen 

E8A3 A9 00 LDA #$00 Flag für Listen 

E8A5 85 79 STA $79 Löschen 

E8A7_ FO 29 BEQ $E8D2 immer Sprung nach $E8D2 

Esagl c5 77 CMP $77 Kennzeichen für Listenadresse 
E8AB DO OA BNE $E8B7 Soll Listenadresse empfangen werden ? 
E8AD AI 01 LDA #801 ja, Flag für Listen 

EßAF 85 79 STA $79 setzen 

E8B1 A9 00 LDA #800 Flag für Talk 

E8B3 85 7A STA $7A Löschen 

E8ßSB5. FO 1B BEQ $E8D2 immer Sprung nach $E8D2 

Eap7] AA TAX Kommando merken 

E8B8 29 60 AND #860 Kommadobits isolieren 

EßSBA C9 60 CMP #360 auf Open testen 

EßBC DO ZF BNE $E8FD identisch ? 

E8SBE 8A TXA ja, Kommandowort wieder holen 


E8ßBF 85 84 STA $84 und merken 


478 Das Disk-Operating-System (DOS 


E8SC1I 29 OF AND #&0F reine Kanalnummer herstellen 

E8SC3 85 83 STA $83 ‚und merken 

E8ßC5S AS 84 LDA $84 Kommandowort wieder holen 

ESC7 29 FO AND #$F0 Adressbits ausblenden 

ESC9 | C9I EO CMP #8$E0 mit Close-Kommando vergleichen 
ESCcB DO 35 BNE $E902 identisch ? 

ESCD 58 CLI ja, Diskcontroller einschalten 
ESCE 20 CO DA JSR $DACO Close aufrufen 

E8D1_ 78 SEI Diskcontroller wieder ausschalten 
E8D2” 2C 00 18 BIT $1800 ATN-Bit prüfen 

E8D5_ 30 AD BMI $E884 ATN aktiv ?; wenn Ja warten 

E8D7” A9 00 LDA #%$00 nein, 

E8DY 85 7D STA $7D Flag für Kommandomodus löschen 
E8DB AD 00 18 LDA $1800 Bus -Steuerregister 

E8ßDE 29 EF AND #$EF ATN löschen 

ESEO 8D 00 18 STA $1800 und auf Bus ausgeben 

E8E3 A5 79 LDA $79 Flag für Listen 

E8E5 FO 06 BEQ $EBED Flag gesetzt ? 

E8E7 20 2E EA JSR $EA2E Daten vom Bus in Puffer übernehmen 
ESEA, 4C 6B 83 JMP $836B auf nächstes Kommandowort warten 
Ege | AS 7A LDA $7A Flag für Talk 

ESEF FO 09 BEQ $EBFA aktiv ? 

E8FI 20 9C E9 JSR $EIIC Data auf High setzen 

E8F4 20 AE E9_ JSR $EYAE Clock auf Low setzen 

EdF7. 20 09 E9 JSR $E9OY Daten aus Puffer an Bus übergeben 
E8FA, 4C 4E EA JMP $EA4E auf nächstes Kommandowort warten 
Esrol AY 10 LDA #$10 Kein Talk- oder Listenbefehl 

ESFF, 8D 00 18 STA $1800 Datenleitungen zurücksetzen 

E902" 2C 00 18 BIT $1800 ATN prüfen 

E905 10 DO BPL $E8D7” ist ATN zurückgesetzt ? 

E907 30 F9 BMI $E9O2 nein, weiter warten bis Kommandoende 
[ESF7] 

Daten nach Talk-Aufruf senden 

E909Y 78 SEI Diskcontroller ausschalten 

E9YOA 20 EB DO JSR $DOEB freien Kanal suchen und öffnen 
E9YOD. BO 06 BCS $E915 ist ein Kanal frei ? 

E9YOF A6 82 LDX $82 ja, aktuelle Kanalnummer holen 
E911 B5 F2 LDA $F2,X und dazugehörigen Status holen 
E913 30 01 BMI $E916 ist Kanal auf Lesen ? 


E915 60 RTS nein, züruck zur aufrufenden Routine 


Das große Floppybuch_1571/70 479 


E91 20 59 EA JSR $EA5Y ATN-Leitung prüfen 

E9IY 20 CO EI JSR $EYCO Wert vom Busregister lesen 

EYIC 29 01 AND #%01 und Data-Eingang holen 

EYIE 08 PHP Zustand der Data-Leitung merken 
EYIF 20 B7 E9 JSR $E9B7 Clock-Ausgang auf Low setzen 
E922 28 PLP Zustand der Data-Leitung wieder holen 
E923. FO 12 BEQ $E937 war Data gesetzt ? 

E925 20 59 EA JSR $EA59 ja, auf ATN-Kommandomodus testen 
E928 20 CO EI JSR $E9ICO Wert von Busregister holen 

E92B 29 01 AND #01 Data-Leitung isolieren 

E92D DO F6 BNE $E925 warten bis Data auf Low ist 

E92F A6 82 LDX $82 Nummer der internen Kanals 

E931 B5 F2 LDA $F2,X zugehörigen Status holen 

E933 29 08 AND #%08 und Flag für EOI testen 

E935_ DO 14 BNE $E94B wurde letztes Zeichen gesendet ? 
E937 20 59 EA JSR $EA59 ja, auf ATN-Modus testen 

E9Z3ZA 20 CO EI JSR $EICO Wert von Busregister holen 

EY3D 29 01 AND #801 und Data Leitung prüfen 

E9YZF, DO F6 BNE $E937 warten bis Data auf Low ist 
69411 20 59 EA JSR $EA5Y auf ATN-Kommandomodus testen 
E94L 20 CO E9 UJSR $EICO Wert von Busregister holen 

E94L7T 29 01 AND #$01 und Data Leitung isolieren 

E94L9_ FO F6 BEQ $E941 warten bis Data Eingang auf High 
E94B” 20 AE E9 JSR $EYAE Clock-Ausgang auf High setzen 
EYAE 20 59 EA JSR $EA59 auf ATN-Modus prüfen 

E951 20 CO E9 JSR $EYCO Wert von Busregister holen 

E954 29 01 AND #801 und Data analysieren 

E956 DO F3 BNE $E94B warten bis Data auf Low ist 

E958 AY 08 LDA #808 Zahl der Bits pro Byte in 

EYSA, 85 98 STA $98 zähler setzen 

E9scl 20 CO EI JSR $EICO Wert von Busregister holen 

EYSF 29 01 AND #%01 und Data Leitung prüfen 

E9J61 DO 36 BNE $E99Y ist Data auf Low ? 

E963 A6 82 LDX $82 ja, aktuelle Kanalnummer 

E965 BD 3E 02 LDA $023E,X dazugehöriges Datenbyte holen 
EIY6B 6A ROR A und erstes Bit davon ins Carry 
E9J6E9Y YD 3E 02 STA $023E,X Rest wieder merken 

E9&C BO 05 BCS $E973 ist Bit auf 1 ? 

EY6E 20 A5 EI JSR $EYA5 nein, Data-Leitung auf High setzen 
E971, DO 03 BNE $E976 immer Sprung nach $E976 


69731 20 9C EI UJSR $EIIC Data Leitung auf Low setzen 
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1 


E976 20 B7 EY 


E97Y 
EYTB 
E9TD 
E9Y8O 
E9Y83 
E985 
E987 
EYBA 
E9ED 
E9BF 
E99 
E9Y2 
E995 
E99S 


l 


1 


A5 23 
DO 03 
20 F3 FE 
20 FB FE 
C6 98 
DO D5 


20 59 EA 


20 CO E9Y 
29 01 

FO F6 

58 

20 AA D3 
78 

4C OF EY 


E999 L4C LE EA 


JSR $E9B7 
LDA $23 
BNE $E98O 
JSR $FEFZ 
JSR $FEFB 
DEC $98 
BNE $E9SC 
JSR $EAS59 
JSR $E9CO 
AND #801 
BEQ $E987 
CLI 

JSR $DZAA 
SEI 

JMP $E9OF 
JMP $EA4E 
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Clock Leitung auf Low setzen 

Flag für Busmodus testen 

ist Bus im 1540 Modus ? 

nein, 42 Taktzyklen Verzögerung 
Data auf Low, Clock auf High setzen 
Zahl der zu übertragenden Bits 

ist Byte schon gesendet ? 

ja, auf ATN-Modus testen 

Wert von Busregister holen 

und Data Leitung prüfen 

ist Data gesetzt ? 

ja, Diskcontroller einschalten 
nächstes Datenbyte aus Puffer holen 
Diskcontroller wieder ausschalten 
und auf Bus ausgeben 

auf nächstes Kommando warten 


[8178/8291/8208/8300/E8F1/E973/E9ID7/EIFA/FEFE] 
Data Leitung auf logisch Low setzen (physikalisch High) 


E9IIC 


AD 00 18 
29 FD 

8D 00 18 
60 


LDA $1800 
AND #&FD 
STA $1800 
RTS 


Bus-Steuerregister lesen 

Bit für Data-Leitung 

Löschen 

zurück zur aufrufenden Routine 


[80E6/828C/82F8/833C/E870/E96E/E9IF2/EA28] 
Data Leitung auf logisch High setzen (physikalisch Low) 


E9AS 


AD 00 18 
09 02 


LDA $1800 
ORA #%02 

STA $1800 
RTS 


[817E/822C/EBFA/EYAB/FEFB] 
Clock Leitung auf logisch High setzen (physikalisch Low) 


E9AE 


AD 00 18 
09 08 

8D 00 18 
60 


LDA $1800 
ORA #808 
STA $1800 
RTS 


Bus-Steuerregister holen 

und Bit für Data-Leitung 
setzen 

zurück zur aufrufenden Routine 


Bus-Steuerregister holen 

und Bit für Clock-Leitung 
setzen 

zurück zur aufrufenden Routine 
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[80E3/8200/829E/8458/E86D/EYIF/EY76] 
Clock Leitung auf logisch Low setzen (physikalisch High) 


E9YB7T AD 00 18 
E9YBA 29 F7 
EYBC 8D 00 18 
EYBF 60 


LDA $1800 
AND #$F7 
STA $1800 
RTS 


Bus-Steuerregister holen 

und Bit für Clock-Leitung 
Löschen 

zurück zur aufrufenden Routine 


[819C/81FA/8209/8218/8225/8232/827A/82B85/82D1/82EF/8306/8331/E919/E928] 
[EYZA/E9AL/EYST/EYSC/EIYBA/EIC6/E9DO/EIE9/EADO/EAID] 
Wert vom Bus lesen (Wert entprellen) 


E9YCO AD 00 18 
E9YC3 CD 00 18 
E9C6 DO FB 
E9YCE 60 


LDA $1800 
CMP $1800 
BNE $E9CO 
RTS 


[E8SS4/EA4A/EIDF:FF2C) 
Daten nach Listen Aufruf empfangen 


EIC9 A9 08 
EICH. 85 98 
escol 20 59 EA 
E9DO 20 CO E9 
E9D3 29 04 
E9D5 DO F6 
E9D7 20 9C E9 
E9DA A9 01 
E9DC. 4C 20 FF 
EIDF" 20 59 EA 
EIE2 AD OD 18 
EIES 29 40 
EIE7T DO 09 
EIE9 20 CO E9 
EIEC 29 0% 
EJEE FO EF 
E9FO, DO 19 
E9r2] 20 a5 E9 
EIFS. A2 OA 
eorzl ca 

EIFB DO FD 
EIFA. 20 9C E9 
EIFD" 20 59 EA 
EA0OO 20 CO E9 


LDA #$08 
STA $98 
JSR $EA5S9Y 
JSR $E9ICO 
AND #304 
BNE $E9CD 
JSR $EYIC 
LDA #801 
JMP $FF20 
JSR $EA59 
LDA $180D 
AND #840 
BNE $E9F2 
JSR $E9ICO 
AND #$04 
BEQ $EYDF 
BNE $EAOB 
JSR- $EYAS5 
LDX #$0A 
DEX 

BNE $E9F7 
JSR $E9YIC 
JSR $EA5S9 
JSR $E9ICO 


Steuerregister holen 
Nochmal holen und mit letztem Wert 
vergleichen; Wert konstant geblieben ? 


ja, zurück zur aufrufenden Routine 


Zahl der Bits pro Datenbyte 
Zähler initialisieren 

ATN testen 
Bus-Steuerregister holen 


und Clock-Leitung testen 


Clock aktiv ? 

ja, Data Leitung aktivieren 

[Fehler siehe 7.1.5] 

warten bis Data auf Low; Timer setzen 
ATN testen 

Interruptflags holen 

und Flag für Timer 1 testen 

ist Timer abgelaufen ? 

nein, Wert von Busregister holen 
Clock Eingang isolieren 

ist Clock gesetzt ? 

ja, immer Sprung nach $EAOB 
Data-Leitung auf High setzen 
Verzögerungszähler setzen 

Verzögerung von 51 Taktzyklen erzeugen 
ist Verzögerung abgelaufen ? 

ja, Data Leitung auf Low setzen 

Bus auf ATN-Kommando testen 
Bus-Steuerregister holen 
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EAO3 29 04 
EAO5S FO F6 
EAO7 AY 00 
EAO9_ 85 F8 
EA0O3” AD 00 18 
EADE 49 01 
EA1IO 4A 

EA11 29 02 
EA13 DO F6 


EA28 20 A5 EY 


AND #$04 
BEQ $E9FD 
LDA #500 
STA $F8 
LDA $1800 
EOR #801 
LSR A 

AND #802 
BNE $EAOB 
NOP 

NOP 

NOP 

ROR $85 
JSR $EA59 
JSR $EICO 
AND #804 
BEQ $EA1A 
DEC $98 


Clock-Leitung prüfen 

Clock gesetzt ? 

ja, Daten zu Ende 

EOI Flag setzen 

Steuerregister wieder holen 

Datenbit auf Orginalwert korregieren 
und im Carry merken 

Clock Leitung testen (versetzt mit LSR) 
Clock gesetzt, Daten in Ordnung ? 

ja, Leerbereich 

(kann nicht für eigene Daten 
verwendet werden) 

Datenbit in Zwischenspeicher schieben 
ATN testen 

Bus-Steuerregister lesen 

Clock Leitung prüfen 

ist Clock gesetzt ? 

ja, Zähler für Zahl der Datenbits setzen 
bereits acht Bits gelesen ? 

ja, Data Leitung auf low setzen 
Datenbyte übernehmen 

zurück zur aufrufenden Routine 


[EA4B/E8E7] 


Daten vom Bus übernehmen und im aktuellen Puffer ablegen 


- EA2E 78 

EA2F 20 07 D1 
EA32 BO 05 
EA34 B5 F2 
EA36 6A 

EA37. BO 0B 
EA391 A5 84 
EA3B 29 FO 
EA3D C9 FO 
EA3F FO 03 
EA41_ 4C 4E EA 
EA44Z 20 C9 E9 
EAL7 58 

EA4B 20 B7 CF 
EA4B_ 4C 2E EA 
EA4E” A9 00 


SEI 

JSR $0107 
BCS $EA39 
LDA $F2,X 
ROR A 

BCS $EA4A 
LDA $84 
AND #$F0 
CMP #$F0 
BEQ $EA4A 
JMP $EA4E 
JSR $E9C9 
CLI 

JSR $CFB7 
JMP $EAZE 
LDA #800 


Diskcontroller ausschalten 
Schreibkanal belegen 

freier Kanal gefunden ? 

Ja, zugehöriger Kanalstatus lesen 
ist der Kanal 

aktiv ? 

ja, Sekundäradresse holen 

und Kommandobits isolieren 

mit Open-Kommando vergleichen 
identisch ? 

nein, auf nächstes Kommando warten 
Byte vom Bus holen 
Diskcontroller wieder einschalten 
Datenbyte in Puffer übertragen 
nächstes Byte holen 
Bus-Steuerregister 
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EA5SO 8&D 00 18 STA $1800 zurücksetzen 
EA53 4C 6B 83 UMP $836B auf nächstes Kommando warten 
EA56 4C 5B E8 JMP $E85SB unbenutzter Programmrest aus 1541 DOS 


= nun 0 0 0 0 5 5 a 1 m a a mn aan a a nm nn nn m mn m an u Ed an a ST m nn a Sn mn CC a Sn mn u m Ta a a a a ET a nn nm a 5 nn m a u m m 


[869D/8E14/E916/E925/EI3T7/EIAT/EILE/EYB7T/EICD/EIDF/EIFD/EATA] 
Testet, ob Kommando übertragen wird 


EA59 AS 7D LDA $7D Flag für 'ATN aktiv’ 

EAS5B FO 06 BEQ $EA63 ATN gesetzt ? 

EAS5D AD 00 18 LDA $1800 ja, aktueller Zustand der ATN-Leitung 
EA60. 10 09 BPL $EA6B ist ATN auch gesetzt ? 

EA62, 60 RTS ja, zurück zur aufrufenden Routine 

EA63° AD 00 18 LDA $1800 aktueller Zustand der ATN-Leitung holen 
EA66 10 FA BPL $EA62 ist immer noch ATN gesetzt ? 

EA68. 4C B3 A7_JMP $A7B3 ja, Kommando vom Bus annehmen 

EA6B" 4C AC A9_ JMP $AYAC ATN zurücksetzen 

[EAB5S/EABE/EAC4] 


Anzeige von Hardwarefehlern (Endlosschleife) durch LED-Blinken alle 1 sec 
EA6E A2 00 LDX #%$00 Blinkzähler setzen 
EA7’O 2C A6 6F „byte $2C nächste 2 Bytes überspringen (Bitbefehl) 


[92B7/EBIF] 


RAM oder ROM Fehler (Test und Prüfsumme) 


EA71 
EA73 


Ea7a | 


EA75 
EA77 
EATA 
_ EA7D 


Eazel 


EATF 
EA81 
EA83 
EAB4 
EA86 
EA8Y 
EA8B 


EABEl 


A6 6F 
9A 


LDX $6f 
TXS 

TSX 

LDA #$08 
ORA $1C00 
JMP $FEEA 
TYA 

CLC 

ADC #$01 
BNE $EA7F 
DEY 

BNE $EATE 
LDA $1C00 
AND #$F7 
STA $1C00 
TYA 


Blinkzähler holen 

und merken 

Blinkwert wieder holen 

LED-Bit (Bit3) 

im Diskcontrollerregister setzen 
und LED aktivieren; weiter bei $EA7D 
(0) Zählerroutine 

intialisieren 
Verzögerungszähler 

für ca. 0.3 / 0.1 sec 

je nach 1 oder 2 MHz Takt 

ist Zeit abgelaufen ? 

ja, Steuerregister holen 

und Bit für 'LED an! 

ausblenden 

(0) Zählerroutine 


CLC 
ADC #801 
BNE $EAYO 
DEY 
BNE $EAdF 
DEX 
BPL $EA75 
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intialisieren 

Verzögerungszähler 

für ca. 0.3 / 0.1 sec 

je nach 1 oder 2 MHz Takt 

ist Zeit abgelaufen ? 

Blinkzähler 

nochmal Blinken ? 

nein, ca. 1 / 0.5 sec warten 

Zeit abgelaufen ? 

Ja, Blinken wieder von vorne starten 


1571 


Reset 


RAM und ROM testen 


EAAO 
EAA1 
EAA2 


SEI 

CLD 

LDX #866 
JMP $FF1O 
INX 

LDY #800 
LDX #800 
TXA 

STA $00,X 
INX 

BNE $EAAC 
TXA 

CMP $00,X 
BNE $EA6E 
INC $00,X 
INY 

BNE $EAB7 
CMP $00,X 
BNE $EA6E 
STY $00,X 
LDA $00,X 
BNE $EA6E 
INX 

BNE $EAB2 
INC $6F 
LDX #880 


Diskcontroller abschalten 
Arithmetikmodus auf Binär setzen 

Wert für DDRA 

VIA's initialisieren; Sprung nach $EAA7 
[Fehler siehe 7.1.5] 

Offsetzähler initialisieren 

Zeiger auf Zeropagestelle setzen 

Nummer der Speicherstelle 

in Speicherstelle schreiben 

nächstes Speicherzelle anwählen 

schon Adresse $100 erreicht ? 

Ja, Soll-Wert der Speicherstelle 

mit Ist-Wert vergleichen 

beide identisch ? 

Ja, Speicherstelleninhalt erhöhen 
Offsetwert Speicheradresse-Inhalt setzen 
schon alle Werte getestet ? 

ja, Wert mit Speicherstelle vergleichen 
identisch ? 

ja, Speicherstelle mit (0) löschen 
Inhalt wieder holen 

war Löschen in Ordnung ? 

ja, nächste Speicherstelle anwählen 
schon Adresse $100 erreicht ? 

ja, Blinkzähler für Fehler erhöhen 
Startadresse des 
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" EACD 
EACF 
EAD1 
EAD3 
EAD5 
EAD6 
EADB 
EADA 
EADB 
EADD 
EADE 
EAEO 
EAE2 
EAE4 
EAE6 
EAE7 
_ EAE8 
EAE9 
EAEA 
EAEC 
EAEE 
EAFO 
EAF2 
EAF3 
EAF4 
EAF6 
EAFB 
EAF9 
EAFB 
EAFD 
EAFE 
EBOO 
EBO2 
EBO4 
EBO5 
EBO6 
EB07 
EB09 
EBOB 
EBOD 
EBOF 


86 
A9 
85 
AO 
18 
E6 
71 
c8 
DO 
CA 
DO 
69 
85 
DO 
EA 
EA 
EA 
EA 
A9 
85 
E6 
A2 
98 
18 
65 
91 
c8 
DO 
E6 
CA 
DO 
A2 
C6 
88 
98 
18 
65 
D1 
DO 
49 
91 


STX 
LDA 
STA 
LDY 
CLC 
INC 
ADC 
INY 
BNE 
DEX 
BNE 
ADC 
STA 
BNE 
NOP 
NOP 
NOP 
NOP 
LDA 
STA 
INC 
LDX 
TYA 
CLC 


ADC 


STA 
INY 
BNE 
INC 
DEX 
BNE 
LDX 
DEC 
DEY 
TYA 
CLC 
ADC 
CMP 
BNE 
EOR 
STA 
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$76 
#500 
$75 
#502 


$76 
($75),Y 


$EAD8 


$EAD6 
#&FF 
$76 
$EBIF 


#01 
$76 
$6F 
#507 


$76 
($75),Y 


$EAF2 
$76 


$EAF2 
#507 
$76 


$76 
($75),Y 
$EBIF 
#SFF 
($75),Y 


Betriebssystem ROM 

in Zeiger $75/76 auf $8000 setzen 
setzen 

Prüfsummenbytes ignorieren 

ROM- Zeiger 

auf nächste Speicherseite setzen 
ROM-Wert zur Prüfsumme dazurechnen 
Zeiger auf nächstes Byte richten 
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ganze Speicherseite berücksichtigt ? 


Ja, Zahl der Speicherseiten des ROM 
schon ganzes ROM geprüft ? 

ja, Prüfsummenwert verrechnen 

und Ergebnis merken 

ist Fehler vorhanden ? 

nein, [Leerbereich] 

(der durch Modifzierung] 

[des 1541 ROM] 

[entstand] 

Speicherseite 1 

anwählen 

Seitennummer in Blinkzähler setzen 
Zahl der RAM Seiten 

Löschwert (Speichernummer) 

dazu Nummer der 

Speicherseite einrechnen 

und in Speicher schreiben 

Zeiger auf nächstes Byte richten 
ganze Speicherseite gelöscht ? 

ja, Zeiger auf nächste Seite setzen 
Zahl der RAM Seiten 

schon ganzes RAM gelöscht 

Ja, Zahl der RAM Seiten 

RAM Zeiger auf vorhergehende Seite 
Zahl der noch zu testenden Seiten 
Nummer der Position 

holen und 

Seitennummer einrechnen 

mit Löschwert vergleichen 

ist Speicherstelle richtig ? 

ja, Werte alle Bits wechseln 

und andere Wertigkeit testen 
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EB11 51 75 EOR ($75),Y Ergebnis prüfen 
EB13_ 91 75 STA ($75),Y und Speicherstelle löschen (0) 
EB15 DO 08 BNE $EB1F war Test erfolgreich ? 
EB17 98 TYA ja, Prozessorflags für Y-Wert setzen 
EB18 DO EA BNE $EBO4 Ende der Speicherseite ? 
EBIA CA DEX ja, nächste Seite anwählen 
 EB1B DO ES BNE $EBO2 schon ganzes RAM getestet ? 
EB1D_ FO 03 BEQ $EB22 ja, immer Sprung nach $EB22 
EBIF”* 4C 71 EA JMP $EA7I Hardwarefehler anzeigen 


[EB1D/EB25:A7C4] 
Zeropage initialisieren 


EB22 4C CO A7’_ JUMP $A7CO Stack auf Bereich $0100-$0145 setzen 
EB25 AD 00 1C LDA $1C00 Laufwerksteuerregister holen 

EB28 29 F7 AND #5F7 und LED am Laufwerk 

EB2ZA 8D 00 IC STA $1C00 ausschalten 

EB2D A9Y 01 LDA #803 CA1 (ATN) auf positive und CA2 (WP) auf 
EB2F 8D OC 18 STA $180C negative Flanke triggern 

EB32 A9Y 82 LDA #$82 Flag für 'Interrupt von CA1 aktiv"! 
EB34 8D OD 18 STA $180D Löschen 

EB37’_ 8D ODE 18 STA $180E und akktivieren 

EB3A AD 00 18 LDA $1800 Hardwaremäßige Festlegung 

EB3D 29 60 AND #860 der Geräteadresse (durch DIP-Schalter) 
EB3F OA ASL A holen und die zwei 

EB4AO 2A ROL A signifikanten Bits 5 und 6 

EB41 2A ROL A in Position O und 1 

EB42 2A ROL A schieben 

EB43 09 48 ORA #848 daraus Geräteadresse für Talker-Betrieb 
EB45 85 78 STA $78 generieren und abspeichern 

EB47 49 60 EOR #560 Geräteadresse für Listener-Betrieb 
EBAY 85 77 STA $77 herstellen und setzen 

EB4B A2 00 LDX #$00 Zeiger auf Pufferzeiger 

EB4D. AD 00 LDY #800 Zeiger auf Tabelle der Highbytes 
EB4FI A9 00 LDA #00 Wert der Low-Bytes 

EB51 95 99 STA $99,X Low-Byte des Pufferzeigers löschen 
EB53 EB INX Zeiger auf High-Byte setzen 

EB54 B9 EO FE LDA $FEEO,Y Highbyte der Pufferadresse holen 

EB57 95 99 STA $99,X und in Zeiger übernehmen 

EBS9 EBE INX Zeiger auf nächsten Pufferzeiger 

EB5SA C8 INY Zeiger auf nächstes Highbyte 


EB5B CO 05 CPY #%05 Zahl der Puffer 
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EB5D DO FO BNE $EB4F alle Pufferadressen angelegt ? 
EBSF A9Y 00 LDA #800 ja, Low-Byte des Zeigers auf den 
EB61 95 99 STA $99,X Eingabepuffer 
EB63 EB INX Zeiger auf High-Byte 
EB64 AI 02 LDA #02 Pufferzeiger auf Adresse $200 
EB66 95 99 STA $99,X richten 
EB68 E8 INX Zeiger auf nächstes Byte 
EB69 AI D5 LDA #805 Low-Byte des Fehlerpuffers 
EB6öB 95 99 STA $99,X setzen 
EBED EB INX Zeiger auf nächstes Byte richten 
EB6E A9 02 LDA #$02 Fehlermeldungspuffer auf Adresse 
EB7O 95 99 STA $99,X $02D5 einrichten 
EB72 AY FF LDA #$FF Wert für 'Kanal frei! 

: EB74, A2 12 LDX #%12 Zahl der Sekundäradressen (19) 
EB761 9D 2B 02 STA $022B,X Kanal freigeben 
EB79 CA DEX nächste Sekundäradresse 
EB7TA 10 FA BPL $EB76 schon ganze Tabelle angelegt ? 
EB7C, A2 05 LDX #%05 ja, Zahl der internen Kanäle (6) 
EB7el 95 A7 STA $A7,X 1. Puffer freigeben 
EB80 95 AE STA $AE,X 2. Puffer freigeben 
EB82 95 CD STA $CD,X 3. Puffer freigeben 
EB8S4 CA DEX nächsten Kanal setzen 
EBBS 10 F7 BPL $EB7E schon alle Kanäle berücksichtigt ? 
EB87 AY 05 LDA #205 ja, Eingabepuffer Kanal 4 
EB8EY 85 AB STA $AB zuweisen 
EBSB A9 06 LDA #$06 Fehlerpuffer Kanal 5 
EBSD 85 AC STA $AC zuweisen 
EBöF AY FF LDA #$FF Wert für 'kein Puffer zugeordnet! 
EB91 85 AD STA $AD in Kanal 6 (1. Puffer 
EB93 85 B4 STA $B4 und 2. Puffer) 
EB95 A9Y 05 LDA #%05 Sekundäradresse 16 auf 
EB97 8D 3B 02 STA $0238B Kanal 5 leiten 
EBJA AY 84 LDA #84 Sekundäradresse 15 auf Kanal 4 leiten 
EBIC 8D 3A 02 STA $023A (Status: nur Schreibkanal) 
EBYF A9Y OF LDA #$0F Flags für Kanalbelegung einrichten 
EBAI 8D 56 02 STA $0256 Kanal O0 bis 3 sind freigegeben 
EBA4 A9 01 LDA #801 Flag für 'Schreibkanal' 
EBA6 85 F6 STA $F6 für Kanal 4 setzen 
EBA8 A9 88 LDA #88 Flag für 'Lesekanal/ kein EOI' 
EBAA 85 F7 STA $F7 für Kanal 5 setzen 


EBAC A9 EO LDA #$E0 Flags für Pufferbelegung (Bit gesetzt = 
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EBAE 8D 4F 02 STA $024F Puffer belegt) setzen 
EBB1i A9 FF LDA #$FF dabei Puffer O0 bis 4 
EBB3_ 8D 50 02 STA $0250 freigeben 

EBB6 A9 01 LDA #%01 Flag für Zustand der 
EBB8 85 1C STA $IC Schreibschutzkerbe 
EBBA 85 1D STA $1D Löschen 


EBBC 20 63 CB JSR $CB63 
EBBF 20 FA CE JSR $CEFA 
EBC2 20 82 FF JSR $FF&2 


Zeiger auf Sprungtabelle für U-Befehle 
Puffer-Kanal-Tabelle initialisieren 
Diskcontrollerroutine aktivieren 


EBC5 AY9 22 LDA #$22 Zeiger auf NMI oder Befehl 

EBC7 85 65 STA $65 zum Umschalten zwischen 1541 und 1540 
EBC9 AY EB LDA #$EB in $65/$66 auf 

EBCB 85 66 STA $66 $EB22 setzen 

EBCD A9 06 LDA #$06 Sektorversatz (6) 

EBCF 85 69 STA $69 festlegen 

EBD1 A9 05 LDA #$05 Zahl der Leseversuche bei Fehlern 
EBD3_ 85 6A STA $6A auf 5 setzen 

EBD5S AY 73 LDA #$73 DOS Einschaltmeldung 

EBD’ 20 C1 E6 JSR $E6C1 173 CBM DOS V3.0 1571' bereitstellen 
EBDA A9 00 LDA #800 Busleitungen 

EBDC 8D 00 18 STA $1800 zurückksetzen 

EBDF AY 1A LDA #$1A Eingang/Ausgang Belegung %00011010 
EBE1 8D 02 18 STA $1802 ‚festlegen 

EBE4 20 86 A7__JSR $A786 CIA 6526 initialisieren 
[836E/E8EA/EA53] 

Warteschleife zur Befehlserkennung 

EBE7 58 CLI Kontroller-/Busroutinen aktivieren 
EBE8 AD 00 18 LDA $1800 Bus-Steuerregister holen 

EBEB 29 E5 AND #%E5 und alle Ausgänge löschen 

EBED 8D 00 18 STA $1800 und Bus in Ausgangszustand setzen 
EBFO AD 55 02 LDA $0255 Flag für 'Kommando empfangen' 

EBF3_ FO 0A BEQ $EBFF gesetzt ? 

EBF5 A9 00 LDA #%00 ja, Kommandoflag 

EBF7 8D 55 02 STA $0255 Löschen 

EBFA EA NOP [Leerschritte durch Modifizierung] 
EBFB EA NOP [des 1541 ROM] 

EBFC 4C IC A6 JMP $A6IC Befehl vom Rechner ausführen 
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[LA628/EBF3/ECIB] 
auf Befehl warten 


EBFF 58 

EC0OO AS 7C 
ECO2 FO 03 
ECOL_ 4C 94 
eco7! 
ECO8 A9 0E 
ECOA 85 72 
ECOC A9 00 
ECOE 85 6F 
EC10, 85 70 
ecız] 
EC14 BD 2B 
EC17_ C9 FF 
EC19 FO 10 
EC1B 29 3ZF 
EC1D 85 82 
ECIF 20 93 
EC22 AA 

EC23 BD 5B 
EC26 29 01 
EC28 AA 

EC29 F6 6F 
EC2B C6 72 
EC2D 10 E3 
- EC2F_ AO 04 
ecz1 B9 00 
EC34 10 05 
EC36 29 01 
EC38 AA 

EC39_ F6 6F 
Ecagl 88 

EC3C 10 F3 
EC3E 78 

EC3F AD 00 
EC42 29 F7 
EC44 48 

EC45 AS 7F 
EC47 85 86 
EC49 A9Y 00 


A6 


02 


DF 


00 
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CLI 

LDA $7C 
BEQ $ECO7 
JMP $A7B3 
CLI 

LDA #$0E 
STA $72 
LDA #800 
STA $6F 
STA $70 
LDX $72 
LDA $022B,X 
CMP #$FF 
BEQ $EC2B 
AND #$3F 
STA $82 
JSR $DF93 
TAX 

LDA $025B,X 
AND #801 
TAX 

INC $6F,X 
DEC $72 
BPL $EC12 
LDY #804 
LDA $0000,Y 
BPL $EC3B 
AND #801 
TAX 

INC $6F,X 
DEY 

BPL $EC31 
SEI 

LDA $1C00 
AND #$F7 
PHA 

LDA $7F 
STA $86 
LDA #800 


Bus-/Kontrollerroutine einschalten 
Flag für ATN empfangen 

gesetzt ? 

ja, ATN-Kommando vom Bus annehmen 
Bus-/Kontrollerroutine wieder aktivieren 
größte Sekundäradresse, die für 
Dateien zur Verfügung gestellt wird 
Zähler für anstehende Jobs 

für Laufwerk O0 und für 

Laufwerk 1 löschen 

Sekundäradresse holen 

und entsprechenden Kanalstatus prüfen 
mit Wert für 'frei' vergleichen 

ist Kanal frei ? 

nein, Nummer des zugeordneten internen 
Kanals holen und merken 

Puffernummer holen 

und merken 

Jobceode des Puffers feststellen 

und letztes Laufwerk herstellen 

und merken 

Zahl der Jobs erhöhen 

nächste Sekundäradresse 

alle Kanäle berücksichtigt ? 

ja, Zahl der Puffer 

Jobcode des Puffers holen 

ist Job in Arbeit ? 


ja, Nummer des Laufwerks holen 


und merken 

Zahl der Jobs erhöhen 

nächsten Puffer anwählen 

schon alle Jobs geprüft ? 

ja, Kontroller-/Busroutinen ausschalten 
Laufwerkssteuerregister holen 
LED zurücksetzen und generierte 
Maske für 'LED aus! merken 
aktuelles Laufwerk 

merken und 

Laufwerk O0 
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EC4B 85 7F STA $7F anwählen 

EC4D A5 6F LDA $6F Zahl der Jobs für Laufwerk 0 

EC4F FO OB BEQ $EC5SC sind irgendwelche Jobs auszuführen ? 
EC51 A5 1C LDA $iC ja, Flag für 'Diskette initialisieren! 
EC553 FO 03 BEQ $EC58 soll Diskette initialisiert werden ? 
EC55_ 20 13 D3 JSR $D313 Diskette initialisieren 

Ecssl 68 PLA Maske für Laufwerkssteuerung wieder 
EC59 09 08 ORA #%08 holen, LED anschalten und 

EC5B, 48 PHA wieder merken 

ecscl E6 7F INC $7F Laufwerk 1 anwählen 

EC5SE AS 70 LDA $70 Zähler für Jobs für laufwerk 1 

EC60 FO OB BEQ $ECED sind für Laufwerk 1 Jobs auszuführen ? 
EC62 A5 1D LDA $1D ja, Write-Protect-Flag für Laufwerk 1 
EC64 FO 03 BEQ $EC69 hat ein Diskettenwechsel stattgefunden ? 
EC66,. 20 13 D3 JSR $0313 alle Kanäle des Laufwerks abschließen 
EC69 68 PLA Maske für Laufwerkssteuerung zurückholen 
ECGA 09 00  ORA #00 und LED an Laufwerk 1 setzen 

EC6C, 48 PHA und wieder merken 

EC6D AS 86 LDA $86 aktuelles Laufwerk zurückholen 

EC6F 85 7F STA $7F und übernehmen 

EC71 68 PLA Maske für Laufwerkssteuerung holen 


LED-Fehlerblinken steuern 


EC72 AE 6C 02 LDX $026C Fehlerflag testen 
EC75 FO 21 BEQ $EC9YB gesetzt ? 
EC77 AD 00 IC LDA $1C00 ja, Steuerregister holen 
EC7A EO 80 CPX #880 Zähler auf Blinkphase testen 
EC7C DO 03 BNE $EC81 Timer neu setzen ? 
EC7TE, 4C 88 EC JMP $ECEB nein, weiter 
ecsıl AE 05 18 LDX $1805 High-Byte des Timer 1 
EC84 30 12 BMI $EC98 ist Zähler abgelaufen 
EC86 A2 AO LDX #$A0 ja, Highbyte 
 EC88 8E 05 18 STX $1805 neu setzen 
Ec8B CE 6C 02 DEC $026C Blinkzähler erniedrigen 
ECBE DO 08 BNE $EC98B ist Zähler abgelaufen 
EC9O AD 6D 02 EOR $026D LED umschalten 
EC93 A2 10 LDX #810 Blinkzähler auf 0.4 / 0.2 Sekunden 
EC9Y5._ BE 6C 02 STX $026C Verzögerung setzen 
EC98” 8D 00 IC STA $1C00 LED ansteuern 


EC9B 4C FF EB JUMP $EBFF- weiter blinken 
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[DAA7] 
Directory für 'Load "$"'! bereitstellen 
Das Inhaltsverzeichnis wird dabei als Basicprogramm geladen 


EC9E AI 00 LDA #800 Null als aktuelle 
ECAD 85 83 STA $83 Sekundäradresse setzen (Load Kanal) 
ECA2 A9 01 LDA #%01 einen Lesekanal suchen und 
ECA4 20 E2 D1 JSR $DIE2 dazugehöhriger Puffer festlegen 
ECA7 A9 00 LDA #800 Zeiger auf Position 
ECA9 20 C8 D4 JSR $D4C8 im Puffer auf Null zurücksetzen 
ECAC A6 82 LDX $82 Nummer des gefundenen Kanals 
ECAE A9 00 LDA #00 Zeiger auf Ende des gültigen Puffer- 
ECBO 9D 44 02 STA $0244,X eintrags löschen 
ECB3 20 93 DF JSR $DF93 Nummer des ausgewählten Puffers holen 
ECB6 AA TAX und merken 
ECB7T AS 7F LDA $7F aktuelles Laufwerk holen und in 
ECB9 | Y9D 5B 02 STA $0258,X Laufwerkstabelle dem Puffer zuordnen 
ECBC A9Y 01 LDA #801 Startadresse des 'fiktiven! 
ECBE 20 Fi CF JSR $CFF1 Basicprogramms ($0401) 
ECCI A9 04 LDA #804 aktuellen Puffer 
ECC3 20 Fi CF JSR SCFF1 schreiben 
ECC6 A9 01 LDA #201 zwei Füllbytes als Platzhalter 
ECC8 20 Fi CF  JSR $CFFi für die Verkettungszeiger der 
ECCB 20 FI CF JSR $CFFi j Basiczeilen in den Puffer schreiben 
ECCE AD 72 02 LDA $0272 Nummer des Laufwerks holen 
ECD1 20 Fi CF  JSR $CFF1 und in Puffer als Low-Byte der Zeilen- 
ECD4 A9 00 LDA #$00 nummer übergeben; das Highbyte 
ECD6 20 FI CF JSR $CFF1 wird auf Null gesetzt 
ECD9 20 59 ED JSR $ED5Y Diskettennamen in Puffer übertragen 
ECDC 20 93 DF JSR $DF9Y3 Nummer des aktuellen 
ECDF OA ASL A Puffers holen, verdoppeln 
ECEO AA TAX und Zeiger auf aktuelle Position im 
ECE1 D6 99 DEC $99,X Puffer um zwei Zeichen 
ECE3 D6 99 DEC $99,X erniedrigen 
ECE5 A9 00 LDA #500 Endekennzeichen der Basiczeile 
ECE7_ 20 FI CF JSR $CFF1 in Puffer speichern 
ECEA” A9 01 LDA #801 Zwei Bytes als Platzhalter 
ECEC 20 FI CF JSR $CFFi für die Zeilenverkettung der 
ECEF 20 FI CF UJSR $CFF1 Basiczeilen setzen 
ECF? 20 CE C6 JSR $C6CE Eintrag aus Directory lesen 

- ECF5 90 2C BCC $ED23 alle Einträge bearbeitet ? 


ECF7 AD 72 02 LDA $0272 nein, Zahi der belegten Blöcke (Low) 


02 
00 


JSR $CFF1 
LDA $0273 
JSR $CFF1 
JSR $ED59 
LDA #00 

JSR $CFF1 
BNE $ECEA 
JSR $DF93 
ASL A 


TAX 


LDA #$00 
STA $99,X 
LDA #$88 
LDY $82 

STA $0254 


STA $00F2,Y 


LDA $85 
RTS 
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als Low-Byte der Basiczeilennummer und 
High-Byte der Blockanzahl als High-Byte 
der Basiczeilennummer in Puffer 
Directoryeintrag in Puffer kopieren 
Kennzeichen für 'Basiczeile zu Ende! 

in Puffer setzen 

ist der Puffer voll ? 

nein, Nummer des aktuellen Puffers holen 
Nummer verdoppeln 

und den Zeiger auf die aktuelle 
Position im entsprechenden 

Puffer wieder zurücksetzen 

Flagwert für 'Directory nicht im Puffer"! 
Nummer des Kanals holen 

Flag setzen 

Kanalsstatus auf Lesen schalten 
aktuelles Datenbyte holen 

zurück zur aufrufenden Routine 


LECF5] 
Ausgabe des 
ED23 AD 72 
ED26 20 F1 
ED29 AD 73 
ED2C 20 F1 
ED2F 20 59 
ED32 20 93 
ED35 DA 
ED36 AA 
ED37_ D6 99 
ED39_ DE 99 
ED3B A9 00 
ED3D 20 F1 
ED40 20 Fi 
ED43 20 F1 
ED46 20 93 
ED49 DA 
EDAA AB 
ED4B BI 99 
ED4E A6 82 
ED50O 9D 44 


Directory abschließen 


02 
CF 
02 
cr 
ED 
DF 


CF 
CF 
cr 
DF 


00 


02 


LDA $0272 
JSR SCFF1 
LDA $0273 
JSR $CFF1 
JSR $ED59 
JSR $DF93 
ASL A 

TAX 

DEC $99,X 
DEC $99,X 
LDA #800 

JSR $CFF1 
JSR $CFF1 
JSR $CFF1 
JSR $DF93 
ASL A 

TAY 


LDA $0099,Y 


LDX $82 


STA $0244,X 


Zahl der freien Blöcke in 
$0272/$0273 als 

Basiczeilennummer nehmen und in 
Puffer schreiben 

schreibt 'Blocks Free! in Puffer 
Nummer des aktuellen Puffers holen 
Nummer verdoppeln 

Zeiger auf die aktuelle 
Zeichenposition im Puffer um zwei 
Byte vorsetzen 

Kennzeichen für Basiczeilenende und 
zwei leere Verkettungsbytes als 
Kennzeichen für das Programmende 

in aktuellen Puffer übernehmen 
aktuelle Puffernummer holen 

Nummer verdoppeln 

Zahl der im Puffer noch 

gültigen Bytes holen 

und als Zeiger auf das Ende für 
die, aus dem Puffer zu übertragenden 
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ED53 DE 44 02 DEC $0244,X Bytes setzen 
ED56 4C OD ED JMP $EDOD Ende 
[ECDY/EDO3Z/EDZF] 
‚Directoryeintrag in aktuellen Puffer kopieren 
ED59 AO 00 LDY #800 , Pufferzeiger initialisieren 
ED5B° BY B1 02 LDA $02B1,Y . und ein Zeichen aus dem Directorypuffer 
ED5SE 20 FI CF JSR $CFFi holen und in aktuellen Puffer übertragen 
ED61 CB INY Zeiger auf nächstes Zeichen setzen 
ED62 CO 1B CPY #$1B Zahl der Zeichen pro Eintrag 
ED64 DO F5 BNE $ED5B ‚alle Zeichen kopiert ? 
ED66 60 RTS ja, zurück zur aufrufenden Routine 
[D40E] 
Byte aus Directory holen 
ED67 20 37 DI JSR $0137 Byte aus Datei holen 
ED6A FO 01 BEQ $EDED Ende der Datei erreicht ? 
ED6C, 60 RTS nein, zurück zur aufrufenden Routine 
ED6&D 85 85 STA $85 letztes Datenbyte merken 
ED6F A4 82 LDY $82 Nummer des Kanals holen 
ED71 BY 44 02 LDA $0244,Y Zahl der zu übertragenden Bytes holen 
ED74 FO 08 BEQ $ED7E keine Daten mehr ? 
ED76 A9 80 LDA #380 nein, Kanalstatus auf '!'Lesen/EOI'! 
ED7’8 99 F2 00 STA $00OF2,Y setzen 
ED/’B A5 85 LDA $85 und letztes Datenbyte wieder holen 
ED7D, 60 RTS zurück zur aufrufenden Routine 
eozel 48 PHA Zahl der Datenbytes holen 
ED/F 20 EA EC JSR $ECEA Directoryzeile erzeugen 
ED82 68 PLA letztes Datenbyte wieder holen 
ED83 60 RTS zurück zur aufrufenden Routine 


[Einsprung über Routine C146] 
Routine für Validate Befehl 


ED84 20 D1 CI JSR $C1D1 Laufwerknummer aus Befehlsstring holen 
ED87T 20 42 DO JSR $D042 Diskette initialisieren 

EDBA AY 40 LDA #840 Flag für 'BAM ungültig! 

EDSC 8D F9 02 STA $02F9 setzen 

ED8F 20 C7 A7 JSR $A7C7 neue BAM erzeugen 

ED92 A9I 00 LDA #00 Zeiger auf Directoryeintrag 

ED9J4 8D 92 02 STA $0292 Löschen; Flag für Suche setzen 


ED97 20 AC C5 JSR $C5AC Dateieintrag in Directory suchen 
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[EDDD] 

Alle Blöcke 
EDB3 | C8 

. EDB4 B1 94 
EDB6 48 
EDB7 C8 
EDB8 Bi 94 
EDBA 48 
EDBB AO 13 
EDBD B1 94 
EDBF FO 0A 
EDC1 85 80 
EDC3 C8 
EDC4 B1 94 
EDC6 85 81 
EDC8_ 20 E5 
EDCB 68 
EDCC 85 81 
EDCE 68 
EDCF 85 80 
EDD1, 20 E5 
eop4 1 20 04 
EDD7, FO C3 
EDDY AO 00 


BNE $EDDY 
LDA #800 
STA $81 
LDA $FE85 
STA $80 
JSR $EDES 
LDA #$00 
STA $02F9 
JSR $EEFF 
JMP $C194 


Eintrag gefunden ? 

nein, Nummer des Sektors 

auf Null setzen 

Nummer der Directoryspur (18) 
holen und setzen 

Directoryspur in BAM belegen 
Flag für 'BAM ungültig! 

Löschen 

BAM auf Diskette zurückschreiben 
IOK! Meldung ausgeben und Befehl beenden 


einer Datei in der BAM belegen 


ED 
C6 


INY 


LDA ($94),Y 


PHA 
INY 


LDA ($94),Y 


PHA 
LDY #813 


LDA ($94),Y 


BEQ $EDCB 
STA $80 
INY 


LDA ($94),Y 


STA $81 
JSR $EDES 
PLA 

STA $81 
PLA 

STA $80 
JSR $EDES 
JSR $C604 
BEQ $EDIC 
LDY #00 


LDA ($94),Y 


BMI $EDB3 
JSR $C8B6 
JMP $EDD4 


Zeiger in Directorypuffer auf Nummer 
der Spur des ersten Dateiblocks setzen 
und Spurnummer holen und merken 
Pufferzeiger auf nächstes Zeichen 


Sektornummer des ersten Dateiblocks 


holen und merken 

Pufferzeiger auf Position des Side- 
Sektor-Zeigers setzen und Spur holen 
Side-Sektorblock verfügbar ? 

Ja, Spurnummer des ersten Side-Sektors 
merken und Sektornummer aus 
Directorypuffer holen 

und merken 

Side-Sektor Blöcke lesen und belegen 
Sektornummer wieder holen 

und merken 

Spurnummer wieder herstellen 

und merken 

Datenblöcke lesen und in BAM belegen 
nächsten gültigen Dateieintrag holen 
alle Dateien überprüft ? 

Pufferzeiger auf erstes Zeichen setzen 
Kennzeichen für Dateityp holen 

wurde Datei ordnungsgemäß geschlossen ? 
nein, Datei löschen 

mit nächstem Eintrag weitermachen 
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[EDA5S/EDC8/EDD1] 

Alle Blöcke einer Datei verfolgen 

EDES 20 5F D5 JSR $D55F Spur- und Sektornummer überprüfen 

EDE8B 20 90 EF JSR $EFYO aktuellen Block in BAM belegen 

EDEB, 20 75 DA UJSR $D475 Block in Puffer lesen 

EDEE A9 00 LDA #$00 Pufferzeiger auf Beginn des 

EDFO 20 C8 D4_JSR $D4C8 Datenblocks setzen 

EDF3 20 37 D1 JSR $0137 erstes Byte aus Datenblock holen und als 
EDF&6 85 80 STA $80 Spurnummer des nächsten Blocks merken 
EDF8 20 37 DI JSR $0137 zweites Byte aus Datenblock holen 

EDFB 85 81 STA $81 und als dazugehörigen Sektor speichern 
EDFD A5 80 LDA $80 Spurnummer auf Kennzeichen für Dateiende 
EDFF DO 03 BNE $EEO4 prüfen; letzter Block der Datei ? 

EE01, 4C 27 D2 JMP $D227 ja, Kanal schließen und beenden 

EE0O4 20 90 EF JSR $EFYO Block in BAM als belegt kennzeichnen 
EE0O7 20 4D D4 JSR $D44D nächsten Datenblock lesen 

EEOA 4C EE ED JUMP $EDEE und Prüfung fortführen 


[Einsprung über Routine C146/EE43:A776] 
Routine für New Befehl (Diskette formatieren) 


EEOD 
 EE1O 
EE12 
EE14 
EE16 
EE19 
EE1B 
EE1D 
EE2O 
EE22 
EE23 
EE24 
EE27 
EE2A 
EE2C 
EEZF 
EE31 
EE34 
EE36 
EE3Y 
EE3B 


l 


20 12 C3 
AS E2 
10 05 
A9 33 
4c c8 Ci 
29 01 
85 7F 
20 9C FF 
AS 7F 


AA 

AC 7B 02 
cc 74 02 
FO 1A 

BY 00 02 
95 12 

B9 01 02 
95 13 

20 07 D3 
Ay 01 

85 80 


JSR $C312 
LDA $E2 
BPL $EE19 
LDA #$33 
JMP $C1C8 
AND #%01 
STA $7F 
JSR $FFIC 
LDA $7F 
ASLA 

TAX 

LDY $027B 
CPY $0274 
BEQ $EE46 


LDA $0200,Y 


STA $12,X 


LDA $0201,Y 


STA $13,X 
JSR $0307 
LDA #801 
STA $80 


Laufwerksnummern aus Befehı holen 
Nummer holen 

Nummer in Ordnung ? 

nein, Fehlermeldung 

133 Syntax Error! ausgeben 

Nummer des Laufwerks herstellen 

und als aktuelles Laufwerk merken 
Laufwerksstatus setzen und LED an 
Nummer des aktuellen Laufwerks holen 
und verdoppeln 

(da 2-Byte-Tabelle 

Zeiger auf Position der ID im Befehl 
mit Länge des Befehlsstring vergleichen 
ist eine neue ID angegeben ? 

ja, erstes Zeichen der ID aus Eingabe- 
puffer holen und übernehmen | 
zweites Zeichen der ID holen 

und merken 

alle Kanäle abschließen 

erste Spur, die formatiert werden soll 
setzen 


42 DO 


88 FE 
TA 02 


6E C6 


D5 FE 
01 01 


D5 FE 


JSR $FF2F 
JMP $A764 
JMP $EE56 
JSR $D042 
LDX $7F 

LDA $0101,X 
CMP $FED5 
BEQ $EE56 
JMP $D572 
JSR $A7C7 
LDA $F9 

TAY 

ASL A 

TAX 

LDA $FE88 
STA $99,X 
LDX $027A 
LDA #$1B 
JSR $C66E 
LDY #812 
LDX $7F 

LDA $FED5 
STA $0101,X 
TXA 

ASL A 

TAX 

LDA $12,X 
STA ($94) ,Y 
INY 

LDA $13,X 
STA ($94) ,Y 
INY 

INY 

LDA #832 
STA ($94),Y 
INY 

LDA $FED5 
STA (894) ,Y 
LDY #802 
STA ($6D),Y 
LDA $FE85 
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Diskette formatieren 

Puffer für BAM löschen 

Sektor 18,0 erzeugen 

Diskette initialisieren 

aktuelles Laufwerk holen und 
dazugehöhriges gelesenes Formatkenn- 
zeichen feststellen 

richtiges Format ? 

nein, Einschaltmeldung ausgeben 

neue BAM errzeugen 

Nummer des aktuellen Puffers 

Nummer verdoppeln 

(da Pufferzeiger aus 

2-Byte-Werten bestehen) 

Position des Disknamens in Sektor 18,0 
holen und in Pufferzeiger übernehmen 
Puffernummer holen 

Länge des Diskettennamens 
Diskettennamen in BAM-Puffer kopieren 
Zeiger in Diskettenname 

aktuelles Laufwerk holen 

Kennzeichen für 1541/1571-Format holen 
und merken 

Nummer des Laufwerks 

holen und 

verdoppeln 

ID des Laufwerks holen und in 

Puffer übernehmen 

Pufferzeiger auf nächstes Byte setzen 
zweites Zeichen der ID holen 

und in Puffer übernehmen 
Pufferzeiger zwei Zeichen 
weiterrücken 

ı2A! als 

Kennzeichen für Format 

in Directoryzeile 

mit Diskettennamen und ID 

übernehmen 

Spurnummer 

in BAM schreiben 

Nummer der Spur für Directory 
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EE94 85 80 STA $80 setzen 

EE9& 20 93 EF JSR $EFY3 BAM-Block in BAM als belegt setzen 
EE99 AY 01 LDA #%01 Nummer des ersten Directoryblocks 
EE9B 85 81 STA $81 festlegen 

EE9D 20 93 EF JSR $EF93 Directoryblock in BAM legen 

EEADO 20 FF EE JSR $EEFF neu erstellte BAM auf Diskette schreiben 
EEA3 20 05 FO JSR $FO05 ” Puffer für BAM löschen 

EEA6 AD 01 LDY #801 Pufferzeiger auf zweites Zeichen setzen 
EEAB A9 FF LDA #$FF Zahl der gültigen Bytes des Puffers 
EEAA 91 6D STA ($6D),Y in Directoryblock schreiben 

EEAC 20 64 DA JSR $D464 Directoryblock 18,1 schreiben 

EEAF C6 81 DEC $81 aktuelle Sektornummer auf Null 

EEB1 20 42 DO JSR $0042 und Sektor lesen 

EEB4 4C 94 C1 JMP $C194 ıIOk! Meldung bereitstellen 
[A6CA/A708] 

Neue 1541-BAM anlegen 

EEB7 20 Di FO JSR $FOD1 Puffer für BAM löschen 

EEBA AO 00 LDY #00 Pufferzeiger initialisieren 

EEBC AY 12 LDA #812 Zeiger auf Spurnummer des nächsten 
EEBE 91 6D STA ($6D),Y Blocks auf Spur 18 richten 

EECO C8 INY Pufferzeiger auf Sektornummer setzen 
EEC1 93 TYA (1) 

EEC2 91 6D STA ($6D),Y Sektornummer 1 übernehmen 

EEC4 C8 INY aktuellen Pufferzeiger 

EEC5 C8 INY um drei Zeichenpositionen 

EEC6, C8 INY weiterrücken 

EEC7 A9 00 LDA #800 Zwischenspeicher zum 

EEC9 85 6F STA $6F Erstellen der Liste 

EECB 85 70 STA $70 der belegten Blöcke 

EECD 85 71 STA $71 Löschen 

EECF 98 TYA Nummer der Spur 

EEDO 4A LSR A festlegen, für die die 

EEDI 4A _ LSR A Blockbelegung ermittelt wird 

EED2 20 4B F2 JSR $F24B maximale Zahl der Sektoren feststellen 
EED5 91 6D STA ($6D),Y und in BAM übernehmen 

EED7 C8 INY Pufferzeiger auf nächstes Byte 

EED8_ AA TAX zähler für Zahl der Sektoren setzen 
EED9Y 38 SEC Bitflag für 'Sektor belegt! setzen 
EEDA 26 6F ROL $6F Bit in 24-Bit-Zwischenspeicher 


EEDC 26 70 ROL $70 der belegten Blöcke der Spur 
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EEDE 26 71 ROL $71 ablegen 

EEEO CA DEX nächsten Sektor in BAM setzen 

EEE1, DO F6 BNE $EEDY schon alle Sektoren der Spur ? 

Eee31 B5 6F LDA $6F,X ja, Inhalt des Zwischenspeichers 
EEE5 91 6D STA ($6D),Y in Puffer für BAM schreiben 

EEE7_ C8 INY Pufferzeiger auf nächstes Byte 

EEE8 E8 INX Zähler für Zahl der Zwischenspeicher 
EEE9 EO 03 CPX #803 mit drei vergleichen 

EEEB 90 F6 BCC $EEE3 alle Zwischenspeicherbytes kopiert ? 
EEED CO 90 CPY #90 ja, Pufferzeiger mit $90 vergleichen 
EEEF 90 D6 BCC $EEC7 BAM-Bits aller Spuren festgelegt ? 
EEF1 4C 75 DO JMP $D075 ja, 'Blocks Free! berechnen 


[C8A7/DB26/DD87/EA33/EEFF:EDAD ,EEAO] 
BAM korregieren und auf Diskette zurückschreiben 


EEF4 20 93 DF JSR $DFY3 aktuelle Puffernummer holen 

EEF7 AA TAX Nummer des dazugehörigen 

EEF8 BD 5B 02 LDA $025B,X Jobcodes holen 

EEFB 29 01 AND #801 daraus Laufwerksnummer feststellen 
EEFD| 85 7F STA $7F und als aktuelles Laufwerk merken 
EEFFZ A4 TF LDY $7F Zum Laufwerk passendes Flag 

EFO1 BY 51 02 LDA $0251,Y für 'BAM ungültig! holen 

EFO4 DO 01 BNE $EFO7 muss eine neue BAM erzeugt werden 
EFO6, 60 RTS nein, zurück zur aufrufenden Routine 
Ero7l A9 00 LDA #800 Flag für 'BAM ungültig! 

EFO9 99 51 02 STA $0251,Y Löschen 

EFOC 20 3A EF JSR $EF3A BAM in Puffer holen und Zeiger setzen 
EFOF AS 7F LDA $7F aktuelles Laufwerk holen 

EF11 OA ASL A und Nummer verdoppeln 

EF12 48 PHA Wert merken 

EF13 20 A5 FO JSR $FOA5 Zwischenspeicher in BAM kopieren 
EF16 68 PLA Lauwerkszeiger wieder 

EF17_ 18 CLC holen 

EF18 69 01 ADC #801 nächsten ZS anwählen 

EFIA 20 A5 FO JSR $FOAS Zwischenspeicher in BAM übertragen 
EFID A5 80 LDA $80 Nummer der aktuellen Spur 

EFIF 48 PHA retten 

EF20 A9Y 01 LDA #%01 Nummer auf Spur 1 

EF22. 85 80 STA $80 setzen 

er241 DA ASL A mal vier nehmen 


 EF25 0A ASL A (da 4 BAM-Bytes pro Spur) 
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EF26 85 6D STA $6D Position der Spurbytes merken 
EF28 20 37 A9_ JSR $A937 Zahl der freien Blocks überprüfen 
. EF2B E6 80 INC $80 Zeiger auf nächste Spur setzen 
EF2D A5 80 LDA $80 und holen 

EF2F CD AC 02 CMP $O2AC Nummer der letzten Spur +1 

EF32 90 FO BCC $EF24 letzte Spur erreicht ? 

EF34 68 PLA alte Spurnummer 

EF35 85 80 STA $80 wieder einrichten 

EF37 4C 8D A5 JMP $A58D BAM auf Diskette schreiben 

LASAA/A738/DO75/EFOC] 

BAM lesen und Pufferzeiger setzen 

EF3A 20 OF Fi JSR $FIOF Kanalnummer für 'BAM lesen! 

EF3D AA TAX holen und merken 

EF3E 20 DF FO JSR $FODF dazugehörigen Puffer belegen 

EF41 A6 FY LDX $F9 Nummer des Puffers holen 

EF43 BD EO FE LDA $FEEO,X und Speicheradresse des Puffers 
EF46 85 6E STA $6E feststellen 

EF48 AY 00 LDA #800 Speicheradresse dann in 

EFAA 85 6D STA $6D Zeiger $6D/$6E übernehmen 

EF4C 60 RTS zurück zur aufrufenden Routine 
[C814/D338B] 

Anzahl der 'Blocks Free! holen 

EF4AD A6 7F LDX $7F Nummer des aktuellen Laufwerks 
EF4F BD FA 02 LDA $02FA,X Zahl der freien Blöcke (Low-Byte) 
EF52 8D 72 02 STA.$0272 übernehmen | 

EF55 BD FC 02 LDA $02FC,X Zahl der freien Blöcke (High-Byte) 
EF5S8 8D 73 02 STA $0273 übernehmen 

EFSB 60 RTS zurück zur aufrufenden Routine 
EFSC 20 FI EF JSR $EFFI unbenutzter Programmrest aus 1541 DOS 


[C87D/CBAD/CCFB/EF62:AB4B/EFTF:AB6F] 
Sektor freigeben 


EFSF. 4C 27 A7  JMP $A727 Sektor in 1571-BAM freigeben 
Er621 38 SEC Flag für 'Sektor schon frei! 

EF63 DO 22 BNE $EF87 ist der Block schon freigegeben ? 
EF65 B1 6D LDA ($6D),Y nein, Bitmuster der Spur holen 
EF67 1D E9Y EF ORA $EFEY,X Sektor freigeben (Bit=1) 


EF6A 91 6D STA ($6D),Y und wieder in BAM übernehmen 
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EF6C 20 88 EF JSR $EF88 Flag für 'BAM schreiben! setzen 
EF6F A4 6F LDY $6F Zeiger auf aktuelles BAM-Byte 
EF71 18 CLC Flag für 'Sektor freigegeben' 
EF72 Bi 6D LDA ($6D),Y Zahl der freien Blocks der Spur 
EF74 69 01 ADC #%01 erhöhen 
EF76 91 6D STA ($6D),Y und wieder setzen 
EF78 A5 80 LDA $80 „ Nummer der bearbeiteten Spur holen und 
EFTA CD 85 FE CMP $FEB5 mit Nummer für Directoryspur vergleichen 
EF7D, FO 3B BEQ $EFBA identisch ? 
| er7rl FE FA 02 INC $02FA,X nein, Zahl der Blocks der Diskette +1. 
EF82 DO 03 BNE $EF87 ist ein Übertrag entstanden 
EF84_ FE FC 02 INC $02FC,X Übertrag berücksichtigen 
EF87 60 RTS zurück zur aufrufenden Routine 


[LA8BSF/ABYS/EF6C/EFYF] 
Flag für 'BAM auf Diskette ungültig! setzen 


EF88 A6 7F LDX $7F aktuelles Laufwerk feststellen 
EF8A A9Y 01 LDA #%01 und dazugehöriges Flag für 
EF&8C 9D 51 02 STA $0251,X ıBAM ungültig! setzen 

EF8F 60 RTS zurück zur aufrufenden Routine 


[CD13/EDEB/EEO4/FIYA/FIF2/EFB2:ABA5] 
Sektor in der BAM belegen 


EF90O 20 FI EF JSR $EFFI letzte BAM-Änderung auf Disk schreiben 

EF93 4AC 74 AB JUMP $A874 Sektor in 1571 BAM belegen 

EF96& FO 36 BEQ $EFCE ist Sektor schon belegt ? 

EF98 B1 6D LDA ($6D),Y nein, Byte mit Bitmuster für belegte 
Blocks 

EFYA 5D E9Y EF EOR $EFEI,X holen und Sektor belegen (Bit=0) 

EF9D 91 6D STA ($6D),Y BAM-Byte wieder merken 

EF9F 20 88 EF JSR $EF88 Flag für 'BAM schreiben! setzen 

EFA2 A4 6F LDY $6F Zeiger auf aktuelles BAM-Byte 

EFA4 B1 6D LDA ($6D),Y Zahl der freien Sektoren 

EFA6 38 SEC der Spur 

EFA7’_ E9Y 01 SBC #801 erniedrigen und wieder 

EFA9 91 6D STA ($6D),Y in BAM schreiben 

EFAB A5 80 LDA $80 Nummer der bearbeiteten Spur mit 

EFAD CD 85 FE CMP $FE85 Nummer der Directoryspur vergleichen 

EFBO, FO 08 BEQ $EFBD identisch ? 

Erg2l BD FA 02 LDA $02FA,X Zahl der freien Blocks der Diskette 


EFB5 DO 03 BNE $EFBA entsteht ein Borgen ? 
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EFB7_ DE FC 02 DEC $02FC,X ja, Highbyte des Zählers erniedrigen 
EFBA" DE FA 02 _ DEC $02FA,X Zahl der freien Blocks -1 
EFBD_ BD FC 02 LDA $02FC,X Zahl der freien Blöcke (High-Byte) 
EFCO DO 0C BNE $EFCE kleiner als 255 ? 
EFC2 BD FA 02 LDA $02FA,X ja, Zahl der freien Blöcke (Low-Byte) 
EFC5 C9Y 03 CMP #503 mit drei vergleichen 
EFC7 BO 05 BCS $EFCE weniger als drei Blöcke frei ? 
EFC9 AY 72 LDA #$72 ja, Fehlermeldung 
EFCB_ 20 C7 E6& JSR $E6C7 ı72 Disk Full! ausgeben 
EFCE> 60 RTS zurück zur aufrufenden Routine 
[A845/A87B] 
BAM-Pufferzeiger auf Bit für aktuellen Sektor setzen und Bit holen 
EFCF 20 11 FO UJSR $F011 Zeiger auf Beginn der Bitmuster für 
EFD2 98 TYA Spur errechnen 
EFD3 85 6F STA $6F und merken 

EFDS A5 81 LDA $81 Nummer des zu bearbeitenden 
EFD7 4A LSR A Sektors holen und 
EFD8 4A LSR A durch acht teilen (8 Bits pro Byte) 
EFDI 4A LSR A um Nummer des BAM-Bytes zu erhalten 
EFDA 38 SEC dazu eins und die 
EFDB 65 6F ADC $6F ermittelte Zeigerposition addieren 
EFDD A8 TAY und merken 
EFDE A5 81 LDA $81 aktuelle Sektornummer holen 
EFEO 29 07 AND #$07 Nummer des Bits im BAM-Byte errechnen 
EFE2 AA TAX und merken 
EFE3 B1 6D LDA ($6D),Y Byte aus der BAM holen und 
EFE5E 3D E9Y EF AND $EFEY,X Bit des Sektors isolieren 
EFE8 60 RTS zurück zur aufrufenden Routine 


[AAFF/AS6E/ABSY/ABSF/D2BF/D2CB/EF67/EFYA/EFES/F2ZF] 
EFE9_ 01 02 04 08 10 20 40 80 Masken um BAM-Bits zu isolieren 


[EFSC/EFYO] 

BAM auf Diskette schreiben 

EFF1 A9 FF LDA #$FF Wert für 'BAM ungültig! Flag setzen 
EFF3_ 2C F9 02 BIT $02F9 Zustand des Flags prüfen 

EFF6 FO 0C BEQ $F004 gleich Null ? 

EFF8 10 OA BPL $F004 nein, Bit 7 gelöscht ? 

EFFA 70 08 BVS $F004 nein, Bit 6 gelöscht ? 


EFFC A9 00 LDA #00 ja, Flag für 'BAM ungültig, neue BAM 
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EFFE 8D F9 02 STA $02F9 schreiben! zurücksetzen 
F001_ 4C OD A5 JMP $A5S8D BAM auf Diskette zurückschreiben 
F004” 60 RTS zurück zur aufrufenden Routine 


[A764 /BF3C/EEA3/F008:A4AD ‚A74C] 
Puffer für BAM löschen 


F005_ 20 25 A6 JSR $A625 Zeiger auf BAM-Puffer setzen 

F008”° AO 00 LDY #$00 Zeiger auf Position im Puffer löschen 
FOOA. 98 TYA Wert mit dem Puffer gefüllt wird (0) 
FOOB 91 6D STA ($6D),Y in Puffer schreiben 

FOOD C8 INY Zeiger auf nächstes Byte setzen 

FOOE DO FB BNE $FOOB war das letztes Byte des Puffers ? 
F010 60 RTS ja, zurück zur aufrufenden Routine 


[LA8BO/AYOC/AY25S/EFCF/F130/FO1B:AA2A] 
Zeiger für BAM-Zwischenspeicher setzen 


FO11 AS 6F LDA $6F Zeropageadressen $6F/$70 

F013_ 48 PHA werden als Zwischenspeicher 

FO14 AS 70 LDA $70 für die Routine verwendet und 

F016 48 PHA deshalb gerettet 

F017 A6 7F LDX $7F aktuelle Laufwerksnummer 

FO19. B5 FF LDA $FF,X und dazugehörigen Laufwerksstatus holen 
Ä ro1g! FO 05 BEQ $F022 ist das Laufwerk bereit ? | 

FOID AY 74 LDA #%74 nein, Fehlermeldung 

FOIF, 20 48 E6 JSR $E648 ı74 Drive Not Ready! ausgeben 

Fo22! 20 OF Fi JSR $FIOF Puffer- und Kanalnummer feststellen 

F025 85 6F STA $6F Kanalnummer übernehmen 

F027 8A TXA Puf fernummer 

F028 OA ASL A verdoppeln 

F029 85 70 STA $70 und übernehmen 

FO2B AA TAX | Wert merken 

FO2C A5 80 LDA $80 Nummer der aktuellen Spur 

FO2E DD MP 02 CMP $0290,X auf Spurdaten in Zwischenspeicher testen 

F031 FO OB BEQ $FO3E identisch ? 

F033 EB INX nein, auf nächsten Zwischenspeicher 

F034 86 70 STX $70 wechseln 

F036 DD 9D 02 CMP $0290,X mit Spur des ZS vergleichen 

F039 FO 03 BEQ $FO3E sind Daten hier enthalten ? 

FO3B_ 20 5B FO JSR $FOSB nein, Spurdaten in Speicher holen 

FO3E AS 70 LDA $70 Zeiger auf Zwischenspeicher 


FO40O A6 7F LDX $7F aktuelles Laufwerk 
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$029B,X 


Pufferzeiger merken 

Wert vervierfachen 

(da 4 Bytes pro Eintrag) 
neuen BAM Zeiger 

auf Position 

des Zwischenspeichers 
einrichten 

High-Byte des Zeigers 
setzen 

Zeiger auf aktuelles Byte 
Zeropageadressen 

$6F und $70 wieder 

auf den alten Wert 
zurücksetzen 

zurück zur aufrufenden Routine 


FO42 9D 9B 02 STA 
FO45 OA ASL 
FO4L6 OA ASL 
FO47 18 CLC 
FO48 69 A1 ADC 
FO4A 85 6D “STA 
FO4C A9 02 LDA 
FO4GE 69 00 ADC 
F050 85 6E STA 
F052 AO 00 LDY 
FO54 68 PLA 
F055 85 70 STA 
F057 68 PLA 
F058 85 6F STA 
FOSA 60 RTS 
[FO3B] 

BAM-Bytes aus BAM in 
FOSB A6 6F LDX 
FO5D 20 DF FO JSR 
F060 AS 7F LDA 
F062 AA TAX 
F063 OA ASL 
F064 1D 9B 02 ORA 
F067 49 01 EOR 
F069 29 03 AND 
FO6B 85 70 STA 
FO6D 20 A5 FO JSR 
F07O AS FY LDA 
F072 OA ASL 
F073 AA TAX 
FO74 AS 80 LDA 
F076 DA ASL 
F077 OA ASL 
F078 95 99 STA 
FOTA AS 70 LDA 
FO7’C OA ASL 
FO7TD OA ASL 
FO7TE, A8 TAY 
Forr! Ai 99 

F081 99 A1 02 STA 


Zwischenspeicher kopieren 


$6F 
$FODF 
$7F 


A 
$029B,X 
#801 
#503 


LDA ($99,X) 


$02A1,Y 


Nummer des Kanals holen 

BAM von Diskette lesen 

aktuelle Laufwerksnummer 

holen und merken 

Nummer verdoppeln (da 2 Laufwerke) 
alten ZS Nummer einrechnen 

auf anderen Zwischenspeicher 
umschalten 

und neuen Zeiger merken 

aktuellen ZS-Inhalt wieder in BAM zurück 
Nummer des aktuellen Puffers 
verdoppeln (da Zeiger 2-Byte-Werte 
sind) und merken 

Nummer der aktuellen Spur 
vervierfachen 

(da 4 BAM-Bytes pro Spur) 

Wert in Puffer schreiben 

Zeiger auf aktuellen ZS 
vervierfachen 

(da 4 verschiedene ZS) 

und setzen 

Byte aus BAM holen 

und in Zwischenspeicher schreiben 
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F084 A9 O0 LDA #%$00 Werte in BAM 
F086 81 99 STA ($99,X) Löschen 
F088 F6 99 INC $99,X Zeiger auf nächstes Byte 
FO8SA C8 INY Zeiger auf nächstes ZS Zeichen 
FO8B 98 TYA Zeiger auf 
FO8C 29 03 AND #03 Wert 4 prüfen 
FO8SE DO EF BNE $FO7F alle Bytes in ZS kopiert ? 
FO9O A6 70 LDX $70 ja, Nummer des aktuellen ZS holen 
F092 A5 80 LDA $80 Nummer der dazugehörigen Spur 
FO94 90 9D 02 STA $0290,X vermerken | 
F097 AD F9 02 LDA $02F9 Flag für 'BAM ungültig! 
FO9A DO 03 BNE $FO9F hat Änderung in BAM stattgefunden ? 
FO9C, AC 80 AL JMP $A58D ja, BAM auf Diskette schreiben 
Fogr 09 80 ORA #$80 Flag für 'BAM 
FOAI 8D F9 02 STA $02F9 setzen 
FOA4 60 RTS zurück zur aufrufenden Routine 
[EF13/EF1A/FO6D] 
BAM-Bytes aus Zwischenspeicher in BAM kopieren 
FOA5 A8 TAY Nummer des aktuellen ZS 
FOA& BY 9D 02 LDA $029D,Y Spurnummer des Z2S holen 
FOA9_| FO 25 BEQ $FODO ist ZS belegt ? 
FOAB 48 PHA ja, Spurnummer merken 
FOAC A9Y 00 LDA #800 Zwischenspeicher 
FOAE 99 9D 02 STA $029D,Y freigeben 
FOB1 A5 F9 LDA $F9 Nummer des aktuellen Puffers 
FOB3 OA ASL A verdoppeln (da Zeiger aus 2-Byte-Werten 
FOB4 AA TAX besteht) 
FOB5 68 PLA Spurnummer wieder holen 
FOB6 DA ASL A und vervierfachen 
FOB7 OA ASL A (da 4 BAM-Bytes pro Spur) 
FOB8 95 99 STA $99,X Zeiger auf Spur setzen 
FOBA 98 TYA Nummer des ZS holen 
FOBB OA ASLA und vervierfachen 
FOBC OA ASL A (da vier Zwischenspeicher) 
. FOBD, Aß TAY und merken 
Foße | B9 AI 02 LDA $02A1,Y Byte aus BAM Z2S holen 
FOC1 81 99 STA ($99,X) und in Puffer schreiben 
FOC3 A9Y 00 LDA #%00 Wert in Zwischenspeicher 
FOC5 99 A1 02 STA $02A1,Y Löschen 


FOC8 F6&6 99 INC $99,X Zeiger auf nächstes Byte setzen 


Das große Floppybuch_1571/70 505 


FOCA C8 INY nächstes 2S Zeichen anwählen 

FOCB 98 TYA prüfen ob schon 

FOCC 29 03 AND #$03 alle 4 Bytes übertragen 

FOCE, DO EE BNE $FOBE noch weitere Bytes kopieren ? 

FODO 60 RTS nein, zurück zur aufrufenden Routine 


[C8F5/DO42/EEB7/BF33] 
Zeiger auf Position der aktuellen Spur in BAM löschen 


FOD1 AS 7F LDA $7F aktuelles Laufwerk holen 

FOD3 DA ASL A verdoppeln (da 2 Laufwerke möglich) 
FOD4 AA TAX und merken 

FOD5 A9 00 LDA #$00 Spurwert O als Flag für 'BAM-Zeiger 
FOD7 9D 9D 02 STA $029D,X inaktiv 'setzen 

FODA E38 INX und damit die Zeiger 

FODB 9D 9D 02 STA $0290,X Löschen 

FODE 60 RTS zurück zur aufrufenden Routine 


[LA4BO/C7BA/EF3E/FOSD] 
BAM von Diskette lesen 


FODF B5 A7 LDA $A7,X Puffernummer holen und mit Flagwert 
FOE1 CY FF CMP #SFF für '!Puffer frei' vergleichen 
FOE3 DO 25 BNE $F10A identisch ? 

FOE5S 8A TXA ja, Nummer des Kanals 

FOE6 48 PHA merken 

FOE7 20 8E D2 JSR $D28E Puffernumer holen 

FOEA AA TAX und merken 

FOEB 10 05 BPL $FOF2 ist ein Puffer frei ? 

FOED AY 70 LDA #70 nein, Fehlermeldung 

FOEF, 20 C8 C1 JSR $C1C8 ı70 No Channel! ausgeben 

For2] 86 F9 STX $F9 ‚Nummer aktuellen Puffers setzen 
FOF4 68 PLA Kanalnummer wieder holen 

FOFS AB TAY und merken 

FOF6 8A TXA Puffernummer holen und Flag für 
FOF7 09 80 ORA #580 ıPuffer gerade nicht aktiv' 
FOF9 | 99 A7 00  STA $00A7,Y in Tabelle eintragen 

FOFC OA ASLA Puffernummer verdoppeln (da Zeiger auf 
FOFD AA TAX 2-Byte Werte) 

FOFE AD 85 FE LDA $FE85 Spur des Directory 

F101 95 06 STA $06,X als Spur für Job setzen 

F103 A9 00 LDA #%00 Sektornummer 0 


F105 95 07 STA $07,X in für Job setzen 
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F107, 4C 42 A5 JMP $A667 BAM von Diskette lesen 

F1I0A 29 OF AND #S$0F Puffernummer herstellen und 
F10C 85 FY STA $F9 setzen 

FIOE 60 RTS zurück zur aufrufenden Routine 


[DODE/EF3A/FO22/F119] 
Nummer des Kanals für BAM festlegen (in Akku) 


FIOF A9Y 06 LDA #806 Kanalnummer für BAM-Kanal bei Laufwerk 1 
F111 A6 7F LDX $7F aktuelles Laufwerk holen 

F113 DO 03 BNE $F118 Laufwerk 0 ? 

F115 18 CLC ja, Flag für Laufwerknummer 

F116, 69 07 ADC #%$07 und Nummer des Kanals für BAM setzen 
F118° 60 RTS zurück zur aufrufenden Routine 


[AAAD/C7B7/C883/C8F8] 
Nummer des Kanals für BAM festlegen (in X-Register) 


F119 20 OF Fi JSR $FIOF Nummer des Kanals festlegen 
FiiC AA TAX und in X-Register merken 
F11D 60 RTS zurück zur aufrufenden Routine 


[DIA6&/DDID/E3AY/E3BC/E4AE] 
Nächsten freien Block in BAM suchen 


FIIE 20 3E DE JSR $DE3E aktuelle Spur- und Sektornummer holen 
F121 A9 03 LDA #$03 BAM Zeiger 

F123 85 6F STA $6F setzen 

F125 A9 01 LDA #$01 Flag für 'BAM ungültig, neue BAM 
F127_0D F9 02 ORA $02F9 auf Diskette schreiben! 

F12A, 8D F9 02 STA $02F9 setzen 

F12D 4C DB A8 JMP $A8DB nächsten freien Sektor suchen 


[ABES/F138:A8FD , A902] 
nächsten freien Sektor suchen 
F130 20 11 FO JSR $F011 


F133 68 PLA Zeiger wieder holen 

F134 85 6F STA $6F und setzen 

F136_ Bi &D LDA ($6D),Y Zahl der noch freien Sektoren der Spur 
F138° DO 39 BNE $F173 ist noch ein Sektor frei ? 

F13A AS 80 LDA $80 nein, aktuelle Spurnummer holen und mit 
F13C CD 85 FE CMP $FE85 Nummer f. Directoryspur vergleichen (18) 
F13F FO 19 BEQ $F15A identisch ? 


F141 90 1C BCC $Fi5SF nein, aktuelle Spur kleiner als 18 ? 
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F143 E6 80 INC $80 nein, Spurnummer erhöhen (Diskette wird 
F1455 A5 80 LDA $80 von 18 aus nach innen und außen belegt) 
F147_ CD AC 02 CMP $02AC und mit maximaler Spur vergleichen 
F14A DO EI BNE $F12D größte Spur erreicht ? 
F14C AE 85 FE LDX $FE85 ja, Spuren nach außen abfahren und 
FI4F CA DEX Directoryspur -1 als 
F150 86 80 STX $80 aktuelle Spurnummer festlegen 
F152 A9 00 LDA #00 Sektorzähler 
F154 85 81 STA $81 Löschen 
F156 C6 6F DEC $6F Zahl der freien Blocks 
. F158, DO D3 BNE $F12D noch ein Sektor frei ? 
F15A” A9Y 72 LDA #72 nein, Fehlermeldung 
F1i5C. 20 C8 C1 JSR $C1C8 ı72 Disk Full! ausgeben 
Fisrl C6 80 DEC $80 Spur eine Spur nach außen setzen 
F161 DO CA BNE $F12D äußerste Spur erreicht (0) ? 
F163 AE 85 FE LDX $FE85 ja, Nummer der Directoryspur holen 
F166 E8 INX und eine Spur weiter innen als 
F167_ 86 80 STX $80 aktuelle Spurnummer übernehmen 
F169 A9 00 LDA #$00 Sektorzähler 
F16B 85 81 STA $81 Löschen (0) 
F16D C6 6F DEC $6F Zahl der freien Sektoren 
F16F DO BC BNE $F12D noch ein Sektor frei ? 
F171 FO E7 BEQ $F15A nein, Fehler 'Disk Full! ausgeben 
 LF138] 
Nächsten Sektor auf Spur suchen 
F173 A5 81 LDA $81 Nummer des aktuellen Sektors 
F175 18 CLC dazu den optimalen Sektorversatz für 
F176 65 69 ADC $69 zwei Sektoren addieren 
F178 85 81 STA $81 und als aktuelle Sektornummer merken 
Fi7A AS 80 LDA $80 Nummer der aktuellen Spur 
Fi7C 20 4B F2_ UJSR $F24B Zahl der Sektoren, die die Spur 
FI7TF 8D 4E 02 STA $024E umfaßt feststellen 
F182 8D 4D 02 STA $024D und merken 
F185 C5 81 CMP $81 mit der neuen Sektornummer vergleichen 
F187_ BO 0C BCS $F195 ist die Nummer zu groß ? 
F189 38 SEC ja, Nummer des 
Fi8A A5 81 LDA $81 aktuellen Sektors holen 
F18C ED 4E 02 SBC $024E und die maximale Sektorenanzahl abziehen 
FI8F 85 81 STA $81 Ergebnis als neue Sektornummer merken 
F191 FO 02 BEQ $F195 ist Sektor 0 angewählt worden ? 
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F193_ C6 81 DEC $81 nein, dann Sektorversatz korregieren 
F195” 20 FA FI JSR $FiIFA nächsten freien Sektor suchen 
F198, FO 03 BEQ $F19D gefunden ? 
FI9A, 4C 90 EF JMP $EFYO ja, Sektor in der BAM belegen 
F19D ° A9 00 LDA #$00 Sektornummer 0 
FiIY9F 85 81 STA $81 setzen 
FIAI 20 FA Fi JSR $FIFA nächsten freien Sektor suchen 
FiA4 DO F4 BNE $F19A gefunden ? 
FIA6 4C F5 Fi JMP $FiF5 nein, Fehler '71 Dir Error! ausgeben 
[DCDA] 
nächsten optimalen Sektor belegen 
F1A9 AY 01 LDA #801 Flag für 'BAM ungültig! 
FIAB OD F9 02 ORA $02F9 (auf Diskette zurückschreiben) 
FIAE 8D F9 02 STA $02F9 setzen 
F1B1 A5 86 LDA $86 Zeropageadresse wird von Routine 
FiB3_ 48 PHA verwendet und deshalb gerettet 

" F1B4 A9Y 01 LDA #801 Zeiger auf Spurnummer 
FiB6, 85 86 STA $86 initialisieren 
FiBsl AD 85 FE LDA $FE85 Nummer der Directoryspur holen 
F1BB 38 SEC Zähler für aktuelle Spur davon abziehen 
FiBC E5 86 SBC $86 um Spurnummer ober oder unterhalb 
FiBE 85 80 STA $80 Spur 18 zu erhalten und merken 
F1CO 90 09 BCC $FiCB ist Spurnummer kleiner 18 ? 
Fic2 FO 07 BEQ $FICB nein, ist sie gleich 18 ? 
F1IC4 4C 05 A9_ JUMP $A905 nein, BAM Zeiger auf Bit des Sektors 
[AYOF/FIC9:AY1B] 
Spur für nächsten freien Sektor festlegen 
F1C7_ B1 6D LDA ($6D),Y Zahl der freien Blocks der Spur holen 
F1C9_ DO 1B BNE $FiIE6 sind noch Sektoren frei ? 
FiICB” AD 85 FE LDA $FEd5 nein, Nummer der Directoryspur 
FICE 18 CLC holen und Zähler für Spur dazu addieren 
FICF 65 86 ADC $86 um Spur oberhalb der Directoryspur 
F1iD1 85 80 STA $80 als aktuelles Spurnummer zu erhalten 
FiD3 E6 86 INC $86 Zähler für Spurnummer auf nächste Spur 
F1D5 CD AC 02 CMP $O2AC mit Nummer der größten Spur vergleichen 
F1D8 90 05 BCC $FiDF maximale Spurnummer erreicht ? 
FIDA A9 67 LDA #$67 ja, Fehlermeldung 
FIDC. 20 45 E6 JSR $E645 167 Illegal Track or Sector! ausgeben 
FiIDF 4C 1E A9 JUMP $AYIE nächsten freien 1571 Sektor suchen 
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[A928/FIEA:AY34] 

freien Sektor belegen 

FIE2, B1 6D LDA ($6D),Y Zahl der freien Blocks der Spur holen 
FIE4, FO D2 BEQ $F1B8 noch ein Sektor frei ? 

FIE6 68 PLA Ja, Zeropageadresse $86 

FIE7 85 86 STA $86 wieder einrichten 

FIE9_ A9 00 LDA #800 Nummer des aktuellen Sektors 

FIEB 85 81 STA $81 löschen. 

FIED 20 FA Fi JSR $FiIFA und nächsten freien Sektor suchen 
FIFO FO 03 BEQ $FiF5 gefunden ? 

FIF2 4C 90 EF JMP $EFYO ja, Sektor in BAM belegen und zurück 
FiIF5* A9 71 LDA #$71 Fehlermeldung 

FIF7T 20 45 E6 JSR $E645 ı71 Dir Error! ausgeben 


[CDO9/CD27/F195/FIAN/FIED/FIFD:A8B3] 
nächsten freien Sektor der Spur holen 


FIFA 
FIFD 
FIFE 
FIFF 
F202 
F204 
- F207 
F20A 
F20B 
F2OD 
F2OF 
F212 
F214 
F217 
F219 
F21B 
F21D 
F2IF 


l 


4C AY9 AB 
98 

48 

20 20 F2 
A5 80 

20 4B F2 
&8D 4E 02 
68 

85 6F 

A5 81 

CD 4E 02 
BO 09 

20 D5 EF 
DO 06 

E6 81 

DO FO 

A9 00 
60 


[A9YZE/FIFF] 


Zahl der freien Blocks in BAM für 


F220 
F222 
F223 


AS 6F 
48 
A9 00 


JMP $A8AY 
TYA 

PHA 

JSR $F220 
LDA $80 
JSR $F220 
STA $024E 
PLA 

STA $6F 
LDA $81 
CMP $024E 
BCS $F21D 
JSR $EFD5 
BNE $F21F 
INC $81 
BNE $F20D 
LDA #$00 
RTS 


LDA $6F 
PHA 
LDA #$00 


nächsten freien Sektor der Spur suchen 
Zeiger auf Position des Bitmusters der 
belegten Blöcke merken 

Zahl der freien Blocks prüfen 

Nummer der aktuellen Spur 

Zahl der Sektoren auf dieser Spur 
holen und merken 

Zeiger auf Bitmuster in BAM 

wieder holen und merken 


Nummer des aktuellen Sektors 


mit Gesamtzahl der Sektoren vergleichen 
Sektornummer kleiner ? 

ja, Bit für Sektor aus BAM holen 

ist der Sektor frei ? 

nein, Zeiger auf nächsten Sektor setzen 
immer Sprung nach $F20D 

Flag für 'kein Sektor auf Spur frei! 
zurück zur aufrufenden Routine 


jede Spur überprüfen 

Zeropageadresse $6F wird als Zwischen- 
speicher verwendet und deshalb gerettet 
zähler für freie Blocks 
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F225 85 6F STA $6F löschen | 

F227 AC 86 FE LDY $FE86 Anzahl der BAM-Bytes pro Spur holen 
F22A, 88 DEY und Zahl der Bytes für Bitmuster bilden 
F22g A2 07 LDX #807 Zähler für Zahl der Bits pro Byte 

F220°° B1 6D LDA ($6D),Y Byte aus BAM holen und Bit | 

F22F 30 E9 EF AND $EFEY,X auf das der Bitzähler zeigt isolieren 
F232 FO 02 BEQ $F236 ist der Block belegt ? 

F234. E6 6F INC $6F nein, Zähler der freien Blocks 

2361 CA DEX erhöhen und nächstes Bit anwählen 

F237 10 F4 BPL $F22D alle Bits getestet gezählt ? 

F239 88 DEY ja, Zeiger auf nächstes BAM-Byte 

F23A DO EF BNE $F22B alle BAM-Bytes der Spur geprüft ? 

F23C B1 6D LDA ($6D),Y ja, in BAM vermerkte Zahl der freien 
F23E C5 6F CMP $6F Blöcke mit errechneter Zahl vergleichen 
F240 DO 04 BNE $F246 identisch ? 

F242 68 PLA ja, Zeropageadresse $6F 

F243 85 6F STA $6F wieder einrichten 

F245. 60 RTS zurück zur aufrufenden Routine 

F246 A9 71 LDA #$71 Fehlermeldung 

F248 20 45 E6& UJSR $E645 ı71 Dir Error! ausgeben 


[D540/0568/EED2/F17C/F204] 
Anzahl der Sektoren einer Spur holen 
(Im Akku muss die Nummer der Spur stehen) 


F24B_ 20 AF A7  JSR $A7AF Zahl der Spurzonen holen 

F24E DD D6 FE CMP $FED6,X maximale Spur der Zone mit aktueller 
F251 CA DEX Spur vergleichen und Zone wechseln 

F2e52 BO FA BCS $F24E ist die Spur größer als max. Zonenspur ? 
F254 BD DI FE LDA $FED1,X ja, Anzahl der Sektoren in der Spurzone 
F257 60 RTS zurück zur aufrufenden Routine 
[CB12/CDA3/E7A8] 

F258 60 RTS keine Funktion 

[BF6C/F263:A9FF] 

Diskcontroller-Reset durchführen 

F259 A9 6F LDA #86F "Sync! und 'Write protect! als 

F25B 8D 02 IC STA $1C02 Eingangsleitungen schalten 

FOSE 29 FO AND #8F0 und deren Werte im 

F260_ 4C F8 A9 JUMP $A9FB Patch (= Korrektur) 


F263 AD OC IC LDA $iC0C Peripheriekontrollregister setzen : 
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F266 29 FE AND #%FE CA1 'Byte Ready! auf negative Flanke 
F268 09 OE ORA #$0E CA2 !SOE! auf Ausgang High 
F26A 09 EO ORA #$E0 CB2 (Kopf) auf Lesen schalten 
F26C 8D OC IC STA $ICOC Register aktivieren 
F26F A9 41 LDA #$41 PB7 (Sync) als Ausgang und aktiviert 
F271 8D OB 1C STA $1CO0B Eingangszwischenspeicher für Kopfdaten 
F274 A9 00 LDA #$00 zZählerwert für Interrupttakt in Timer 1 
F276 8D 06 IC STA $1C06 setzen, sodaß die 
F279 A9 20 LDA #%20 Diskcontrollerroutine alle 8 ms 
F27B 8D 07 1C  STA $1C07 aufgerufen wird 
F27E 8D 05 IC STA $1C05 und Timer 1 starten 
F281 A9Y 7F LDA #$7F Interruptflags 
F283 8D OE 1C STA $1C0E Löschen 
F286 A9 CO LDA #$C0 Interrupt die sich durch 
F288 8D OD IC STA $iCOD ıTimer 1 hat Null durchlaufen! 
F28B 8D OE 1C STA $1C0E erlauben 
F28E A9 FF LDA #$FF Flags löschen : 
F290 85 3E STA $3E Flag für aktives Laufwerk 
F292 85 51 STA $51 Flag für 'Formatiervorgang'! läuft 
F294 A9 08 LDA #$08 Kennzeichen für Blockheader 
F296 85 39 STA $39 setzen 
F298 A9 07 LDA #507 Kennzeichen für Datenblockheader 
F29A 85 47 STA $47 setzen 
F29C A9 05 LDA #%05 Aufruf in $FA0O2 (akt. Stepperroutine) 
F29E 85 62 STA $62 auf Routine 
FZAO A9 FA LDA #$FA in $FAO5 (Steppersteuerung) 
F2A2 85 63 STA $63 richten 
F2A4 A9 CB LDA #5C8 Zahl der Schritte für schnelle 
F2eA6 85 64 STA $64 Kopfbewegung festlegen 
F2A8 A9 04 LDA #504 Zahl der Schritte 
F2ZAA 85 5E STA $5E zum Anfahren und 
F2AC AY 04 LDA #804 Bremsen des Kopfes 
FZAE 85 5F STA $5F festlegen 
[9DCA/9DD5/BFO6] 
Einsprung in Diskcontroller-Routine 
. F2B0 BA TSX Stackpointer 
F2B1 86 49 STX $49 retten 
F2B3 AD 04 1C LDA $1C04 Timer zurücksetzen 
F2B6 AD OC IC LDA $iCOC CA2 (SOE = Serial Output Enable) 


F259 09 0E ORA #%0E auf Ausgang High 
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F2BB 8D OC IC STA $1COC setzen 

F2BE, AD 05 LDY #805 Zahl der Puffer 

F2CO BY 00 00 LDA $0000,Y Flag für Jobcode holen 

F2C3 10 2E BPL $F2F3 liegt ein Autrag für den Puffer vor ? 
F2C5 C9 DO CMP #%DO Ja, mit 'Programm starten! vergleichen 
F2C7 DO 04 BNE $F2CD Programm im Puffer ausführen ? 

F2C9 98 TYA ja, Puffernummer holen 

F2CA. 4C 70 F3 JMP $F370 und Programm anspringen 

F2CD 29 01 AND #801 Laufwerksnummer aus Jobcode holen 
F2CF FO 07 BEQ $F2D8 ist der Job für Laufwerk 0 ? 

F2D1 84 3F STY $3F nein, gerade bearbeiteter Puffer merken 
F2D3 A9 OF LDA #$0F Fehlermeldung 

F2D5, 40 69 F9_ JUMP $F969 ı74 Drive Not Ready! ausgeben 

F2Dsl AA TAX Laufwerksnummer (0) 

F2D9 85 3D STA $3D merken 

F2DB C5 3E CMP $3E und Flag für '!Laufwerk aktiv’ N 
F2DD FO OA BEQ $F2E9 Läuft das Laufwerk schon ? 

F2DF 20 TE F9_ UJSR $FYTE nein, Motor einschalten 

F2E2 A5 3D LDA $3D und Flag für 'Laufwerk aktiv! 

F2E4 85 3E STA $3E setzen 

F2E6, 4C 9C F9 JUMP $FYYC warten, bis Motor läuft 

F2Egl A5 20 LDA $20 Laufwerksstatus holen 

F2ZEB 30 03 BMI $F2FO ist der Motor schon auf Drehzahl ?° 
F2ED OA ASLA ja, Flagbit für Steppermotor in en 
F2EE. 10 09 BPL $F2F9 ist der Kopf in Bewegung ? 

F2FO° 4C 9C F9 JUMP $FYIC ja, Kopf weiter in Position bringen 
F2OF3 88 DEY Puffernummer merken 

F2OF4 10 CA BPL $F2CO bereits alle Puffer überprüft ? 

F2eF6 4C 9C F9 JUMP $FYY9C ja, zur Hauptsteuerroutine 

F2rgl A9 20 LDA #%20 Flag für 'Motor an! 

F2FB 85 20 STA $20 als Laufwerksstatus setzen 

F2FD AO 05 LDY #805 max. Pufferzahl 

FOFF_ 84 3F STY $3F als aktuelle Puffernummer festlegen 
r301 1 20 93 F3__UJSR $F393 Zeiger auf Pufferadresse setzen 

F304_ 30 1A BMI $F320 liegt Jobauftrag vor ? 

F306° C6 3F DEC $3F nein, Pufferzähler auf nächsten Puffer 
F308 10 F7 BPL $F301 letzter Puffer erreicht ? 

F30A A4 41 LDY $41 ja, Nummer des letzten Jobs 

F30C 20 95 F3__UJSR $F395 Pufferzeiger setzen 

F30F AS 42 LDA $42 Spurdifferenz zum letzen Job holen 


F311 85 4A STA $4A und als Zahl der auszuführenden 
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F313 
F315 
F317 
F319 
F31B 
- F31D 
F320 
F322 
F324 
F326 
F328 
F32A 
F32B 
F32D 
F32F 
F331 
F333 
F335 
F337 
F339 
F33C 
F33E 
F340 


F3421 


F345 
F346 
F348 
F34B 
F34D 
F34E 
F3AF 
F350 
F351 
F352 
F353 
F355 
F358 
F35A 
F35C 
F35F 
F361 


06 4A 
A9 60 
85 20 
B1 32 
85 22 
4C 9C 
29 01 
C5 3D 
DO EO 
A5 22 
FO 12 
38 

F1 32 
FO OD 
49 FF 
85 42 
E6 42 
AS 3F 
85 41 
4C 06 
A2 04 
B1 32 
85 40 
DD D6 
CA 

BO FA 
BD D1 
85 43 
8A 

DA 

OA 

DA 

DA 

OA 

85 44 
AD 00 
29 9IF 
05 44 
8D 00 
A6 3D 
AS 45 


F9 


F3 


FE 


1C 


ASL $4A 

LDA #860 
STA $20 

LDA ($32),Y 
STA $22 

JMP $F99C 
AND #801 
CMP $3D 

BNE $F306 
LDA $22 

BEQ $F33C 
SEC 

SBC ($32),Y 
BEQ $F33C 
EOR #$FF 
STA $42 

INC $42 

LDA $3F 

STA $41 

JMP $F306 
LDX #804 
LDA ($32),Y 
STA $40 

CMP $FED6,X 
DEX 

BCS $F342 
LDA $FED1,X 
STA $43 

TXA 

ASL A 

ASL A 
ASL A 
ASL A 
ASL A 
STA $44 
LDA $1C00 
AND #$9F 
ORA $44 
STA $1C00 
LDX $3D 
LDA $45 


Stepper-Halbschritte setzen 

Flag für Kopf in Bewegung 

im Laufwerksstatus setzen 

Nummer der Spur für Job aus Puffer 
holen und merken 

Kopf auf Spur positionieren 
Laufwerksnummer bilden 


und mit letztem Joblaufwerk vergleichen 


ist der Job für das gleiche Laufwerk ? 
Spurnummer des letzen Jobs holen 
Spurnummer vorhanden ? 

ja, Differenz zwischen aktueller und 
letzter Spur berechnen 

ist der Job für gleiche Spur ? 

Zahl der Stepperschritte 

erzeugen und 

festlegen 

Laufwerksnummer des aktuellen Jobs 
übertragen 

nächsten Puffer bearbeiten 

Zahl der verschiedenen Spurzonen 
Spurnummer des Jobs holen 

und merken 

mit größter Spur der Zone vergleichen 
Zonenzähler auf nächste Zone setzen 
liegt Spur innerhalb der Zone ? 

ja, Zahl der Sektoren der Zone holen 
und setzen 

Je nach Zonenzahl (0-3) 

wird in den 

Bits 5 und 6 

die Bit-Aufzeichnungsrate, 

mit der die Kopfelektronik auf die 
Diskette schreibt, bestimmt 

Wert zwischenspeichern 
Laufwerkssteuerregister holen 

Bits für Bitrate löschen 

und auf ermittelten Wert für die 
angewählte Zone setzen 

Nummer des Laufwerks 

Jobcode holen 
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F363 C9Y 40 CMP #840 mit Befehl 'Kopf auf Spur 1! vergleichen 
F365 FO 15 BEQ $F37C soll der Kopf zurückgesetzt werden ? 
F367 C9Y 60 CMP #860 nein, Kode für externes Jobprogramm 
F369 FO 03 BEQ $F36E Programm im Puffer einbinden ? 
F36B 4C B1 F3  UJMP $F3B1 nein, Kopf auf Spur setzen 
LF369] vgl. 93A2 
Programm im Puffer starten 
F36E A5 3F LDA $3F aktuelle Puffernumer holen 
[F2CA] 
. Programm starten (Pufferadresse in A) 
F370 18 CLC und daraus Highbyte 
F371 69 03 " ADC #803 der absoluten Pufferadresse 
F373 85 31 STA $31 berechnen und merken 
F375 A9 O0 LDA #800 Lowbyte auf 
F377 85 30 STA $30 Null setzen 


F379 6C 30 00 JMP ($0030) 


[F365] vgl. 93BO 
Kopf auf Spur 1 zurücksetzen (BUMP = Rattern) 


in Pufferprogramm springen 


F37’C A9 60 LDA #$60 Flag für Kopf in Bewegung 

F37’E 85 20 STA $20 im Laufwerksstatus setzen 

F380 AD 00 1C LDA $1C00 Laufwerkssteuerregister 

F383 29 FC AND #5FC holen und Stepperimpulse 

F385 8D 00 IC STA $1C00 Löschen 

F388 AY A4 LDA #8A4 Zahl der Stepperschritte (92) 
F38A 85 4A STA $4A nach außen setzen (= 46 Spuren) 
F38C A9Y 01 LDA #01 Spur 1 

F38E 85 22 STA $22 als Spurnummer des Jobs setzen 
F390 4C 69 F9 JUMP $FY969 Jobschleife abschließen 


[BFOC/F301/F43A/F4BF] vgl. 9301 
Pufferzeiger für Job initialisieren 


F393 A4 3F LDY $3F Nummer des aktuellen Puffers 
[F30C] Pufferzeiger setzen (Puffernummer in Y) 
F395 B9 00 00 LDA $0000,Y dazugehörigen Jobcode holen 
F398 48 PHA und merken | 
F399 10 10 BPL $F3AB Job vorhanden ? 
.F39B 29 78 AND #378 ja, Befehlsbits für Diskcontroller 


Das 


F39D 85 45 
F39F 98 

F3AO OA 

F3A1 
F3A3 
F3A5 98 
F3A6 18 
F3A7 
F3AY 


roße Flo 
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STA $45 
TYA 

ASL A 
ADC #806 
STA $32 
TYA 

CLC 

ADC #803 
STA $31 
LDY #800 
STY $30 
PLA 
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isoliern und merken 

Puffernummer holen 

und verdoppeln, (da 2-Byte-Werte) 
dann Beginn der Spur-Sektor-Tabelle 
einrechne und Zeiger setzen 
Puffernummer wieder holen 

und daraus pysikalische 
Speicheradresse des 

Puffers berechnen (High-Byte) und setzen 
Low-Byte des Zeigers 

auf Null setzen 

Jobcode wieder holen 

zurück zur aufrufenden Routine 


LF36B/F5E6] 


Spur suchen; Dabei orientiert sich die Routine an den Informationen 
die in jedem Blockheader auf der Diskette stehen 


F3B1 A2 5A 
' F3B3 86 4B 
F3B5 A2 00 
F3B7_ A9 52 
F3B9_ 85 24 


F3BB, 20 56 F5 


F3BE 50 FE 
F3C0O B8 

F3C1 AD 01 
F3C4 C5 24 
F3C6_ DO 3F 
F3C8° 50 FE 
F3CA B8 

F3CB AD 01 
F3CE 95 25 
F3D0 ES8 

F3D1 EO 07 
F3D3 DO F3 
F3D5 20 97 
F3D8 AO 04 
F3DA_ A9 00 


F3DC 59 16 00 


F3DF 88 
F3EO 10 FA 


LDX #85A 
STX $4B 
LDX #800 
LDA #852 
STA $24 
JSR $F556 
BVC $F3BE 
CLV 

LDA $1C01 
CMP $24 
BNE $F407 
BVC $F3C8 
CLV 

LDA $1C01 
STA $25,X 
INX 

CPX #807 
BNE $F3C8 
JSR $F497 
LDY #804 
LDA #800 
EOR $0016,Y 
DEY 

BPL $F3DC 


Zahl der Leseversuche (90) 
festlegen 
Zähler für Zahl der Headerbytes löschen 


GCR-Kennzeichen für Blockheader 


merken 

auf Sync-Markierung warten 

ist Leseelektronik bereit ? 

ja, Flag wieder zurücksetzen 
Headerkennzeichen von Diskette lesen 
mit Kennzeichen für Block vergleichen 
liegt ein Blockheader vor ? 

ja, auf nächstes Byte warten 
Leseelektronik wieder aktivieren 

Byte von Diskette lesen 

und in Headerpuffer speichern 

zähler erhöhen 

mit Zahl der Headerbytes vergleichen 
bereits ganzer Header eingelesen ? 

ja, Header von GCR nach Binär umwandeln 
Zeiger auf Position der Prüfsumme setzen 
Prüfsumme des Headers 

berechnen 

Zeiger auf nächstes Byte des Headers 
schon alle Bytes eingerechnet ? 
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F3E2 C9 00 CMP #00 ja, Wert für fehlerfreien Header 
F3E4 DO 38 BNE $F41E Prüfsummenfehler aufgetreten ? 
F3E6 A6 3E LDX $3E nein, aktuelle Laufwerksnummer holen 
F3E8 A5 18 LDA $18 Spurnummer aus gelesenem Header 
F3EA 95 22 STA $22,X als aktuelle Spur merken 
F3EC A5 45 'LDA $45 Jobcode holen 
F3EE C9 30 CMP #$30 mit 'Sektor lesen! vergleichen 
F3FO FO 1E BEQ $F410 identisch ? 
F3F2 A5 3E LDA $3E nein, Laufwerksnummer des Jobs holen 
F3F4 OA ASL A Zeiger auf zum Laufwerk 
F3F5 : AB TAY gehörende ID richten 
F3F6 BY 12 00 LDA $0012,Y erstes Zeichen der ID holen 
F3F9_ C5 16 CMP $16 und mit ID des Blockheaders vergleichen 
F3FB DO 1E BNE $F41B hat sich ID geändert ? 
F3FD_ B9 13 00 LDA $0013,Y nein, nächstes Zeichen der ID 
F400O cC5 17 CMP $17 und mit ID aus Header vergleichen 
F402 DO 17 BNE $F41B identisch ? 
F40O4_ 4C 23 F4  JMP $F423 ja, nächsten Job feststellen 
Fsor! C6 4B DEC $4B zähler für Leseversuche erniedrigen 
F409 DO BO BNE $F3BB 90 Leseversuche ausgeführt 
F40B A9 02 LDA #802 Fehlermeldung 
FAOD, 20 69 F9_OJSR $F969 ı20 Read Error! ausgeben 
F410 AS 16 LDA $16 ID des Blockheaders 
F412 85 12 STA $12 als neue ID für 
F414 A5 17 LDA $17 das aktuelle Laufwerk 
F416_ 85 13 STA $13 übernehmen 
F418” A9 01 LDA #%01 Nummer für 'OK! 
F41A_ 2C ‚byte $2c nächste 2 Bytes überspringen (Bitbefehl) 
F41B” A9 OB LDA #$0B Nummer für '29 Disk ID Mismatch' 
F41D, 2C .byte $2c nächste 2 Bytes überspringen (Bitbefehl) 
FA1E A9 09 LDA #$09 Nummer für '27 Write Error! 
F420 4C 69 F9__JMP $F969 Meldung zurückgeben 
[F404] vgl. 94BC 
nächsten otimalen Job holen 
F423 A9 7F LDA #%7F Zeiger für Differenz zum nächsten Job 
F4A25 85 4C STA $4C initialisieren 
F427 AS 19 LDA $19 Sektornummer aus letztem Blockheader 
F429 18 CLC holen und 
F4A2A 69 02 ADC #802 mit maximaler 
F42C C5 43 CMP $43 Sektornummer vergleichen 
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FA2E 90 02 BCC $F432 ist Nummer im erlaubten Bereich ? 
F430, E5 43 SBC $43 nein, max. Sektornummer subtrahieren und 
F432° 85 4D STA $4D und neue Sektornummer merken 
F434 A2 05 LDX #05 Zahl der Puffer 
F436 86 3F STX $3F setzen 
F438, A2 FF LDX #$FF Wert für Pufferzeiger 
FA3A° 20 93 F3_JSR $F393 Pufferadresse setzen und Jobcode holen 
F43D 10 44 BPL $F483 liegt ein Job vor ? 
F4A3F 85 44 STA $44 ja, Jobcode merken 
F441 29 01 AND #%01 und Laufwerksnummer des Jobs feststellen 
F443 C5 3E CMP $3E mit aktuellem Laufwerk vergleichen ? 
F445 DO 3C BNE $F483 ist der Job für aktuelles Laufwerk ? 
F447 AO 00 LDY #00 ja, Pufferzeiger löschen 
F449 B1 32 LDA ($32),Y Spurnummer des Jobs 
F44B C5 40 CMP $40 mit letzter Spur vergleichen 
F44D DO 34 BNE $F483 identisch ? 
FA4F A5 45 LDA $45 ja, Befehlsbits des Jobcodes holen 
F451 C9 60 CMP #860 Code für 'Programm im Puffer einbinden! 
F453 FO 0C BEQ $F461 soll Pufferprogramm ausgeführt werden ? 
F455 AO 01 LDY #801 nein, Zeiger auf Parameter für Puffer O 
F4A57 38 SEC Sektornummer des Jobs 
F458 Bi 32 LDA ($32),Y für Puffer 0 holen und mit 
F45SA E5 4D SBC $4D errechnetem optimalen Sektor vergleichen 
F4S5C 10 03 BPL $F461 ist neue Sektornummer kleiner ? 
F4SE 18 CLC nein, Zahl der Sektoren bis zu diesem 
FASF_ 65 43 ADC $43 Sektor berechnen 
F4617 C5 4C CMP $4C und mit letzter Differenz vergleichen 
F463 BO 1E BCS $F483 ist neuer Wert kleiner als letzter ? 
F465 48 PHA ja, Sektordifferenz merken 
F466 A5 45 LDA $45 Befehlsbits des Jobcodes prüfen 
F468 FO 14 BEQ $F4A7E soll Sektor gelesen werden ? 

" FA6A 68 PLA nein, Differenz wieder holen 
FA6&B CY 09 CMP #509 und mit 9 vergleichen 
F46D 90 14 BCC $F483 ist Wert kleiner ? 
FA46F C9 OC CMP #%0C nein, mit 13 vergleichen 
F471, BO 10 BCS $F483 ist Differenz kleiner 13 ? 
F4A73 85 4C STA $4C ja, neue Sektordifferenz merken 
FA75S AS 3F LDA $3F Puffernummer des Jobs 
F4A77 AA TAX holen und daraus 
F4A78 69 03 ADC #803 die physikalische 


FA7TA 85 31 STA $31 Speicheradresse berechnen (High-Byte) 
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F47C. DO 05 BNE $F483 immer Sprung nach $F483 
FA7TE 68 PLA Sektordifferenz wieder holen 
FA7’F C9 06 CMP #806 und mit 6 vergleichen 
F481_ 90 FO BCC $F473 ist Differenz größer ? 
F483 C6 3F DEC $3F ja, Zeiger auf nächsten Puffer richten 
F485 10 B3 BPL $FA3A schon alle Puffer geprüft ? 
F487 8A TXA ja, Puffernummer des nächsten Jobs 
F488 10 03 BPL $F48D optimalen Job gefunden ? 
F4A8A_ 4C 9C F9_ JUMP $FYYC nein, Stepperkommandos ausführen 
F48D 86 3F STX $3F Puffernummer merken 
FA8F 20 93 F3_ JSR $F393 Pufferadresse berechnen 
F492 A5 45 LDA $45 reinen Jobcode holen (Befehlbits) 
F494 4C CA FA JUMP $FACA Lese- und Schreibjobs ausführen 
[F3D5] 
Header von GCR-Code in Binärwerte umrechnen 
F497 AS 30 LDA $30 Zeiger auf 
F499 48 PHA aktuelle 
FA9A AS 31 LDA $31 Pufferadresse 
FAIC 48 PHA retten 
FA9D AI 24 LDA #$%24 Zeiger auf 
F4A9F 85 30 STA $30 $0024 (Beginn der Daten 
F4Al A9 00 LDA #800 des zuletzt gelesenen Blockheaders) 
FAA3 85 31 STA $31 festlegen 
FAA5S A9 00 LDA #00 Pufferzeiger für Umwandlungsroutine 
F4AA7 85 34 STA $34 zurücksetzen 
FAA9 20 E6 F7JSR $F7E6 5 GCR-Bytes in 4 Binärwerte umwandeln 
FAA7 AS 55 LDA $55 viertes umgewandeltes Byte 
FAAE 85 18 STA $18 als Spurnummer in Headerpuffer 
F4BO AS 54 LDA $54 drittes umgewandeltes Byte 
F4B2 85 19 STA $19 als Sektornummer in Headerpuffer 
F4B4 AS 53 LDA $53 zweites umgewandeltes Byte 
F4AB6 85 1A STA $1A als Prüfsumme in Headerpuffer 
FAB8B 20 E6 F7_JSR $F7E6 5 GCR-Bytes in 4 Binärwerte umwandeln 
FABB A5 52 LDA $52 erstes umgewandeltes Byte 
FABD 85 17 STA $17 als zweites ID-Zeichen in Headerpuffer 
FABF AS 53 LDA $53 zweites umgewandeltes Byte 
 F4cC1 85 16 STA $16 als erstes ID-Zeichen in Headerpuffer 
F4AC3 68 PLA Zeiger auf Adresse 
F4ACA 85 31 STA $31 “des aktuellen Puffers 


F4C6 68 PLA wieder 
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_F4C7 85 30 
F4C9 60 
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STA $30 
RTS 


herstellen 
zurück zur aufrufenden Routine 


[F494] vgl. 9606 
Jobcode auf 'Sektor lesen! prüfen, wenn Job identisch ausführen 


FACA C9 00 
FACC FO 03 
FACE 4C 6E F5 


CMP #$00 
BEQ $F4D1 
JMP $FS6E 


Jobceode mit Code für !lesen! vergleichen 
identisch ? 
nein, Jobcode weiter überprüfen 


Se, lesen 
F4D1_ 20 0A F5 
F4D4 50 FE 
F4D6 B8 

F4D7 AD 01 1C 
F4DA 91 30 
F4DC, C8 

F4op DO F5 
F4DF_ AD BA 
F4E1" 50 FE 
F4E3 B8 

F4EL AD 01 IC 
F4E7 99 00 01 
F4EA C8 

F4EB DO F4 
F4ED 20 EO F8 
FAFO AS 38 
F4F2 C5 47 
FAF4 FO 05 
FAF6 AY 04 
F4F8_4C 69 FY 
F4rgl 20 E9 F5 
FAFE C5 3A 
F500 FO 03 
F502 A9 05 


JSR $F50A 
BVC $F4D4 
cLv 

LDA $1C01 
STA ($30),Y 
INY 

BNE $F4D4 
LDY #$BA 
BVC $F4E1 
CLV 


‚LDA $1C01 


STA $0100,Y 
INY 

BNE $F4E1 
JSR $F8EO 
LDA $38 
CMP $47 
BEQ $FAFB 
LDA #$04 
JMP $F969 
JSR $F5E9Y 
CMP $3A 
BEQ $F505 
LDA #805 
„byte $2C 
LDA $01 
JMP $F969 


Blockheader des Sektors suchen 

auf Byte von Diskette warten 
Leseelektronik wieder bereit machen 
Byte von Kopf lesen 

und in aktuellen Puffer schreiben 
Pufferzeiger auf nächstes Byte setzen 
Puffer schon voll ? 

ja, Pufferzeiger auf Zusatzpuffer 

auf nächstes Byte von Diskette warten. 
Flag wieder bereit machen 

Byte von Lesekopf holen 

und in Zusatzpuffer schreiben 
Pufferzeiger auf nächstes Byte setzen 
Zusatzpuffer voll ? 

ja, Sektor von GER nach Binär wandeln 
erstes Byte des Datenblock holen und 
Kennzeichen für Datenblockheader 
Datenblock ? 

nein, Fehlermeldung 

ı22 Read Error! ausgeben 

Prüfsumme der Daten berechnen 

mit gelesenem Wert vergleichen 
identisch ? 

Fehlernummer für '23 Read Error' 
nächste 2 Bytes überspringen (Bitbefehl) 
Fehlernummer für "OK! 

Meldung zurückgeben 
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[F4D1/F6AO] vgl. 9600 

Lesekopf auf Position nach Datenblock-Sync-Markierung eines Sektors setzen 
FS0A 20 10 F5  JSR $F510 Blockheader des Sektors suchen 

F50D 4C 56 F5_JMP $F556 auf Sync-Marke des Datenblocks warten 
LF5SOA/F589/F6CA] vgl. 970F 

: Sektorheader suchen 


F510 A5 3D LDA $3D Laufwerksnummer des Jobs 

F512 OA ASLA und zum Laufwerk 

F513 AA TAX dazugehörige ID holen 

F514 B5 12 LDA $12,X erstes Zeichen der ID 

F516 85 16 STA $16 in Headerpuffer übertragen 

F518 B5 13 LDA $13,X zweites Zeichen der ID 

FS1A 85 17 STA $17 in Headerpuffer übertragen 

FS1IC AO 00 LDY #800 Pufferzeiger löschen 

FS1IE B1 32 LDA ($32),Y Spurnummer aus aktuellem Puffer holen 
F520 85 18 STA $18 und in Headerpuffer übertragen 

F522 C8 INY Pufferzeiger auf nächstes Zeichen setzen 
F523 B1 32 'LDA ($32),Y Sektornummer aus aktuellem Puffer holen 
F525 85 19 STA $19 und in Headerpuffer übetragen 

F527 A9 00 LDA #00 Prüfsumme 

F529 45 16 EOR $16 des erstellten Sektorheaders 

F52B 45 17 EOR $17 berechnen 

F52D 45 18 EOR $18 und in den 

F52F 45 19 EOR $19 Headerpuffer 

F531 85 1A STA $1A schreiben 

F533 20 34 F9__JSR $F934 Sektorheader in GCR-Bytes umwandeln 
F536. A2 5A LDX #$5A Zahl der Leseversuche festlegen (90) 
Fs3gl 20 56 F5 JSR $F556 auf nächste Sync-Markierung warten 
F53B_ AO 00 LDY #800 Pufferzeiger löschen 

F53D” 50 FE BVC $F53D auf Byte von Diskette warten 

FS3F B8 CLV ıByte Ready! Flag wieder bereit machen 
F540 AD 01 1C LDA $1C01 Byte von Lesekopf holen 

F543 D9 24 00 CMP $0024,Y und mit hergestelltem Header vergleichen 
F546 DO 06 BNE $F54E Werte identisch ? 

F548 C8 INY ja, Pufferzeiger auf nächstes Zeichen 
F549 CO 08 CPY #808 mit Zahl der Headerbytes vergleichen 
F54B DO FO BNE $F53D gesamter Header überprüft ? 

FS4D. 60 RTS ja, zurück zur aufrufenden Routine 
Fs4el CA DEX Zähler der Leseversuche erniedrigen 


FS4F DO E7 BNE $F538 noch einen Leseversuch durchführen ? 
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F551 
F553 


[BFIE/F3BB/F50D/F538/FB1D/FD39/FD62] 


A9 02 
4C 69 F9 


LDA #$02 
JMP $F969 


Fehlermeldung 
120 Read Error! ausgeben 


vgl. 9754 


auf nächste Sync-Markierung warten 


Timer auf etwa 53 ms einstellen 
und starten 

Nummer für '21 Read Error! 

Zustand des Timers holen 

ist der Timer abgelaufen ? 

Zustand des Sync-Flags holen 
wurde Sync-Markierung gefunden ? 
ja, Kopf initialisieren 
Leselektronik wieder bereit machen 
Prozessorflags setzen 


zurück zur aufrufenden Routine 


Sektor schreiben, wenn Jobcode $90 (Befehlbits $10) 


F556 A9 DO LDA #%D0 
F558 8&D 05 18 STA $1805 
F55B, A9 03 LDA #503 
F55D 2C 05 18 BIT $1805 
F560 10 F1 BPL $F553 
F562 2C 00 IC BIT $1C00 
F565 30 F6 BMI $F55D 
F567 AD 01 iC LDA $1C01 
FS6A B8 CLV 

F56B AO 00 LDY #800 
F56D 60 RTS 
[FACE] vgl. 976E 

FS6E C9Y 10 CMP #810 
F570 FO 03 BEQ $F575 
F572 46 91 F6 JMP $F691 
schreiben 

F575° 20 E9 F5 JSR $F5E9 
F578 85 3A STA $3A 
FS’A AD 00 IC LDA $iC00 
F57D 29 10 AND #810 
FS7’F DO 05 BNE $F586 
F581 A9 08 LDA #808 
F583_4C 69 F9__JMP $F969 
F586 20 8F F7__JSR $F78F 
F589 20 10 F5 JSR $F510 
FS8C_ A2 09 LDX #09 
FS8E” 50 FE BVC $F58E 
F590 B8 CLV 

FS9i CA DEX 

F592 DO FA BNE $F5S8E 
F594 A9 FF LDA #$FF 
F596 8D 03 IC STA $1C03 
F5S99 AD OC IC LDA $1ICOC 


mit Jobcode für 'Schreiben! vergleichen 
identisch ? 
nein, Jobcode weiter untersuchen 


Prüfsumme des Puffers berechnen 
und merken 

Laufwerkssteuerregister holen 
Bitflag für 'Write Protect! holen 
ist Schreibschutz vorhanden ? 

ja, Fehlernummer 

126 Write Protect On! ausgeben 
Puffer in GCR-Code umwandeln 
Blockheader des Sektors suchen 

Zahl der Bytes des Headers 

Byte von Diskette gelesen ? 

ja, Byte Ready wieder bereit machen 
nächstes Byte überlesen 

gesamter Blockheader übersprungen ? 
ja, Register für Kopf auf Ausgang 
schalten 

Laufwerkssteuetrregister holen 
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FS9C 29 IF AND #$1F Kontrollerelektronik auf Schreiben 
FS9E 09 CO ORA #C0 stellen 
FSAO 8&D OC IC STA $1ICOC und in Register setzen 
FSA3 A9 FF LDA #$FF Wert für Sync-Markierung 
FSA5S A2 05 LDX #%05 Zahl der Sync-Bytes für Markierung 
FSA7 8&D 01 1C STA $1C01 Byte an Kopf übertragen 
FSAA_ B8 CLV Flag für Byte Ready bereit machen 
FSAB- 50 FE BVC $F5AB warten bis Byte geschrieben ist 
FSAD B8 CLV Flag für Byte Ready bereit machen 
FSAE CA Ä DEX zähler für Zahl der Sync-Bytes 
FSAF DO FA BNE $F5AB alle Sync-Bytes auf Diskette ? 
F5B1_ AO BB LDY #$BB ja, Pufferzeiger auf Zusatzpuffer 
F5B3 | B9 00 01 LDA $0100,Y Byte aus Puffer holen 
F5B6 50 FE BVC $F5B6 warten bis Schreiblektronik bereit ist 
F5SB8 B8 CLV Flag wieder zurücksetzen 
F5B9 8D 01 IC STA $1C01 Byte auf Diskette schreiben 
FSBC C8 INY Zeiger auf nächstes Zeichen in Puffer 
F5SBD. DO F4 BNE $F5B3 gesamter Puffer geschrieben ? 
FSBF_ B1 30 LDA ($30),Y ja, Byte aus Datenpuffer holen 

. F5C1° 50 FE BVC $F5cC1 warten bis Diskette bereit ist 
F5C3 B8 CLV Flag wieder setzen 
FSC4 8&D 01 IC STA $1c01 und Byte auf Diskette schreiben 
F5c7_ cC8 INY Zeiger auf nächstes Byte im Puffer 
FSC8, DO F5 BNE $F5BF bereits ganzer Puffer geschrieben ? 
Fscal 50 FE BVC $F5CA ja, warten bis letztes Byte vollständig 
FSCC AD OC 1C LDA $iCOc geschrieben ist und dann 
FSCF 09 EO ORA #$E0 Kontrollerelektronik wieder 
F5D1 8D OC IC STA $iICOC auf Lesen umschalten 
F5SD4 A9 00 LDA #$00 Register des Lesekopf auf Eingang 
F5D6 8&D 03 1C STA $1C03 schalten 
FSD9 20 F2 F5 JSR $F5F2 Puffer von GCR in Binär zurückwandeln 
FSDC A4 3F LDY $3F aktuelle Puffernummer 
FSDE BY 00 00 LDA $0000,Y dazugehörigen Jobcode holen 
FSE1 49 30 EOR #$30 und daraus Jobcode für 
FSE3_ 99 00 00 STA $0000,Y ıVerify'! herstellen 
FSE6 4C B1 F3_ JMP $F3B1 Überprüfung durchführen 


[Y6FD/9775/989E/9C1IB/BF2A/FAFB/F575/F698/FCA2] 

Prüfsumme des Puffers berechnen 

FSE9 AY 00 LDA #00 Wert für Prüfsumme und 

FSEB AB TAY Zeiger auf Pufferposition löschen 
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Byte aus Puffer Prüfsumme einrechnen 
Zeiger auf nächstes Byte setzen 
bereits ganzer Puffer eingerechnet ? 
ja, zurück zur aufrufenden Routine 


und Zusatzpuffer von GCR-Code in Binärwerte umwandeln 


rsech 51 30 EOR ($30),Y 
FSEE C8 INY 
FSEF DO FB BNE $F5EC 
FSF1 60 RTS 
LFSDY/F972] vgl. 97F9 
Datenpuffer 
FSF2 A9 00 LDA #$00 
FSF4 85 2E STA $2E 
FSF6 85 30 STA $30 
FSF8 85 4F STA $4F 
FSFA AS 31 LDA $31 
FSFC 85 4E STA $4E 
FSFE A9 01 LDA #801 
F600 85 31 STA $31 
F602 85 2F STA $2F 
F604 A9 BB LDA #%BB 
F606 85 34 STA $34 
F608 85 36 STA $36 
F60A 20 E6 F7_JSR $F7E6 
F60D A5 52 LDA $52 
F6OF 85 38 STA $38 
F611 A4 36 LDY $36 
F613 AS 53 LDA $53 
F615 91 2E STA ($2E),Y 
F617_ C8 INY 

 F618 AS 54 LDA $54 
F61A 91 2E STA ($2E),Y 
F6IC C8 INY 
F61D A5 55 LDA $55 
F6IF 91 2E STA ($2E),Y 
F621 C8 INY 
F622, 84 36 STY $36 
F624 1 20 E6 F7_JSR $F7E6 
F627 A4 36 LDY $36 
F629 AS 52 LDA $52 
F62B 91 2E STA ($2E),Y 
F62D C8 INY 
F62E A5 53 LDA $53 
F630 91 2E STA ($2E),Y 
F632 C8 INY 


Low-Byte des Zeigers für den 

aktuellen Datenpuffer und den 
Zusatzpuffer initialisieren 

momentanen Wert des Zeigers auf den 
aktuellen Datenpuffer 

in $4E/$4F retten 

Pufferzeiger 

auf $1BB setzen 

High-Byte auf Zusatzpuffer 

Pufferzeiger für Umwandlungsroutine auf 
Beginn des Zusatzpuffers richten 

Zeiger auf akt. Binärbyteposition setzen 
5 GCR-Bytes in 4 Binärwerte umwandeln 
erstes umgewandeltes Byte holen und als 
Kennzeichen für Datenblockheader merken 
Pufferzeiger wieder holen 

zweites umgwandeltes Byte holen 

und in Zwischenpuffer schreiben 
Pufferzeiger auf nächstes Byte setzen 
drittes umgewandeltes Byte holen 

und in Zwischenpuffer schreiben 


Zeiger auf nächstes Byte 


letztes umgewandeltes Byte holen 
und in Zwischenpuffer speichern 
Zeiger auf nächstes Position im Puffer 
und merken 

die nächsten 5 GCR-Bytes umwandeln 
Pufferzeiger wieder holen 

erstes umgewandeltes Byte holen 
und in Zwischenpuffer schreiben 
Zeiger auf nächstes Byte setzen 
zweites umgewandeltes Byte holen 
und in Zwischenpuffer schreiben 
Zeiger auf nächstes Byte setzen 
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F633 FO OE BEQ $F643 alle Bytes des Zwischenpuffers geholt ? 
F635 A5 54 LDA $54 nein, drittes umgewandeltes Byte holen 
F637 91 2E STA ($2E),Y und in Zwischenpuffer schreiben 
F639 C8 INY Pufferzeiger auf nächste Byteposition 
F63A AS 55 LDA $55 viertes umgewandeltes Byte holen 
F63C 91 2E STA ($2E),Y und in Zwischenpuffer schreiben 
F63E C8 INY Zeiger auf nächstes Byte in Puffer 
F63F 84 36 STY $36 und merken 
F641, DO EI BNE $F624 letztes Byte aus Zwischenpuffer ? 
F643 A5 54 LDA $54 ja, drittes umgewandeltes Byte holen 
F645 91 30 STA ($30),Y und in Datenpuffer schreiben 
F647 C8 INY Pufferzeiger auf nächstes Byte setzen 
F648 Ab 55 LDA $55 letztes umgewandeltes Byte holen 
F64A 91 30 STA ($30),Y und in Datenpuffer schreiben 
F64C C8 INY Pufferzeiger auf nächstes Zeichen 
F64D, 84 36 STY $36 setzen und merken 
F64rl 20 E6 F7__JSR $F7EO6 die nächsten 5 GCR-Bytes in Binär 
F652 A4 36 LDY $36 Pufferzeiger wieder holen 
F654 A5 52 LDA $52 erstes umgewandeltes Byte holen 
F656 91 30 STA ($30),Y und in Datenpuffer schreiben 
F658 C8 INY Pufferzeiger auf nächstes Byte setzen 
F659 A5 53 LDA $53 zweites umgewandeltes Byte holen 
F65B 91 30 STA ($30),Y in Datenpuffer schreiben 
F65D C8 INY Pufferzeiger korregieren 
F6SE AS 54 LDA $54 drittes umgewandeltes Byte holen 
F660 91 30 STA ($30),Y in Datenpuffer schreiben 
F662 C8 INY Zeiger auf nächstes Byte im Puffer 
F663 A5 55 LDA $55 letztes umgewandeltes Byte holen 
F665 91 30 STA ($30),Y in Datenpuffer schreiben 
F667 C8 INY Pufferzeiger auf nächstes Byte setzen 
F668 84 36 STY $36 und merken 
F66A CO BB CPY #%$BB Pufferzeiger mit Endwert vergleichen 

: F66C 90 E1 BCC $F64AF alle Bytes in Binär umgewandelt ? 
F6E6GE A9 45 LDA #$45 ja, Zeiger auf 
F670 85 2E STA $2E Zieladresse der 
F672 AS 31 LDA $31 nachfolgenden Verschiebeoperationen 
F674 85 2F STA $2F setzen 
F676, AO BA LDY #$BA Pufferzeiger auf Beginn des Datenpuffers 
Fer] B1 30 LDA ($30),Y Byte aus unterm Teil des Puffers holen 
F67A 91 2E STA ($2E),Y und in den oberen Teil verschieben 


F67C 88 DEY Zeiger auf nächstes Zeichen 
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gesamter unterer Teil kopiert ? 
letztes Byte in 

oberen Teil kopieren 

Pufferzeiger für Zusatzpuffer setzen 
Byte aus Zusatzpuffer holen und in 
unteren, freigewordenen Datenpuffer 
Zusatzpufferzeiger erhöhen und Puffer- 
zeiger des Datenpuffers erhöhen 
gesamter Zusatzpuffer im Datenpuffer ? 
ja, Flag für 'Puffer im GCR-Code! 
Löschen; zurück zur aufrufenden Routine 


Sektor auf Diskette mit Pufferinhalt vergleichen, wenn Jobcode $AO 


Jobcode m. Code für 'Verify'! vergleichen 
identisch ? 
nein, Jobcode weiter dekodieren 


F67D DO F9 BNE $F678 
F67F B1 30 LDA ($30),Y 
F681. 91 2E STA ($2E),Y 
F683_ A2 BB LDX #$BB 
F685° BD 00 01 LDA $0100,X 
F688 91 30 STA ($30),Y 
F68A C8 INY 
F68B EB INX 
F68C DO F7 BNE $F685 
F68E 86 50 STX $50 
F690 60 RTS 
LF572] vgl. 9898 
F691 C9 20 CMP #$20 
F693 FO 03 BEQ $F698 
F695 4C CA F6& JMP $F6CA 
Sektor verify 
F698° 20 E9 F5_  JSR $F5E9 
F69B 85 3A STA $3A 
F69D 20 8F F7__JSR $F7BF 
F6ADO 20 OA F5 JSR $F50A 
F6A3. AO BB LDY #%BB 
F6A5S. B9 00 01 LDA $0100,Y 
F6A8 50 FE BVC $F6AB 
F6AA BB CLV 
F6AB 4D 01 IC EOR $1C01 
F6AE DO 15 BNE $F6C5 
F6B0 C8 INY 
F6B1. DO F2 BNE $F6A5 
F6B3. B1 30 LDA ($30),Y 
F6B5° 50 FE BVC $F6B5 
F6B7 B8 CLV 
F6B8 4D 01 1C EOR $1C01 
F6BB DO 08 BNE $F6C5 
F6BD CB INY 
F6BE CO FD CPY #$FD 
F6CO DO F1 BNE $F6B3 

F6C2, 4C 18 FA JMP $F418 
F6c5 | A9 07 LDA #807 


Prüfsumme des Datenpuffers berechnen 
und merken 

Puffer in GCR-Code umwandeln 

Kopf auf Sektoranfang auf Disk setzen 
Pufferzeiger auf Beginn des Zusatzpuffer 
Byte aus Zusatzpuffer holen 

warten bis Byte von Diskette fertig 
Flag wieder bereit machen 

Byte vom Kopf holen und vergleichen 
Byte von Puffer und Diskette gleich ? 
ja, Zeiger auf nächstes Pufferbyte 
bereits ganzer Zusatzpuffer verglichen ? 
ja, Byte aus Datenpuffer holen 
warten bis Byte von Disk gelesen 

und Kopf wieder bereit machen 

Byte vom Kopf holen und vergleichen 
Byte von Diskette und Puffer gleich ? 
ja, Pufferzeiger auf nächstes Zeichen 
mit Endwert des Puffers vergleichen 
alle Bytes verglichen ? 

Verify erfolgreich 

Fehlermeldung 


526 


F6C7 4C 69 F9 


JMP $F969 


Das Disk-Operating-System (DOS 


ı25 Write Error! ausgeben 


LF695] 


F6CA 20 10 F5 
F6CD 4C 18 FA 


LF7TE3/FE64/F7BC/F950/F961/FESE] 


vgl. 98CE 
Sekorheader suchen (Jobcode $B0) 


JSR $F510 
JMP $F418. 


Sektorheader suchen 
Rückmeldung bereitstellen 


Wandelt 4 Binärbytes in 5 GCR-Bytes um. Dabei wird $52-$55 als Puffer 
für die Binärwerte verwendet 


F6DO 
F6D2 
F6D4 
F6D6 
F6D8 
F6DA 
F6DC 
F&DD 
F6DE 
F6DF 
F6EO 
F6E1 
F6E4 
F6ES 
F6E6 
F6E7 
F6EY 
F6EB 
F6ED 
F6EE 
F6F1 
F6F2 
F6F4 
FöF5 
F6F7 
FöF9 
F6FB 
F6FD 
F6FE 
F70O 
F702 


A9 
85 
85 
A4 
A5 
29 


00 
57 
5A 
34 
52 
FO 


TF 


F7 


LDA #800 
STA $57 
STA $5A 
LDY $34 
LDA $52 
AND #$FO 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA $F77F,X 
ASL A 

ASL A 

ASL A 

STA $56 

LDA $52 

AND #$0F 
TAX 

LDA $F77F,X 
ROR A 

ROR $57 

ROR A 

ROR $57 
AND #807 
ORA $56 

STA ($30),Y 
INY 

LDA $53 

AND #$F0 
LSR A 


> >>> 


Zwischenspeicher 

für GCR-Bytes 

Löschen 

Zeiger auf aktuelles GCR-Byte 

erstes umzuwandelndes 

Zeichen aus Binärpuffer 

holen, 

hoherwertiger Teil (Bit 4-7) des 

Bytes isolieren und in 

niederwertigeren Teil (Bit 0-3) kopieren 


dann dem Halbbytes entsprechenden 


5-Bit-GCR-Code holen 

und die 5 Bits wieder in den höheren 
Teil des Bytes (Bit 3-7) 

kopieren und 

merken | 

erstes umzuwandeltes Byte nochmal holen 
und nun niederen Teil isolieren 

dann den zum Halbbyte passenden 
5-Bit-GCR-Code holen 

niederste zwei Bits, da im ersten Byte 
kein Platz mehr ist (aus 8 Bits werden 
10 Bits) in zweitem GCR-Byte 
unterbringen | 

die drei verbleibenden Bits in das erste 
GCR-Byte einblenden 

und GCR-Byte in Puffer schreiben 
Pufferzeiger auf nächstes Zeichen 
zweites umzuwandelndes Byte holen 
ersten umzuwandelnden Teil holen 

und in niederwertige 
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F703 
F704 
F705 
F706 
F707 
F7OA 
F7OB 
. F70D 
F7OF 
F711 
F713 
F714 
F717 
F718 
F719 
Zar 
F71B 
F71D 
F’IE 
F720 
F722 
F724 
F725 
F727 
F729 
F72A 
F72B 
F72C 
F72D 
F72E 
F731 


TF 


57 


‚57 


53 
OF 


[d; 


TF 


58 
30 


80 
59 
54 
OF 


F7 


F7 


LSR A 

LSR A 

LSR A 

TAX 

LDA $F77F,X 
ASL'A 

ORA $57 
STA $57 
LDA $53 

AND #$0F 
TAX 

LDA $F77F,X 
ROL A 

ROL A 

ROL A 

ROL A 

STA $58 

ROL A 

AND #$01 
ORA $57 

STA ($30),Y 
INY 

LDA $54 

AND #$F0 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA $F77F,X 
CLC 

ROR A 

ORA $58 

STA ($30),Y 
INY 

ROR A 

AND #$80 
STA $59 
LDA $54 

AND #$0F 
TAX 


>> >>> 


Bytehälfte schieben 

um Byte als Zeiger auf äquvalentes 
Binärbyte zu verwenden 

dem Halbbyte entsprechenden 
5-Bit-GCR-Code holen 

und in zweites GCR-Byte 

in die Bitpositionen 1-5 

setzen 

drittes umzuwandelndes Byte holen 
und niederwertigen Teil isolieren 
dann dazugehöriges 

5-Bit-GCR-Byte holen 

GCR-Byte in 

die Bitposition 4-7 

des dritten GCR-Bytes 

setzen 

und merken 

letztes GCR-Bit in 

nächstes GCR-Byte 

übertragen 

GCR-Byte in Puffer schreiben 
Pufferzeiger auf nächstes Byte setzen 
drittes umzuwandelndes Binärbyte holen 
und höherwertigen Teil (Bit 4-7) 
isolieren 

Bytehälfte in niederwertigen Teil des 
Bytes verschieben und so Zeiger auf 
äuivalentes Binärbyte herstellen 
und dem Halbbyte entsprechenden 
5-Bit-GCR-Code holen 

Byte eins nach recht schieben und 
Nullbit einfügen 

GCR-Wert mit vorherigem verknüpfen 
GCR-Byte in Puffer schreiben 

und Pufferzeiger erhöhen 

vorher herausgeschobenes BitO0 wieder 
holen und in nächstes GCR-Byte 
übernehmen 

niederwertigen Teil (Bit 0-3) 

des dritten umzuwandelnden Bytes 
herstellen und dazu passenden 
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F742 BD 7F F7LDA $F77F,X 5-Bit-GCR-Code feststellen 
F7455 OA ASLA GCR-Wert in Position 
F746 0A ASLA 2 bis 6 setzen 
F747 29 TC AND #$7C und als zweiten Teil des vierten 
F749 05 59 ORA $59 GCR-Bytes merken 
F74B 85 59 STA $59 GCR-Byte merken 
F74D AS 55 LDA $55 viertes umzuwandelndes Binärbyte holen 
F7AF 29 FO AND #$F0 und höherwertigen Teil (Bit 4-7) 
F751 4A LSR A isolieren 
F752 4A LSR A Halbbyte in niederwertigere Bytehälfte 
F753 4A LSR A verschieben da Byte als Zeiger 
F754 4A LSR A auf passenden GCR-Wert diehnt 
F755 AA TAX dann den dem Binärbyte entsprechenden 
F756 BD 7F F7__LDA $F77F,X 5-Bit-GCR-Code holen 
- F759 6A ROR A erste drei Bits des 
FTSA 66 5A ROR $5A GCR-Werts (Position 0-2) 
F’SC 6A ROR A in die Position 5-7 
F75D 66 5A ROR $5A des letzten GCR-Werts 
F7SF 6A ROR A transferieren 
F760 66 5A ROR $5A (über Carry) 
F762 29 03 AND #803 restliche zwei Bits 
F764 05 59 ORA $59 in vorhergehenden GCR-Wert einblenden 
F766 91 30 STA ($30),Y und in Puffer schreiben 
F768 C8 INY Pufferzeiger auf nächstes Byte setzen 
F769 DO 04 BNE $F76F Ende des Puffers erreicht ? 
F7EB AS 2F LDA $2F ja, Zeiger auf Datenpuffer wieder 
F76D, 85 31 STA $31 setzen 
F76r} A5 55 LDA $55 letztes Halbbyte aus 
F771 29 OF AND #$0F letzem Binärbyte holen 
F773 AA TAX und merken 
F774 BD 7TF F7LDA $F77F,X dazu passenden GCR-Wert ermitteln 
F777 05 5A ORA $5A und in letztes GCR-Byte einblenden 
F779 91 30 STA ($30),Y Byte in Puffer schreiben 
F77TB C8 INY Pufferzeiger auf nächstes Byte setzen 
F77C 84 34 STY $34 und merken 
FTTE 60 RTS zurück zur aufrufenden Routine 


LF6ET/F6EE/F7O7/F714/F72E/F742/F756/F774) 
F’7’F OA OB 12 13 DE OF 16 17 Tabelle der den 16 Halbbytes 
F787 09 19 iA 1B OD 1D 1E 15 entsprechenden 5-Bit-GCR-Bytes 
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[9706/9BA3/YC20/F586/F69D/FCA7] 
Pufferinhalt von Binär- in GCR-Bytes umwandeln 


F7’EF A9 00 LDA #500 Low-Bytes der Zeiger auf Null setzen : 

F791 85 30 STA $30 Zeiger auf aktuellen GCR-Puffer 

F793 85 2E STA $%2E Zeiger auf aktuellen Binärpuffer 

F795 85 36 STA $36 Zeiger in aktuelle Pufferposition 

F797 A9 BB LDA #$BB Low-Byte für Zeiger auf 

F799 85 34 STA $34 Zusatzpuffer setzen 

F79B 85 50 STA $50 Flag für '!Puffer in GCR-Code! setzen 

F79D AS 31 LDA $31 Zeiger auf aktuellen Datenpuffer 

F’/YF 85 2F STA $2F setzen 

F7TAI AY 01 LDA #801 Zeiger auf Zusatzpuffer (High-Byte) 

FTA3 85 31 STA $31 einrichten 

FrA5 A5 47 LDA $47 Kennzeichen für Datenblock 

FTA7T 85 52 STA $52 als erstes wmzurechnendes Zeichen setzen 

F7A9Y AL 36 LDY $36 Pufferzeiger holen 

FTAB B1 2E LDA ($2E),Y Datenbyte aus Puffer holen und als 

F7TAD 85 53 STA $53 erstes umzuwandelndes Zeichen merken 

F’TAF CB INY Pufferzeiger erhöhen 

F7BO B1 2E LDA ($2E),Y nächstes Datenbyte holen und als 
 F7B2 85 54 STA $54 zweites umzuwandeldes Byte merken 

F7B4 C8 INY -  Pufferzeiger auf nächstes Zeichen setzen 

F7B5 B1 2E LDA ($2E),Y und Byte aus Datenpuffer holen und als 

F7B7 85 55 STA $55 drittes umzuwandelndes Byte speichern 

F/B9_ CB INY Pufferzeiger auf nächstes Byte setzen 

Freal 84 36 STY $36 und merken 

F7BC 20 DO F6  JSR $F6DO 4 Binärbytes in 5 GCR-Bytes umwandeln 

F’TBF A4 36 LDY $36 Pufferzeiger wieder holen 

F7C1 B1 2E LDA ($2E),Y nächstes umzuwandelndes Byte holen 

F7C3 85 52 STA $52 und im Zwischenspeicher merken 

F7C5 C8 INY Pufferzeiger auf nächstes Zeichen setzen 

F7C6 FO 11 BEQ $F7D9 Ende des Zwischenpuffers erreicht ? 

F’C8 B1 2E LDA ($2E),Y zweites umzuwandelndes Datenbyte holen 

F’TCA 85 53 STA $53 und merken 

F’CC C8 INY Pufferzeiger erhöhen 

F’CD B1 2E LDA ($2E),Y drittes umzuewandelndes Byte holen 

F’CF 85 54 STA $54 und in GCR-Puffer speichern 

F’DI CB INY Pufferzeiger auf nächstes Byte setzen 

F’D2 B1 2E LDA ($2E),Y viertes umzuwandelnndes Byte holen 

F7D4 85 55 STA $55 und merken 


F7D6 CB INY Pufferzeiger auf nächstes Zeichen setzen 


530 


F7D7 
F7D9 
F7DB 


DO E1 
AS 3A 
85 53 
A9 00 
85 54 
85 55 
4C DO F6 


BNE $F7BA 
LDA $3A 
STA $53 


LDA 
STA 
STA 
JMP 


#500 
$54 
$55 
$F6DO 


Das Disk-Operating-System (DOS 


ganzer Puffer umgewandelt ? 

Prüfsumme des Datenblocks 

merken 

und restlichen GCR-Arbeitspuffer 

mit Füllwerten 

belegen 

4 Binärbytes in 5 GCR-Werte umrechnen 


[BF2D/FAAY/FABB/F6OA/FE2A/FEAF/FEFA/FY0OE] vgl. 98D9 
5 GCR-Bytes in 4 Binärbytes umwandeln 


F7E6 
F7E8 
F7EA 
F7EC 
F7ED 
F7EE 
FTEF 
F7F1 
F7F3 
FTF5 
F7F6 
F7F7 
F7FY 
F’FA 
F7FC 
F7FE 
F800 
- F802 
F804 
F806 
F807 
F808 
F809 
F8OB 
F8OD 
F8OF 
F811 
F812 
F814 
F816 
F818 


A4 34 
B1 30 
29 F8 
4A 
4A 
4A 
85 56 
B1 30 
29 07 
OA 
DA 
85 57 
c8 
DO 06 


B1 30 


B1 30 


LDY 
LDA 
AND 
LSR 
LSR 
LSR 
STA 
LDA 
AND 
ASL 
ASL 
STA 
INY 
BNE 
LDA 
STA 
LDY 


LDA ($30),Y 


AND 
ROL 
ROL 
ROL 
ORA 
STA 
LDA 
AND 
LSR 
STA 
LDA 
AND 
ASL 


$34 
($30),Y 
#SF8 

A 

A 

A 

$56 
($30),Y 
#507 


#5C0 
A 


> 


$57 
($30),Y 
#S3E 


($30),Y 
#501 
A 


Pufferzeiger wieder holen 

erstes Byte aus Puffer holen 

und 5-Bit-GCR-Wert 

isolieren 

dann daraus 8-Bit-Wert herstellen, 
wobei die 5 GCR-Bits die 

Positionen 0-4 belegen und Wert merken 
zweites Byte aus Puffer holen 

und 3 Bits des nächsten GCR-Bytes 
isolieren und in die Bitposition 0-4 - 
verschieben 

entstandenes reines GCR-Byte merken 
Pufferzeiger auf nächstes Zeichen setzen 
Ende des Puffers erreicht ? 

Zeiger auf aktuellen 

Datenpuffer herstellen 

Zeiger auf Pufferposition 

zweites GCR-Byte holen 

und restliche 2 Bits des GCR-Werts 
holen und in richtige 


Position (Bit0-1) 


verschieben 

ersten Teil einblenden 

GCR-Wert merken 

GCR-Byte aus Puffer holen 

nächsten GCR-Wert herstellen 

und in Ausgangsposition setzen 

Wert merken 

nächstes GCR-Byte holen 

und ersten Teil des nächsten GCR-Werts 
holen 
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F819 OA ASL A Bit in Position 4 

F81A OA ASL A des Bytes 

F81B OA ASL A verschieben 

FöiC 85 59 STA $59 und Wert merken 

F81E C8 INY Zeiger auf nächstes Byte setzen 
F81IF B1 30 LDA ($30),Y und GCR-Byte aus Puffer holen 
F821 29 FO AND #%$F0 zweiten Teil des GCR-Werts 
F823 4A LSR A holen und 

F824 4A LSR A in die untere Hälfte 

F825 4A LSR A des Bytes (Position 0-3) 

F826 4A LSR A verschieben 

F827 05 59 ORA $59 vorheriges Bit einblenden 

F829 85 59 STA $59 und GCR-Wert merken 

F82B Bi 30 LDA ($30),Y GCR-Byte nochmal aus Puffer holen 
F82D 29 OF AND #$0F und jetzt die ersten 4 Bits 
F82F OA ASLA des nächsten GCR-Werts holen 
F830 85 5A STA $5A und merken 

F832 C8 INY Pufferzeiger auf nächstes Byte 
F833 B1 30 LDA ($30),Y GCR-Byte aus Puffer holen 

F835 29 80 AND #880 und letztes Bit des 

F837 18 CLC vorhergehenden 

F838 2A ROL A  GCR-Wertes holen 

F839 2A ROL A Bit in Position O des Bytes 
F83A 29 01 AND #%01 verschieben und 

F83C 05 5A ORA $5A vorherige 4 Bits einblenden 
F83E 85 5A STA $5A GCR-Wert merken 

F840 Bi 30 LDA ($30),Y GCR-Byte nochmal aus Puffer holen 
F842 29 7C AND #$7C GCR-Wert isolieren 

F844 4A LSR A und in Position 0-4 

F845 4A LSR A des Bytes verschieben 

F846 85 5B STA $5B Wert merken 

F848 Bi 30 LDA ($30),Y GCR-Byte nochmal holen 

F84A 29 03 AND #$03 und 2 Bits des 

F84C OA ASL A nächsten GCR-Werts holen 

F84D OA ASL A Bits in Position 3 und 4 

F84E DA ASLA verschieben 

FB4F 85 5C STA $5C Wert merken 

F851 C8 INY Pufferzeiger auf nächstes Byte 
F852 DO 06 BNE $F85A Ende des Puffers erreicht ? 
F854 AS 4E LDA $4E Pufferzeiger auf aktuellen 


F856 85 31 STA $31 Datenpuffer richten 
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F858_ A4 AF LDY $4F Positionszeiger wieder holen 
F85SA B1 30 LDA ($30),Y GCR-Byte aus Puffer lesen 
F85C 29 EO AND #$E0 und restliche 3 Bits des vorhergehenden 
F8SE 2A ROL A GCR-Werts isolieren 
F8SF 2A ROL A | Bits in Position 0-2 
F860 2A ROL A verschieben 
F861 2A ROL A (durch Carry) 
F862 05 5C ORA $5C vorherige 2 Bits einblenden 
F864 85 5C STA $5C reinen GCR-Wert merken 
F866 B1 30 LDA ($30),Y Byte aus GCR-Puffer holen 
F868 29 1F AND #$1F letzten GCR-Wert isolieren 
F86A 85 5D STA $5D und merken 
F86C C8 INY Pufferzeiger auf nächstes Byte 

. F86D 84 34 STY $34 und merken 
F86F A6 56 LDX $56 erstes 5-Bit-GCR-Byte laden 
F871 BD AO F8 LDA $F8A0,X und äquivalenten höherwertigen Teil 
F874 A6 57 LDX $57 mit dem niedernertigen Teil, der durch 
F876 1D CO F8 ORA $F8C0,X das zweite GCR-Byte bestimmt wird, 
F879 85 52 STA $52 verknüpfen und als Binärbyte merken 
F87B A6 58 LDX $58 drittes 5-Bit-GCR-Byte laden 
F87D BD AO F8 LDA $F8A0,X und äquivalenten höherwertigen Teil 
F880 A6 59  LDX $59 mit dem niederwertigen Teil, der durch 
F882 1D CO F8 ORA $F8C0,X das vierte GCR-Byte bestimmt wird, 
F8855 85 53 STA $53 verknüpfen und als Binärbyte merken 
F887 A6 5A LDX $5A fünftes 5-Bit-GCR-Byte laden 
F889 BD AO F8 LDA $F8A0,X und äquivalenten höherwertigen Teil 
F88C A6 5B LDX $5B mit dem niederwertigen Teil, der durch 
F88E 1D CO F8 ORA $F8C0,X das sechste GCR-Byte bestimmt wird, 
F891 85 54 STA $54 verknüpfen und als Binärbyte merken 
F893 A6 5C LDX $5C siebtes 5-Bit-GER-Byte laden 
F895 BD AO F8 LDA $F8AO,X und äquivalenten höherwertigen: Teil 
F898 A6 5D LDX $5D mit dem niederwertigen Teil, der durch 
F89A 1D CO F8 ORA $F8C0,X das achte GCR-Byte bestimmt wird, 
F89D 85 55 STA $55 verknüpfen und als Binärbyte merken 
FEYF 60 RTS zurück zur aufrufenden Routine 


F8AO FF FF FF FF FF FF FF FF Tabelle der höherwertige Teile 

F8A8 FF 80 00 10 FF CO 40 50 der zu den GCR-Werten äquivalenten 
F880 FF FF 20 30 FF FO 60 70 Binärbytes; $FF bedeutet, daß dieser 
F8B8 FF 90 AO BO FF DO EO FF GCR-Wert nicht definiert ist 
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F8CO FF FF FF FF FF FF EFF FF Tabelle der niederwertigen Teile 
F8C8 FF 08 00 01 FF OC 04 05 der zu den GCR-Werten äquivalenten 
F8DO FF FF 02 03 FF OF 06 07 Binärbytes; $FF bedeutet, daß dieser 
F8D8 FF 09 OA OB FF OD OE FF GCR-Wert nicht definiert ist 
[BF24/F4ED]J vgl. 9965 

Zusatzpuffer von GCR nach Binär umwandeln 


F8EO AY 00 LDA #800 . Zeiger auf aktuelles GCR-Byte 

F8E2 85 34 STA $34 zurücksetzen 

F8E4 85 2E STA $2E Zeiger auf Zielpuffer löschen 

F8E6 85 36 STA $36 Zeiger auf akt. Datenposition 

F8E8 AY 01 LDA #501 Zeiger $4E/$4F auf den 

F8EA 85 4E STA $4E Beginn des Zusatzpuffers 

F8EC A9Y BA LDA #$BA von $01BB-$O1FF 

F8EE 85 4F STA $4F setzen 

F8FO AS 31 LDA $31 Pufferzeiger auf Wert des aktuellen 
F8F2 85 2F STA $2F Datenpuffers setzen 

F8F4 20 E6 F7JSR $F7E6 5 GCR-Bytes in 4 Binärbytes umwandeln 
F8F7 AS 52 LDA $52 erstes umgewandeltes Byte 

F8F9 85 38 STA $38 als Headerblockkennzeichen sezten 
F8FB A4 36 LDY $36 Zeiger in Puffer setzen 

F8FD A5 53 LDA $53 zweites umgewandeltes Byte 

FöFF 91 2E STA ($2E),Y in aktuellen Datenpuffer schreiben 
F901 C8 INY drittes 

F902 AS 54 LDA $54 umgewandeltes Byte 

F904 91 2E STA ($2E),Y in aktuellen Datenpuffer schreiben 
F906 C8 INY viertes 

F907 AS 55 LDA $55 umgewwandeltes Byte 

F909 91 2E STA ($2E),Y in aktuellen Datenpuffer schreiben 
FYOB, C8 :INY Pufferzeiger auf nächstes Byte 
roocl 84 36 STY $36 setzen und merken 

FYOE 20 E6 F7_JSR $F7E6 5 GCR-Bytes in 4 Binärbytes umwandeln 
F911 AL 36 LDY $36 Pufferzeiger wieder holen 

F913 AS 52 LDA $52 erstes umgewandeltes Byte 

F915 91 2E STA ($2E),Y in aktuellen Datenpuffer schreiben 
F917 C8 INY Pufferzeiger auf nächstes Byte setzen 
F918 FO 11 BEQ $FY2B Datenpuffer voll ? 

FYIA AS 53 LDA $53 nein, zweites umgewandeltes Byte 
F9IC 91 2E STA ($2E),Y in aktuellen Datenpuffer schreiben 
FYIE CB INY drittes umgewandeltes 


FYIF AS 54 LDA $54 Byte in den 
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F921 91 2E STA ($2E),Y aktuellen Datenpuffer schreiben 

F923 C8 INY viertes umgewandeltes 

F924 AS 55 LDA $55 Byte in den 

F926 91 2E STA ($2E),Y aktuellen Datenpuffer schreiben 

F928 CB INY Pufferzeiger auf nächstes Byte setzen 

F929 DO EI BNE $FYOC Datenpuffer bereits voll ? 

F92Bl A5 53 LDA $53 ja, dann zweites umgewandeltes 

F92D 85 3A STA $3A Byte als Prüfsumme (Parity) merken 

F92F AS 2F LDA $2F Zeiger auf aktuellen Datenpuffer 
F931 85 31 STA $31 wieder herstellen 

F933 60 RTS zurück zur aufrufenden Routine 

[972E/BFIB/F533] | 

Sektorheader in GCR-Bytes umwandeln 

F934 AS 31 LDA $31 Zeiger auf aktuellen Datenpuffer 

F936 85 2F STA $2F übernehmen 

F938 AY 00 LDA #$00 Datenzeiger auf Headerpuffer 

F93A 85 31 STA $31 richten 

F93C AI 24 - LDA #$24 der bei $24 

FY3E 85 34 STA $34 beginnt 

F94O AS 39 LDA $39 Kennzeichen für Blockheader (8) 

F942 85 52 STA $52 in Zwischenspeicher für GCR-Routine 

F944 AS IA LDA $1A Prüfsumme des Blockheaders 

F946 85 53 STA $53 in Zwischenspeicher für GCR-Routine 

F948 AS 19 LDA $19 Sektornummer des Datenblocks 

F9LA 85 54 STA $54 in Zwischenspeicher für GCR-Routine 

F94LC AS 18 LDA $18 Spurnummer des Datenblocks 

F9LAE 85 55 STA $55 in Zwischenspeicher für GCR-Routine 

F950 20 DO F6 JSR $F6DO 4 Binärbytes in 5 GCR-Bytes umwandeln 

F953 AS 17 LDA $17 zweites Zeichen der ID 

F955 85 52 STA $52 in Zwischenspeicher für GCR-Routine 

F957 AS 16 LDA $16 erstes Zeichen der ID 

F959 85 53 STA $53 in Zwischenspeicher für GCR-Routine 

F95B AY 00 LDA #800 Zwischenspeicher für GCR-Routine 

F95D 85 54 STA $54 mit zwei Leerbytes 

F9SF 85 55 STA $55 auffüllen 

F961 20 DO F6 | JSR $F6DO 4 Binärbytes in 5 GER-Bytes umwandeln 

F964 AS 2F LDA $2F aktuellen Datenpufferzeiger 

F966 85 31 STA $31 wieder herstellen 


F96B 60 RTS zurück zur aufrufenden Routine 
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[BF12/F2D5/F390/FA0D/FA2O/FAFB/F507/F553/F583/F6C7/FDAO/FDE2] vgl. 9985 
aktuellen Job beenden; Fehlerrückmeldung bereitstellen 


F969 
FY6B 
FY6E 
F970 
F972 


A4 3F 
99 00 00 
A5 50 
FO 03 
20 F2 F5 
20 8F FY 
A6 49 


[Y2F5/F2DF] 
Laufwerksmotor einschalten; warten bis Motor konstant läuft 


FYTE 
. F980 
F982 
F985 
F987 


[8SCF/98C1/F975] 


A9 AD 
85 20 
AD 00 IC 
09 04 
8D 00 IC 


LDY $3F 


STA $0000,Y 


LDA $50 
BEQ $F975 
JSR $F5F2 
JSR $FY8F 
LDX $49 
TXS 

JMP $F2BE 


LDA #$A0 
STA $20 
LDA $1C00 
ORA #804 
STA $1C00_ 
LDA #$32 
STA $48 
RTS 


Laufwerksmotor ausschalten 


FYBF 


A6 3E 
A5 20 
09 10 
85 20 
4C 2B A6 


LDX $3E 
LDA $20 
ORA #810 
STA $20 
JMP $A62B 


Puffernummer des Jobs 
Fehlerrückmeldung in Befehlsregister 
Flag für GCR-Format 

Daten noch im GCR-Code ? 

ja, GCR-Daten umwandeln 
Laufwerksmotor ausschalten 
Zwischenspeicher für Stack 

Stack wieder zurücksetzen 

zur Abfrage, ob neuer Job vorliegt 


Flag für 'Motor läuft an’ 
als Laufwerksstatus setzen 
Steuerregister holen 

und Motorbit (Bit2) 


“auf '!Motor an! (=1) setzen 


zähler für 0.8 / 0.4 sek. 
Verzögerung setzen 
zurück zur aufrufenden Routine 


aktuelles Laufwerk 
Laufwerksstatus holen und 

Flag für Motor ausschalten 
setzen 

Zähler für Nachlaufzeit setzen 


unbenutztbenutzt [entsteht durch 
Modifizierung des 1541-ROM] 


[BF6F/F2E6/F2FO/F2F6/F31D/FABA/FAF2/FAFD/FDY3/FDD8] 
Hauptsteuerroutine des Diskkontrollers 


FY9IC 
FYYF 
FYA2 
FYAS 
F9A7 


AD 07 IC 
8D 05 IC 
AD 00 1C 
29 10 
c5 IE 


LDA $1C07 
STA $1C05 
LDA $1C00 
AND #810 

CMP $1E 


Timer mit Anzahl der Taktzyklen 
(High-Byte) bis zum nächsten IRQ setzen 
Prüft Zustand der Lichtschranke für 
Schreibschutz um Diskettenwechsel 
festzustellen 


85 


1E 


AC 34 A6 


STA $1E 
JMP $A634 
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Schreibschutzstatus merken 
Motor anschalten 


unbenutzter 
Teil „ der durch Modifizierung 
des 1541-ROMS entstand 


[A657] 


Kopf steuern 
AD FE 02 


F9B1 
FIB4 
F9B6 
F9B8 
F9BA 
FIYBC 
FYBF 
oc l 
F9C3 
F9C5 
F9CE 
FYCB 
 FYCD 
FYCF 
F9D1 
F9D2 
F9D4 
F9D6 
F9DY 
F9DB 
F9DD 
F9DE 
FYEO 
F9E2 
FoE4 1 
FYE6 
FYEB 
FYEA 
FYEC 
FYED 
FYFO 


FO 
cY 
DO 
A9 
8D 
FO 
85 
A9 
8D 
4Cc 


02 


FA 


87 


LDA $02FE 
BEQ $FICB 
CMP #802 
BNE $F9C1 
LDA #800 
STA $02FE 
BEQ $FICB 
STA $4A 
LDA #802 
STA $O2FE 
JMP $FA2E 
LDX $3E 
BMI $F9D6 
LDA $20 
TAY 

CMP #820 
BNE $F9D9 
JMP $FABE 
DEC $48 
BNE $FYFA 
TYA 

BPL $FIE4 
AND #$7F 
STA $20 
AND #810 
BEQ $FYFA 
DEC $35 
BNE $FYFA 
NOP 

JSR $8770 
LDA #$FF 


Flag für Zustand des Steppermotors 

ist der Kopf auf der angewählten Spur ? 
nein, ist der Kopf gerade auf 

die angewählte Spur positioniert worden? 
ja, Flag für 'Kopf auf Spur! 

setzen 

immer Sprung nach $F9CB 

Zähler für Anzahl der Halbschritte 
Flag für Kopfstatus 

auf 'Kopf auf Spur! setzen und einen 
Halbschritt weiter auf angewählte Spur 
Zustand des Laufwerksmotors 

Läuft Motor ? 

Ja, prüfe Flag für Laufwerksstatus 
merken 

Motor an und auf: 

konstanter Drehzahl ? 

Elektronik initialisieren 
Verzögerungszähler für Anlaufen des 
Motors; Motor auf Drehzahl ? 

ja, Drivestatus wieder holen 

Laufwerk bereit ? 

nein, Flag für Motor-Anlaufphase 
Löschen und merken 

Bit für 'Motor läuft aus! testen 
aktiv ? 

ja, Zahl der Jobschleifenaufrufe 
soll Stepper nochmal bediehnt werden ? 
nein, Laufwerksmotor 

ausschalten 

Flag für Laufwerk aktiv 
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FYF2 85 3E 
FYF4 A9 00 
FYF6 85 20 
FYFB| FO DC 
FYFA” 98 

FYFB 29 40 
FYFD DO 03 


FYFF_ 4C BE FA 
FAO2° 6C 62 00 


STA $3E 

LDA #500 
STA $20 

BEQ $F9D6 
TYA 

AND #840 
BNE $FAO2 
JMP $FABE 
JMP ($0062) 


mögliche Routinenaufrufe : 


Kopfsteuerung initialisieren 


langsame Kopfbewegung 
Kopfbewegung beenden 
schnelle Bewegung einleiten 
schnelle Kopfbewegung 


Kopf aus Schnellmodus abbremsen 


Löschen 

Flag für Laufwerksstatus 

Löschen 

immer Sprung nach $F9D6 

Flag für Laufwerksstatus 

Flag für Stepperzustand isolieren 
Soll Kopf bewegt werden ? 

nein, 

ja, zur aktuellen Stepperroutine 


$FAOS 
SFA3B 
$FA4E 
$FATB 
SFA9T 
$FAAS 


[Einsprung über FA02] 
Initialisierungsroutine für Kopfbewegung 


FAO5 AS AA 
FAD7 10 05 
FAO9 49 FF 
FAOB 18 

FAOC, 69 01 
Faoel C5 64 
FA1O BO OA 
FAI2 A9 3B 
FAl4 85 62 
FA16 A9 FA 
FA18 85 63 
FAIA, DO 12 
Faicl 
FAIE ES 5E 
FA20 85 61 
FA22 AS 5E 
FA24 85 60 
FA26 A9 7B 
FA28 85 62 


LDA $4A 
BPL $FAOE 
EOR #$FF 
CLC 

ADC #$01 
CMP $64 
BCS $FAIC 
LDA #$3B 
STA $62 
LDA #$FA 
STA $63 
BNE $FA2E 
SBC $5E 
SBC $5E 
STA $61 
LDA $5E 
STA $60 
LDA #%7B 
STA $62 


Zahl der Halbschritte bis zur Spur 
Soll der Kopf nach innen bewegt werden ? 
Ja, dann Anzahl 

der Stepperschritte 

mit positivem Vorzeichen versehen 

auf Wert für 'Kopf auf SpurO! testen 
schnelle Kopfbewegung ? 

nein, Aufruf in $FA02 auf 

Routine für langsame Kopfbewegung 
setzen, indem Zeiger 

$62/$63 auf $FA3B gerichtet wird 

immer Sprung nach $FA2E 

Anzahl der Schritte für Motor anfahren 
und für Motor abbremsen (je 4) von den 
Gesamtschritten abziehen und merken 
Zeiger für Anzahl der Anfahrschritte 
setzen 

Aufruf in $FA0O2 auf Routine 

für schnelle Kopfbewegung 
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FAZA A9 FA -LDA #$FA setzen, indem der Zeiger 

FA2C, 85 63 STA $63 $62/%63 auf $FA7B gerichtet wird 
FA2ZE AS 4A LDA $4A Schrittzähler 

FA30 10 31 BPL $FA63 Bewegung nach innen ? 

FA32 4C 36 FF JMP $FF36 ja, Steppermotor ansteuern 

FA35 EA NOP unbenutzter 


FA37 ... EA NOP ROM - Bereich 


LFFTF] 
FA38 4C 69 FA JMP $FA69 


Stepper ansteuern 


[Einsprung über FAO2] 
Langsame Kopfbewegung für kurze Distanzen durchführen 


FA3B A5 4A LDA $4A Schrittzähler für Zahl der Halbschritte 
FA3D DO EF BNE $FA2E Zielspur erreicht ? 

FA3F A9 4E LDA #$4E Aufruf in $FA0O2 auf Routine 

FA41 85 62 STA $62 zum Beenden der Kopfbewegung 

FA43 AY FA LDA #$FA setzen, indem der Zeiger 

FA45 85 63 STA $63 $62/$63 auf $FA7B gerichtet wird 

FA47 A9 05 LDA #%05 Fünf Halbschritte zum Abstoppen 

FA4L9 85 60 STA $60 des Kopfes setzen 

FA4&B 4C BE FA JMP $FABE Byte Ready Flag bereitmachen 


[Einsprung über FA0O2] 
Beenden der Kopfbewegung 


FA4E 
FASO 
FA52 
FA54 
FA56 
FA58 
FASA 


LFA30] 


C6 60 
DO 6C 
AS 20 
29 BF 
85 20 
A9 05 
85 6&2 
A9 FA 
85 63 
4C BE FA 


DEC $60 
BNE $FABE 
LDA $20 
AND #%BF 
STA $20 
LDA #$05 
STA $62 
LDA #$FA 
STA $63 
JMP $FABE 


Steppermotor steuern 


FA63 
FA65 


C6 4A 
AE 00 1C 


DEC $4A 
LDX $1C00 


Zahl der Schritte zum Kopf abbremsen 
Bremsvorgang ausgeführt ? 

Flag für Laufwerksstatus 

Bitflag für Kopf in Bewegung 
zurücksetzen 

Aufruf in $FAO2 auf Routine 

zur Initialisierung für Kopfbewegung 
setzen, indem der Zeiger 

$62/$63 auf $FAO5 gerichtet wird 
Byte Ready Flag bereitmachen 


Zahl der Halbspurschritte 
Steuerport für Steppermotor 
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FA68 
FA69 
FASA 
FA6SC 
FASE 
FA71 


1 


Ed 

8A 

29 03 

85 4B 

AD 00 IC 
29 FC 

05 4B 

8D 00 IC 
4C BE FA 


INX 

TA 
AND #%03 
STA $4B 
LDA $1C00 
AND #$FC 
ORA $4B 
STA $1C00 
JMP $FABE 


Kopf nach außen bewegen indem die 
Stepperbits 0 und 1 aufwährts gezählt 
werden; Steuerbits isolieren 

und merken 

Laufwerk-Steuerregister holen und 
Steppermotorbits löschen 

vorher berechnete Bits einblenden 

und Steppermotor ansteuern 

Byte Ready Flag bereitmachen 


[Einsprung über FAO2] 
Schnelle Kopfbewegung vorbereiten und Kopf anfahren 


FA7B 38 SEC Zeitkonstante 

FA’C AD 07 IC LDA $1C07 bis zum nächsten Aufruf 

FATF ES 5F SBC $5F um Anfahrkonstante (4) erniedrigen, 
FA8I 8D 05 IC STA $1C05 um schnellere Stepperimpulse zum 
FA8L C6 60 DEC $60 Anfahren zu liefern 

FA8B6 DO OC BNE $FA94 Bereits vier Anfahrimpulse gegeben ? 
FA88 A5 5E LDA $5E ja, Zähler für späteres Abremsen 
FABA 85 60 STA $60 setzen 

FA8C A9Y 97 LDA #$97 Aufruf in $FA02 auf Routine 

FA8E 85 62 STA $62 zum schnellen Kopfbewegen 

FA9O A9 FA LDA #$FA setzen, indem der Zeiger 

FA92 , 85 63 STA $63 $62/$63 auf $FA97 gesetzt wird 


FA94 AC 2ZE FA  JMP $FAZE 


Kopf bewegen 


[Einsprung über FA02] 
Schnelle Kopfbewegung durchführen 


FA97 C6 61 DEC $61 zähler für Halbschritte 

FA99 DO FY BNE $FA94 am Ziel angelangt ? 

FA9B A9 A5 LDA #$A5 ja, Aufruf in $FA02 auf Routine 
FA9D 85 62 STA $62 zum Abbremsen des Kopfs 

FA9F A9 FA LDA #$FA setzen, indem Zeiger 

FAA1 85 63 STA $63 $62/$63 auf $FAA5 gesetzt wird 
FAA3 DO EF BNE $FA94 immer Srung nach $FA94 


[Einsprung über FA0O2] 
Abbremsen des Kopf nach schneller Bewegung 


FAAS AD 07 IC LDA $1C07 Zeitkonstante bis zum nächsten Aufruf 
FAA8 18 | CLC vergrößern, damit die Stepperimpulse 
FAA9 65 5F . ADC $5F zum Abbremsen langsamer werden, um ein 
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FAAB 8D 05 1C  STA $1C05 _  tüberlaufen' der Spur zu verhindern 


FAAE C6 60 _ DEC $60 Zähler für Bremsimpulse 

FABO DO E2 BNE $FA9I4 fertig abgebremst ? 

FAB2 A9 4E LDA #4E . ja, Aufruf in $FA02 auf Routine 
FAB4 85 62 STA $62 - zum Beenden des Kofptransport 
FAB6 A9 FA LDA #FA „setzen, indem der Zeiger 

FAB8 85. 63 STA $63 $62/$63 auf $FA4E gerichtet wird. 
FABA A9 05 LDA #$05 | Anzahl der Bremsimpulse 

FABC 85 60 STA $60 neu setzen 


LF9YD6/FYFF/FAAB/FASO/FA60/FA78/FF74] 


FABE AD OC 1C ° LDA $iCOc Schreib-/Leseelektronik initialisieren 
FAC1 29 FD AND #$FD indem Bit 1 (Byte Ready Flag) 

FAC3 8D OC IC STA $IcOc zurückgesetzt wird 

FAC6 60 RTS zurück zur aufrufenden Routine 


Diskette im 1541-Format formatieren 
Der Einsprung erfolgt über ($0600), wodurch man auch eigene 
Vorprogramme einbauen kann 


FAC7 AS 51 LDA $51 Nummer der aktuellen Spur 

FAC9 10 2A BPL $FAF5 Formatiervorgang bereits gestartet ? 
FACB A6 3D LDX $3D nein, Nummer des aktuellen Laufwerks 
FACD A9Y 60 LDA #860 holen und in Flag für Laufwerksstatus 
FACF 95 20 STA $20,X Flag für Kopfbewegung setzem (Bit 6/5) 
FADI A9Y 01 LDA #801 Spur 1 als Startspur an Diskkontroller 
FAD3 95 22 STA $22,X übergeben und | 

FAD5 85 51 STA $51 merken 

FAD7 AI A4 LDA #$A4 Kopf 46 Spuren (bis zum Anschlag) nach 
FADI 85 4A STA $4A außen bewegen 

FADB AD 00 1C LDA $1C00 Steuerbits für Steppermotor 

FADE 29 FC AND #$FC Löschen und an Stepper 

FAEO 8D 00 IC STA $1C00 übergeben . 

FAE3 A9 OA LDA #$0A max. Zahl der Formatierversuche 

FAES 8D 20 06 STA $0620 setzen | 
FAE8 A9 AO LDA #$AO Startwert für angenommene. Spurkapazität 
FAEA 8D 21 06 STA $0621 in $0621/$0622 auf $OFAO | 
FAED A9 OF LDA #$0F gleich 4000 Bytes Kapazität 

FAEF 8D 22 06 STA $0622 setzen | 

FAF2, 4C 9C F9 JUMP $FYYC Kopf auf Spur bewegen 

FArS| AO 00 LDY #$00 aktuelle Spurnummer mit 


FAF7T_D1 32 CMP ($32),Y zwischengespeichertem Wert vergleichen 
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FAF9 FO 05 BEQ $FBOO noch die gleiche Spur in Bearbeitung ? 
FAFB 91 32 STA ($32),Y nein, aktuelle Spurnummer merken 
FAFD,. 4C 9C F9 JUMP $FIIC Kopf auf neue Spur bewegen 
FBOON AD 00 1C LDA $1C00 Steuerregister holen 
FBO3 29 10 AND #$10 und Write Protect (Bit4) prüfen 
FBO5 DO 05 BNE $FBOC _  Schreibschutz vorhanden ? 
FBO7 A9 08 LDA #808 ja, Fehlermeldung 
FB09_ 4C D3 FD JMP $FDD3 126 Write Protect On! ausgeben 
FBOC“ 20 A3 FD USR $FDA3 gesamte Spur mit $FF beschreiben. 
FBOF 20 C3 FD UJSR $FDC3 Erwartete Spurkapazität mit $FF füllen 
"FB12 955 LDA #855 und dann mit der gleichen Anzahl 
FB14 8D 01 IC STA $1C01 $55-Bytes beschreiben 
FB17 20 C3 FD JSR $FDC3 die Kapazität ist in $0621/$622 vermerkt 
FBIA 20 00 FE JSR $FEOO Kopf auf Lesebetrieb umschalten 
FB1D 20 56 F5_ JSR $F556 auf erste $FF Bytes (Sync) warten 
FB20 A9 40 LDA #840 Bei Ablauf von Timer 1 
FB22 OD OB 18 ORA $180B wird an PB7 (ATN-Eingang) 
FB25 8D OB 18 STA $180B ein Impuls erzeugt 
FB28 A9 62 LDA #862 Zeitgeber 1 auf 
FB2A 8D 06 18 STA $1806 eine Ablaufzeit von 
FB2D A9 00 LDA #800 62 Taktimpulsen 
FB2F 8D 07 18 STA $1807 programmieren 
FB32 8D 05 18 STA $1805 Timer 1 starten 
FB35 AO 00 LDY #800 zähler 
FB37_ A2 00 LDX #800 Löschen 
rB3o] 2C 00 IC BIT $1C00 Sync-Flag testen 
FB3C. 30 FB BMI $FB39 warten bis Sync-Signal vorbei ist 
rel 2C 00 IC BIT $IC0OO ___Sync-Flag überprüfen | 
FB41_ 10 FB BPL $FB3E warten bis Sync-Bereich wieder kommt 
FB4A3 AD 04 18 LDA $1804 aktuellen Zählerstand von Timer 1 holen 
FB46 2C 00 IC BIT $1CO00 Sync-Flag testen 
FB49 10 11 BPL $FB5C ist Syncbereich jetzt vorbei ? 
FB4B AD OD 18 LDA $180D nein, Interruptflags holen 
FB4E OA ASL A und Flag für 'Timer 1 abgelaufen! testen 
FBAF 10 F5 BPL $FB46 ist die Zeit zu Ende ? 
FB51 E8 INX ja, Zähler erhöhen 
FB52 DO EF BNE $FB43 ist ein Übertrag entstanden ? 
FB54 CB INY | ja, High-Byte des Zählers korregieren 
FB55 DO EC BNE $FB43 ist zähler übergelaufen ? 
FB57 A9 02 LDA #202 ja, Fehlermeldung 


FB59 4C D3 FD JMP $FDD3 ı20 Read Error! ausgeben 
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rescl 


FB5E 
FB6O 
FB62 
FB64 
FB67 
FB6A 
FB6C 
FB6F 
FB70 
FB72 
FB73 
FB75 
FB76 
FB78 
FB7A 
FB7D 
 FB7E 
FB7F 
FB81 
FB82 
FBB4 
FB85 
FB87 
FBBB 
FBBA 
FBSC 
FBBE 
FBF 
FB9O 
FB92 
FB93 
FB94 
FB96 
FB97Z 
FB9B 
FBYA 
FBIC 
FBIE 
FBAO 
FBA2 


86 71 
84 72 
A2 00 
AO 00 
AD 04 


STX $71 
STY $72 
LDX #800 
LDY #800 
LDA $1804 


BIT $1C00 


BMI $FB7D 
LDA $180D 
ASLA 
BPL $FB67 
INX 

BNE $FB64 
INY 

BNE $FB64 
LDA #802 
JMP $FDD3 
SEC 

TKA 
SBC $71 
TAX 

STA $70 
TYA 

SBC $72 
TAY 

STA $71 
BPL $FB97 
EOR #$FF 
TAY 

TXA 

EOR #$FF 
TAX 

INX 

BNE $FB97 
INY 

TYA 

BNE $FBIE 
CPX #804 
BCC $FBB6 
ASL $70 
ROL $71 
CLC 
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Anzahl der $55-Bytes 

merken 

Register für nächstes Zählen 

Löschen Ä 

Zählerstand von Timer 1 holen 
Sync-Flag prüfen 

ist Kopf über Sync Bereich ? 

nein, Interruptflags holen 

und Flag für 'Timer 1 abgelaufen! testen 
ist die Zeit zu Ende ? 

Ja, Zähler erhöhen 

ist ein Übertrag entstanden ? 

ja, High-Byte des Zählers korregieren 
ist Zähler übergelaufen ? 

ja, Fehlermeldung 

120 Read Error! ausgeben 

Differenz zwischen 

dem $55 Bereich und 

dem $FF Bereich | 

‚berechnen und 

in Zeiger $70/$71 zur 

Bestimmung der reellen 

Spurkapazität 

vermerken 

($71/72 von X/Y abziehen und in $70/71) 
ist Wert negativ ? 

Ja, 2-er Komplement des Wertes 

bilden 

(ergibt Absolutwert) 

Low-Byte komplementieren | 

und merken 

2-er Komplement bilden 

ist ein ein Übertrag entstanden ? 

Ja, High-Byte korregieren 

und holen 

ist Wert in X/Y kleiner 256 ? 

ja, Low-Byte (X) mit 4 vergleichen 
Kapazität der Spur auf 4 Bytes genau ? 
nein, Wert der Spurkapazität 
verdoppeln | 
und erwartete Spurkapazität dazurechnen 
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FBA3 


FBAS 
FBA8 
FBAB 
FBAD 
_FBBO 
FBB3 
FBB6 
FBB8 
FBBA 
FBBB 
FBBE 
FBCO 
FBC2 
FBC3 
FBC4 
FBC6 
FBC7 
FBC9Y 
FBCB 
FBCE 
FBCF 
FBDO 
- FBD3 
FBD4 
FBD5 
FBD8& 
FBDA 
FBDD 
FBEO 
FBE2 
FBE5 
FBE7 
FBEI 
FBEA 
FBEB 
FBEE 
FBFO 
FBF1 
FBF2 
FBF3 


l 


1 


l 


l 


A5 
6D 
8D 
A5 
6D 
8D 
4C 
A2 
AO 
B8 
AD 
10 
50 
B8 
EB 
DO 
c8 


70 
21 
21 


25 


IC 


06 


LDA $70 

ADC $0621 
STA $0621 
LDA $71 

ADC $0622 
STA $0622 
JMP $FBOC 


LDX #800 


LDY #800 
CLV 

LDA $1C00 
BPL $FBCE 
BVC $FBBB 
CLV 
INX 
BNE 
INY 
BNE 
LDA #803 
JMP 
TXA 
ASL A 

STA $0625 
TYA 

ROL A 

STA $0624 
LDA #$BF 


AND $180B 


STA $180B 
LDA #866 
STA $0626 
LDX $43 
LDY #800 
TYA 

CLC 

ADC $0626 
BCC $FBFi1 
INY 

INY 

DEX 

BNE $FBEA 


Low-Byte holen und 

erwarteten Wert addieren 

neuen erwarteten Wert merken 
High-Byte holen 

und zu erwartetem Wert: 
dazurechnen' 

Spurkapazitat nochmal bestimmen 
zähler | 

Löschen 

Flag fur 'Byte Ready! bereit machen 
Flag für Sync-Signal testen 

ist Kopf über Sync-Bereich ? 
ja, auf nächstes Byte warten 
Byte Ready wieder bereit machen 
zähler erhöhen 

ist ein Übertrag entstanden ? 


ja, Highbyte des Zählers korregieren 


ist Zähler übergelaufen 

ja, Fehlernummer für '!'Sync not found! 
setzen; eventuell weiteren Versuch 
zähler verdoppeln und in $0625/$0624 : 
Low-Byte verdoppeln 

und merken 

High-Byte holen 

und mal zwei nehmen 

Wert merken 

Flag für 'Ablauf von Timer 1' 
Interruptflags holen 

und Flag zurücksetzen 

Zahl der Bytes die jeder Sektor 
zusätztlich zu den 256 Daten benötigt 
Zahl der Sektoren 

Indexwert für Zahl der 256 Byte Blöcke 
Startwert für Überschußrechnung (0) 
und dazu den Überschuß des Sektors 
anrechnen | 
sind weitere 256 Bytes nötig 

Index um 256 Bytes hochsetzen 

Index um 256 Bytes hochsetzen 
nächsten Sektor einrechnen 

sind alle Sektoren berücksichtigt ? 
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FBF5 49 FF 
FBF7 38 

FBF8 69 00 
FBFA 18 

FBFB £6D 25 06 
FBFE BO 03 
FC0O. CE 24 06 
rco3l AA 

FCO4 98 

FCO5 49 FF 
FC07 38 

FCO8 69 00. 
FCOA 18 

FCOB 6D 24 06 
FCOE 10 05 
FCIO A9 04 
FC12. 4C D3 FD 
rc1sl 
FC16 8A | 
FC17. A2 00 
Fc1ol 
FCIA E5 43 
FCIC BO 03 
FCIE 88 

FCIF. 30 03 
rc21l £8 

FC22. DO F5 
rc24] 8E 26 06 
FC27 EO 04 
'FC29 BO 05 
FC2B A9 05 
FC2D, 4C D3 FD 
rc30! 18 

FC31 65 43 
FC33 8D 27 06 
FC36 A9 00 
FC38 8D 28 06 
FC3B AO 00 
FC3D. A6 30 
FC3F" AS 39 
FC41 99 00 03 


EOR #$FF 
SEC 
ADC #800 
CLC | 
ADC $0625 
BCS $FCO3 
DEC $0624 
TAX 
TYA 
EOR #$FF 
SEC 
ADC #00 
CLC 
ADC $0624 
BPL $FC15 
LDA #804 
JMP $FDD3 
TAY 
TXA 
LDX #800 
SEC 
SBC $43 
BCS $FC21 
DEY 
BMI $FC24 
INX 
BNE $FC19 
STX $0626 
CPX #804 
BCS $FC30 
LDA #805 
JMP $FDD3 
CLC 
ADC $43 
STA $0627 
LDA #800 
STA $0628 
LDY #800 
LDX $3D 
LDA $39 
STA $0300,Y 
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ja, 2er Komplement (negativen Wert) 
der restlichen benötigten 

Bytes errechen 

und von Gesamtkapazität 

abziehen (addiere negativen Wert) 


' ist ein Borgen nötig ? 


ja, High-Byte korregieren 

Low-Byte der Kapazität merken 

Zahl der nötigen 256 Byte-Blöcke holen 

und davon 2er Komplement 

(negativer Wert) 

bilden 

Zahl der nötigen 256-Byte-Blocks 

von Gesamtkapazität abziehen 

reicht Spurkapazität aus ? 

nein, Fehlermeldung 'Block Not Found! 

ausgeben 

Zahl der noch übrigen Bytes 

holen | 

zähler für Zahl der Lückenbytes 

Zahl der übrigen Bytes 

durch Zahl der Sektoren teilen 

indem immer die Sektorenzahl von den 

Lückenbytes subtrahiert wird 

X zählt dabei wie oft das möglich ist 

Zahl der Lückennbytes erhöhen 

immer Sprung nach $FC19 

Zahl der Lückenbytes merken 

und mit 4 Bytes vergleichen 

ist Lücke kleiner ? 

ja, Fehlermeldung 

123 Read Error! ausgeben 

Zahl der Sektoren 

der Spur addieren 

und Wert merken 

zähler für 

geschriebene Sektoren zurücksetzen 
Zeiger für Blockheader erstellen in 

Puffer 1 löschen 

Kennzeichen für Blockheader (8) 

in Blockheader schreiben 
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FC44 C8 INY | Zeiger auf nächste Position setzen 
FC45 C8 INY Byte für Prüfsumme überspringen 
FC46 AD 28 06 LDA $0628 Nummer des aktuellen Sektors 
FC4A9 99 00 03 STA $0300,Y in Blockheader schreiben 
FCAC C8 INY Zeiger auf nächste Position setzen 
FC4D AS 51 LDA $51 Nummer der aktuellen Spur 
FCAF 99 00 03  STA $0300,Y in Blockheader übernehmen 
FC52 C8 INY Zeiger auf nächste Position setzen 
FC53 B5 13 LDA $13,X zweites Zeichen der ID 
FC55 99 00 03 STA $0300,Y in Blockheader schreiben 
FC58 C8 INY Zeiger auf nächste Position setzen 
FC59 B5 12 LDA $12,X erstes Zeichen der ID 
FC5B 99 00 03 STA $0300,Y in Blockheader übertragen 
FC5E C8 INY Zeiger auf nächste Position setzen 
FC5F A9 OF LDA #$0F Zweimal $0F (15) 
FC61 99 00 03 STA $0300,Y zum Auffüllen des 
FC64 CB INY - Blockheaders in 
FC65 99 00 03 STA $0300,Y . den Puffer 
FC68 C8 INY schreiben 
FC69 A9 00 LDA #%00 Prüfsumme von : 
FC6B 59 FA 02 EOR $O2FA,Y Spurnummer 
FC6GE 59 FB 02 EOR $0O2FB,Y Sektornummer 
FC71 59 FC 02 EOR $O2FC,Y zweites ID-Zeichen 
FC7A 59 FD 02 EOR $02FD,Y erstes ID-Zeichen 
FC77 99 F9 02 STA $O2F9,Y berechnen und im Blockheader setzen 
FC7A EE 28 06 INC $0628 Zähler für aktuelle Sektornummer 
FC7D AD 28 06 LDA $%0628 auf nächsten Sektor setzen und mit Wert 
FC80 05 43 CMP $43 der max. Sektornummer vergleichen 
FC82 90 BB BCC $FC3F schon alle Sektoren angelegt ? 
FC84 98 TYA ja, Zeiger auf aktuelle 
FC85 48 PHA Pufferposition retten 
FC86 E8 INX (1) 
FC87_ 8A TXA Datenblock herstellen 
Fcasl 9 00 05 STA $0500,X 1 in Puffer schreiben 

- FC8B EB INX Zeiger auf nächstes Byte setzen 
FCöOC DO FA BNE $FC88 Puffer voll ? 

: FC8E A9Y 03 LDA #$03 ja, Adresse $0300 als aktuelle 
FC90 85 31 STA $31 Pufferadresse setzen 
FC92 20 30 FE JSR $FE3O Pufferinhalt in GCR-Code umwandeln 
FC95 68 PLA “vorherige Pufferposition 


FC96 AB TAY wiederherstellen und Zeiger auf 


1C 


1C 


DEY 
JSR $FDES 
JSR $FOF5 
LDA #805 
STA $31 
JSR $F5E9 
STA $3A 
JSR $F7F 
LDA #800 
STA $32 
JSR $FEOE 
LDA #$FF 
STA $1c01 
LDX #805 
BVC $FCB8 
CLV 

DEX 

BNE $FCB8& 
LDX #$0A 
LDY $32 
BVC $FCC2 
CLV 

LDA $0300,Y 
STA $1C01 
INY 

DEX 

BNE $FCC2 
LDX #809 
BVC $FCD1 
CLV 

LDA #855 
STA $1C01 
DEX 

BNE $FCD1 
LDA #$FF 
LDX #805 
BVC $FCEO 
CLV 

STA $1C01 
DEX 

BNE $FCEO 
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Beginn des Blockheaders setzen 
Inhalt des Zusatzpuffers in den : 
Puffer ab $0300 verschieben 

$0500 als aktuelle 

Pufferadresse setzen 

Prüfsumme des Datenblocks errechnen 
und merken 

Datenblock in GER-Code umrechenen 
Zeiger auf aktuellen 

Blockheader initialisieren 

Spur mit $55 löschen 
Kennzeichen für Sync-Markierung 

an Schreibkopf übergeben 

Anzahl der Sync-Bytes 

Auf 'Byte Ready! warten 

Byte Ready Flag wieder bereit machen 
zähler erniedrigen 

schon alle Sync-Bytes auf Diskette ? 
Länge des Blockheaders 

Zeiger auf Position im Puffer 
Schreibelektronik bereit ? 

ja, Flag wieder herstellen: 
GCR-Bytes aus Puffer holen 

an Schreibkopf übertragen 
Pufferzeiger auf nächstes Zeichen 
Zahl der noch zu schreibenden Zeichen 
Header fertig geschrieben ? 

ja, Lücke zwischen Blockheader und 
Datenblock mit neun. 

Füllwerten ($55) 

beschreiben 

Byte an Schreibkopf übergeben 
Zähler für Zahl der Füllbytes 

Lücke fertig geschrieben ? 
Sync-Marke für den 

Datenblockheader auf Diskette schreiben 
Schreibelektronik bereit ? 

ja, Flag wiederherstellen 

Sync-Byte an Schreibelektronik 
zähler für Zahl der Sync-Bytes 
Sync-Markierung fertig geschrieben ? 
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FCE9_ A2 BB LDX #%BB Zeiger auf Beginn des Zwischenpuffers 
FCEB- 50 FE BVC $FCEB Schreibelektronik bereit ? 
FCED B8 CLV ja, Byte Ready Flag bereitmachen 
FCEE BD 00 01 LDA $0100,X Byte aus Puffer holen 
FCF1 8D 01 iC STA $1C01 und auf Diskette schreiben 
_FCF4 E8 INX Pufferzeiger auf nächstes Byte 
FCF5 DO FA BNE $FCEB . Puffer geschrieben ? 
FCF7_ AO 00 LDY #800 ja, Pufferzeiger auf Datenpuffer 
FCF9 50 FE BVC $FCF9 Schreibelektronik bereit ? 
FCFB B8 CLV ja, Byte Ready Flag bereit machen 
FCFC B1 30 LDA ($30),Y Byte aus Puffer 
FCFE 8D 01 IC STA $1C01 auf Diskette schreiben 
FDO1 C8 INY Zeiger auf nächstes Zeichen in Puffer 
FDO2 DO F5 BNE $FCF9Y schon ganzer Puffer geschrieben 
FDOL AY 55 LDA #855 Lücke zwischen zwei Datenblöcken füllen 
FDO6_ AE 26 06 LDX $0626 Anzahl der Bytes pro Lücke 
FDO9” 50 FE BVC $FDO09 Schreibelektronik bereit ? 
FDOB B8 CLV ja, Flag zurücksetzen 
FDOC 8D 01 IC STA $1C01 $55 zum Schreibkopf 
FDOF CA DEX Zähler für Anzahl der Füllbytes 
FD1O DO F7 BNE $FD09 Lücke fertig geschrieben ? 
FD12 AS 32 LDA $32 Pufferzeiger auf Position des. Headers 
FD1I4 18 CLC auf nächsten 
FD15 69 OA ADC #$0A Blockheader setzen 
FD17 85 32 "STA $32 und merken , 
FD19 CE 28 06 DEC $0628 Nummer des nächsten Sektors bilden 
FDIC, DO 93 BNE $FCB1 bereits alle Sektoren geschrieben ? 
FD1el 50 FE BVC $FDIE ja, auf nächstes Byte warten: 
FD20. B8 CLV Byte Ready Flag bereit machen 
FD21 50 FE BVC $FD21 aus nächstes Byte warten 
FD23 B8 CLV Byte Ready zurücksetzen: 
FD24 20 00 FE JSR $FEOO auf Lesebetriieb umschalten 
FD27 AI CB LDA #%C8 Zahl der Leseversuche: (200) 
FD29 8D 23 06 STA $0623 setzen . Ä 
FD2C A9 00 LDA #00 Pufferzeiger $30/$31 
FD2E 85 30 STA $30 auf Puffer 1: 
FD30 A9 03 LDA #$03 ($0300-$03 FF); 
FD32 85 31 STA $31 setzen 
FD34 A5 43 LDA $43 Zahl der Sektoren pro Spur 
FD36. 8D 28 06 STA $0628 merken 


Fo391 20 56 F5  JSR $F556 auf Sync-Markierung warten 
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FD3C A2 
FD3E_ AO 
FD40” 50 
FD42 BB 
FD43 AD 
FD46 DA 
FD48 DO 
FDAA C8 
FDAB CA 
FDAC DO 
FDAE 18 
. FDAF AS 
FD51 69 
FD53 85 
FD55_ 4C 
FD58> CE 
FD5B DO 
FD5D A9 
FD5F, 4C 
0621 20 
FD65_ AO 
FD67 50 
FD69 B8 
FD6A AD 
FD6ED D9 
FD7’0O DO 
FD72 C8 
FD73 DO 
FD75_ A2 
FD777 50 
FD79 BB 
FD7TA AD 
FD7D D9 
F080 DO 
FD82 C8 
FD83 CA 
FD84 DO 
FD86 CE 
FD89 DO 
FD8B E6 
FD8D AS 


DA 
00 


01 
30 
= 


F2 


LDX #$0A 
LDY #800 
BVC $FD4O 
CLV 

LDA $1E01 
CMP ($30),Y 
BNE $FD58 
INY 

DEX 

BNE $FD40 
CLC 

LDA $30 
ADC #$0A 
STA $30 
JMP $FD62 
DEC $0623 
BNE $FD2C 
LDA #806 
JMP $FDD3 
JSR $F556 
LDY #$BB 
BVC $FD67 
CLV 

LDA $1C01 
CMP $0100,Y 
BNE $FD58 
INY 

BNE $FD67 
LDX #$FC 
BVC $FD77 
CLV 

LDA $1C01 
CMP $0500,Y 
BNE $FD58 
INY 

DEX 

BNE $FD77 
DEC $0628 
BNE $FD39 
INC $51 
LDA $51 
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Anzahl der Bytes im Blockheader 
Pufferzeiger löschen 

Leseelektronik bereit ? 

ja, Flag wieder bereit machen 

Byte von Diskette lesen 

und mit Puffer vergleichen 

gesuchter Blockheader ? 

Zeiger auf nächstes Byte des Headers 
setzen 

letztes Byte des Headers verglichen ? 
Pufferadresse auf 

nächsten Blockheader 

im Pufferspeicher 

setzen 

weiter 

Zahl der Leseversuche 

letzter Versuch ? 

ja, Fehlermeldung 

ı24 Read Error! ausgeben 

auf Sync-Marke des Datenblocks warten 
Pufferzeiger auf Zwischenpuffer setzen 
Leseelektronik bereit ? 

ja, Byte Ready Flag zurücksetzen 
Byte von Diskette 

mit Pufferinhalt vergleichen 
Vergleich positiv ? 

ja, Pufferzeiger auf nächstes Byte 
bereits ganzer Puffer verglichen ? 
ja, Zähler für Bytes in Datenpuffer 
Leseelektronik bereit ? 

ja, Byte Ready Flag zurücksetzen 
Byte von Diskette lesen 

und mit Datenpuffer vergleichen 
Vergleich positiv ? 

ja, Zeiger auf nächstes Byte 

setzen 

letztes Zeichen des Puffers 

Zahl der Sektoren -1 der Spur 

alle Sektoren überprüft ? 

ja, Zähler für Spurnummer auf nächste 
Spur setzen und merken und 
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mit max. Spurnummer vergleichen 
Spur 35 erreicht ? u 

nein, weiter formatieren 

Flag für Formatierung zu 

Ende setzen 
Flag für 'Puffer: in GCR-Code! 
löschen 

Rückmeldung: '!ok' 

ausgeben und Ende der Formatierung 


Kopfelektronik 

in PCR-Register auf 
Schreibbetrieb 

umschalten (CB2 = 0) 

Port des Schreib-/Lesekopfes auf 
Ausgabe schalten 

$FF schreiben 

Zähler. in CPU-Register 


‚auf 10240 setzen 


auf Byte Ready warten 

Byte Ready Flag wieder bereit machen 
Low-Byte Zähler | 

einmal bis Null durchgelaufen ? 

ja, dann High-Byte Zähler erniedrigen 
bereits 10240 mal geschrieben ? 

ja, zurück zur aufrufenden Routine 


($0621/$0622) mal 'Byte Ready' Signal abwarten 


FDBF C9 24 CMP #824 
FD9i BO 03 BCS $FD96 
FD9Z, 4C 9C F9__JMP $F99C 
FD96 1 A9 FF LDA #$FF 
FD98 85 51 STA $51 
FDIA AI 00 _LDA #800 
FDIC 85 50 STA $50 
FDIE A9 01 LDA #801 
FDAD 4C 69 F9_ JUMP $F969 
LFBOC] 
Spur mit $FF beschreiben 
FDA3 AD OC IC  LDA $1COC 
FDA6 29 IF AND #$1F 
FDAB 09 CO ORA #$C0 
FDAA 8D OC IC STA $1C0C 
FDAD A9 FF LDA #8$FF 
FDAF 8D 03 1C STA $1C03 
_ FDB2 8D 01 1C  STA $1c01 
FDBSs A228 2 LDX #$28 
FDB7_ AO 00 LDY #800 
FDB9” 50 FE BVC $FDB9 
FDBB B8 CLV 
FDBC 88 DEY 
FDBD DO FA - BNE $FDB9 
FDBF CA DEX 
FDCO DO F7 BNE $FDB9 
FDC2 60 RTS 
LFBOF/FB17] 
FDC3 AE 21 06 LDX $0621 
FDC6_ AC 22 06 LDY $0622 
FDC9“ 50 FE BVC $FDC9 
FDCB B8 CLV 
FDCC CA DEX 
FDCD DO FA BNE $FDC9 
FDCF 88 DEY 
FoDDO 10 F7 BPL $FDC9 
FDD2 60 RTS 


Schleifenzähler 
setzen 


‚auf Byte Ready warten 


Byte Ready Flag zurücksetzen 
Low-Byte Zähler 

auf Null ? 

ja, dann Y erniedrigen 

Y mal auf 256 Byte Ready gewartet ? 
ja, zurück zur aufrufenden Routine 
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LFBO9/FBSY/FB7A/FBCB/FC12/FC2D/FDSF] 
Steuert Verhalten bei Fehlern beim Formatieren 


FDD3 CE 20 06 DEC $0620 Anzahl der Formatierversuche -1 

FDD6 FO 03 BEQ $FDDB Fehler beim Formatieren aufgetreten ? 
FDD8, AC 9C F9 JUMP $FYIC nein, dann weiter formatieren 

FDDB AO FF LDY #$FF Flag für 'Formatieren zu Ende! 

FDDD 84 51 STY $51 setzen 

FDDF CB INY Flag für '!Puffer in GCR-Code! 

FDEO 84 50 STY $50 Löschen | 

FDE2 4C 69 F9__JMP $F969 Formatieren Beenden 

LFC9Y8/FDEC] 


Kopiert Bytes in Puffer 0 um 70 Bytes weiter nach oben 
(Y-Register muß die Anzahl der zu kopierenden Bytes enthalten) 


FDES B9 00 03 LDA $0300,Y Byte aus Pufferanfang holen 

FDEB 99 45 03 STA $0345,Y und nach oben übertragen 

FDEB 88 DEY nächstes Byte anwählen 

FDEC DO F7 BNE $FDE5 bereits alle Bytes ? 

FDEE AD 00 03 LDA $0300 ja, dann letztes Byte 

FDFi 8D 45 03 _ STA $0345 kopieren und 

FDF4 60 RTS zurück zur aufrufenden Routine 

EFCYB] 

Kopiert den Bereich $01BB-$01FF in den Puffer auf den $30/$31 zeigt 
. FOF5, AO 44 LDY #$44 Startposition $OIFF 

FDF7 BY BB 01 2 LDA $O1BB,Y Byte aus Zwischenpuffer holen 

FDFA 91 30 STA ($30),Y und in Datenpuffer übertragen 

FDFC 88 DEY nächstes Byte anwählen 

FDFD 10 F8 BPL $FDF7 bereits alle Bytes übertragen ? 

FDFF 60 RTS ja, zurück zur aufrufenden Routine 


[8EDS9/YAE6/YCCC/FBIA/FD24/BFÜOC]) 
Kopfelektronik von Schreiben auf Lesen wmschalten 


FEOO AD OC IC LDA $ICOC Steuerregister holen 

FE03 .09 EO ORA #$E0 1 und Kopf auf Lesen umschalten 
FE0O5 8D OC IC STA $ICOC (CB2 Ausgang =1) 

FE0O8 A9 00 LDA #800 Datenport zum Kopf auf 

FEOA 8D 03 IC STA $1C03 Eingabe schalten 


FEOD 60 -RTS zurück zur aufrufenden Routine 
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[FCAE] 
Gesamte Spur mit $55 beschreiben 
FEOE AD OC IC LDA $iICOC Steuerregister holen 
FE11 29 IF AND #$1F und Kopf auf Schreiben umstellen 
FE13_ 09 CO ORA #%C0 Bit 5-7 ausblenden und Bit 6/7 setzen 
FE15 8D OC IC STA $iICOC (CB2 Ausgang =0) 
FE18 A9 FF LDA #$FF Datenport zum Kopf auf 
FEIA &D 03 1C STA $1C03 Ausgabe schalten 
FE1D A9 55 LDA #855 $55 an Schreibkopf 
FEIF 8D 01 IC  STA $1C01 übergeben 
FE22 A2 28 LDX #$28 Registerzähler auf 
FE24_ AO: 00 LDY #800 10240 mal Schreiben einstellen 
FE26! 50 FE BVC $FE26 Elektronik für nächstes Byte bereit ? 
FE28 B8 CLV ja, Flag wieder zurücksetzen 
FE29 88 DEY 256 Bytes schreiben 
FEZA DO FA BNE $FE26 bereits 256 Bytes: ? 
FE2C CA DEX ja, 40 mal 256 Bytes schreiben 
FE2D DO F7 BNE $FE26 bereits 40 mal geschrieben ? 
FE2F 60 RTS. ja, zurück zur aufrufenden Routine 
[YBEC/FC92] 
Blockheader von Binär in GER umrechnen 
FE30 A9 00 LDA #00 Pufferzeiger auf Start 
FE32 85 30 STA $30 zurücksetzen 
FE34 85 2E STA $2E Low-Byte des Zeigers auf Binärdaten 
FE36 85 36 STA $36 Position in aktuellem Puffer 
FE38 A9 BB LDA #%$BB Positionszeiger auf 
FE3A 85 34 STA $34 Zusatzpuffer richten 
FESC AS 31 LDA $31 Zeiger auf aktuellen Datenpuffer 
FE3E 85 2F STA $2F übernehmen 
FE4O AY 01 LDA #801 Zeiger auf Zusatzpuffer 
 FE42, 85 31 STA $31 setzen 
FE44 1 A4 36 LDY $36 aktuelle Position feststellen 
FE46 B1 2E LDA ($2E),Y Byte aus Puffer holen und 
FE48 85 52 STA $52 als erstes umzuwandelndes Byte merken 
FEAA C8 INY Zeiger auf nächstes Byte richten 
FE4B Bi 2E LDA ($2E),Y Byte aus Puffer holen und 
FE4D 85 53 STA $53 als zweites umzuwandelndes Byte merken 
FE4F C8 INY Zeiger auf nächstes Byte richten 
FE50 Bi 2E LDA ($2E),Y Byte aus Puffer holen und 


FE52 85 54 STA $54 als drittes umzuwandelndes Byte merken 
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FE54 C8 INY Zeiger auf nächstes Byte richten 


FE55 B1 2E _LDA ($2E),Y Byte aus Puffer holen und | 
FE57 85 55 STA $55 als drittes umzuwandelndes Byte merken 
FE59 C8  INY: Zeiger auf nächstes Byte richten 

FESA FO 08 BEQ $FE64 Ende des Puffers erreicht ? 

FESC 84 36 STY $36 nein, Position merken 

FEEE 20 DO F6 JSR $F6DO 4 Binärbytes in 5 GCR-Bytes umrechnen 
FE61, 4C 44 FE JMP $FE4A weiter umwandeln 


FE64 4C DO F6 UJMP $F6DO 4 Binärbytes in 5 GCR-Bytes umrechnen 


[Einsprung über Systemvektor FFFE] 


FE67_ 6C A9 02 JMP ($02A9) Sprung zur IRQ-Routine $9D88/$9DDE 
FE6A FF on. | . unbenutzter 
FE84 ... FF ROM-Bereich 


Aufbau des Directory und der BAM 


FE8S 12 | Nummer der Directoryspur (18) 
FE86 04 Zahl der Bytes für jede Spur in der BAM 
FE87T 04 | | Startposition der BAM in Sektor 18,0 


FE8ß 90 u . Beginn des Diskettennamens (Pos. 144) 


Tabelle der Floppybefehle 


FE89 56 ıy!ı 2 Validate / Collect 
.FE8A 49 Ä ı[! 2 Initialize 

FEB 44 | ıD! 2 Duplicate (nur Doppellaufwerke) 
FE8C 4D IM! x Memory Befehl 

FE8D 42 ıB! : Block Befehl 

FESE 55 'y! : User Befehl 

FESF 50 ıp! » Position / Record 
FE9O 26 | Igt 2 & - Befehl 

FE91 43 ıc! 2 Copy 

FE92 52 | IR! 2 Rename 

FEIE 53 '$! ; Scratch 

FE94 4E IN! 2 New / Header 


Adressen der Floppy-Befehle eo : 

. FE95 .84 05 C1 F8 1B 5C 07 A3 Low-Bytes der Einspungadressen 
FE9D FO 88 23 0D für die Befehle | 
FEAI ED DO C8 CA CC CB E2 E7 High-Bytes. der Einprungadressen 
FEA9 C8 CA CB EE für die Befehle 
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Bitmuster zum Prüfen der Befehlssyntax 


Bedeutung der Bits : 
(1=wird geprüft; entsprechdes Bit im Prüfwert muß dann O sein) 


Bit0O !=! Zeichen im Befehlsstring vorhanden 

Bit1 nach !=' Zeichen weitere Parameter vorhanden 
Bit2 mehrere Dateinamen für 2. Dateinennung 

Bit3 Joker in 2. Dateinennung vorhanden 

Bit6 mehrere Dateinamen für 1. Dateinennung 

Bit? Joker in 1. Dateinennung vorhanden 


FEAD 51 | %01010001 Datei(en) kopieren 
FEAE DD 411011101 Datei umbenennen 
FEAF IC %00011100 Datei(en) löschen 
FEBO 9E %10011110 Diskette Formatieren 
FEB1 1C %00011100 Datei lesen 


Kennzeichen im Befehlsstring für Betriebsmodus 

FEB2 52 57 41 4D R,W,A,M 
Dateitypkennzeichen in Befehlsstring 

FEB6 44 53 50 55 4C | BD... 18: PR 5. Ui; 


Namen der verschiedenen Dateitypen 


FEBB 44 53 50 55 52 1. Buchstabe : D, S, P, : 
FECO 45 45 52 53 45 2. Buchstabe : E, E, RR, S,E 
FEC5 40 51 47 52 4C 3. Buchstabe : L, a, 6,R,L 


Maske für LED-Bit im Steuerregister 
FECA 08 00 Laufwerk 0, Laufwerk 1 (nicht vorhanden) 


Flags um Prozessorstatus zu setzen 


FECC 00 N= =0 Z=1 
FECD 3F N=0 V=0 7Z=0 
FECE 7F N=0 =1 2Z=0 
FECF BF N=1 =0  2Z=0 


FEDO FF N=1 =1 Z=0 
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Zahl der Sektoren in bestimmtem Spurbereich 


FED1 11 Spur 31-35 : 17 Sektoren 

FED2 12 Spur 25-30 : 18 Sektoren 

FED3 13 Spur 18-24 : 19 Sektoren 

FED4 15 Spur 01-17 : 21 Sektoren 

FED5 41 Kennzeichen für 1541-Format ('A') 
FED6 04 Anzahl der Spurwechsel 


Spuren, bei dehnen die Sektorenzahl und Bitrate,geändert wird 
FED7 24 1F 19 12 Spurnummer 36, 31, 25 und 18 


Lage der Puffer im Speicher 
FEEO 03 04 05 06 07 07 High-Bytes der Pufferadressen 


[FFOB] Reset ohne Harwaretest; Zeiger gesetzt durch $EBC5 


FEE7 6C 65 00 JMP ($0065) Sprung nach $EB22 

[EA7A] 

LED initialisieren und anschalten 

FEEA 8D 00 iC STA $1C00 Bit für 'LED an! setzen (8) 
FEED 8D 02 IC STA $1C02 und Pin auf Ausgang schalten 
FEFO 4C 7D EA JMP $EA7D zurück zur Harwarefehlerroutine 
[BF36/E97D] 

Busverzögerung für 1541 Bus gegenüber 1540 Bus 

FEF3 8A TXA X-Register retten 

FEF4 A2 05 LDX #%05 Zähler setzen 

FEF6* CA DEX 42 Taktzyklen Verzögerung 

FEF7 DO FD BNE $FEF6 Zeit abgelaufen ? 

FEF9 AA TAX Ja, X-Register wieder herstellen 


FEFA 60 RTS zuruck zur aufrufenden Routine 


Das große Flo 


[82AB/E980] 

Nullbit ausgeben 

FEFB 20 AE E9 2 JSR $EYAE 
FEFE 4C 9C E9 JUMP $E9YIC 


[Einsprung über 'UI! Befehl] 


1541/1540 Busbetrieb umschalten 


FF01 AD 02 02 LDA $0202 
FFO4 C9 2D CMP #%2D 
FF06 FO 05 BEQ $FFOD 
FF0O8 38 SEC 

FF09 EY 2B SBC #%2B 
FFOB, DO DA BNE $FEE7 
Frop! 85 23 STA $23 
FFOF 60 RTS 
[EAA4] 


Ein-/Ausgabe initialisieren 
FF10 8E 03 18 STX $1803 
FF13_ A9Y 02 LDA #%02 
FF15 4C 5A A6 JMP $A65A 


[A664] 

Datenrichtung für PB setzen 
FF18 A9 1A LDA #$1A 
FFIA 8D 02 18 STA $1802 
FFID 4C AT EA JMP $EAA7 


[E9YDC/FF25] 
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Clock Ausgang auf High setzen 
Data Ausgang auf Low setzen 


3. Zeichen aus Befehlsstring holen 
und auf '-'! testen 

identisch ? 

nein, Zeichen mit 

I+! vergleichen 

identisch ? 

ja, Flag für Busmodus setzen 
zurück zur aufrufenden Routine 


Datenrichtung für PA setzen 
[Fehler siehe 7.1.5] 
weiter 


%00011010 
in Datenrichtungsregister 
wieder zurück zum Reset 


auf Data = Low (phys. High) warten und Timer setzen 


FF2O AD 00 18 LDA $1800 


FF23 29 01° AND #$01 

FF25 DO FY BNE $FF20 
FF27_ A9 01 LDA #%01 

FF29 8D 05 18 STA $1805 
FF2C 4C DF EY JMP $EYDF 
[EE3D] 

Diskette formatieren 

FF2F A9 FF LDA #$FF 
FF31 85 51 STA $51 


Bussteuerregister holen 
und Data Leitung testen 
ist Data gesetzt ? 
nein, Zähler 

für 256 Zyklen starten 
weiter 


Flag für aktuelle Spur 
Löschen 
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FF33 AD OF 18 LDA $180F Steuerregister holen 

FF36 29 20 AND #820 und Betriebsmodus testen 

FF38 DO 03 BNE $FF3D ist Floppy im 1541 Modus (1 MHz) 

FF3A AY 24 LDA #$24 ja, max.. Zahl der Spuren festlegen 

FF3C, 2C ‚byte $2C nächste 2 Bytes überspringen (Bitbefehl) 
FF3D A9 47 LDA #$47 Zahl der Spuren bei 2-Seiten-Betrieb 
FF3F 8D AC 02 STA $O2AC Spurenzahl setzen 

FF42 4C 79 AT  JMP $A779 Diskette formatieren 


[FA32] vgl. 87E7/9A66 
einen Halbschritt nach außen 


FF4S5 98 TYA. Y-Register 
FF46 48 PHA retten | 
FF47_ AD 64 LDY #564 Zahl der Abtastversuche für SpurO (100) 
FF49° AD OF 18 LDA $180F Steuerregister A holen 
FF4C 6A ROR A Spur0-Kennung (bit0) ins Carry | 
FF4D 08 PHP und Carry merken | 
FFAE AD OF 18 LDA $i80rF Steuerregister nochmal lesen 
FF51 6A ROR A Spur0-Kennung (bit0) 
- FF52 6A ROR A nach Bit7 schieben 
FF53 28 PLP vorheriges Abtastergebnis holen 
FF54 29 80 AND #%80 letztes Abtastergebnis isolieren 
FF56 9004 BCC $FFSC ist im ersten Test SpurO aktiv ? 
FF58 10 1D BPL $FF77 nein, ist SpurO jetzt erreicht ? 
FFSA, 30 02 BMI $FF5SE ja, immer Sprung nach $FE5E 
FFSC, 30 19 - BMI $FF77 ist SpurO immer noch aktiv ? 
FFSE 88. DEY ja, noch ein Versuch 
FFSF DO ES BNE $FF49 schon alle Versuche durchgeführt ? 
FF61 BO 14 BCS $FF77 ja, ist Kopf auf SpurO-Position ? 
FF63 AD 00 IC LDA $1C00 ja, Steuerregister für Steppermotor 
FF66 29 03 AND #03 _  Stepperbits isolieren 
FF68 DO OD BNE $FF77 ist eine Stepperspule angesteuert ? 
FF6A AS 7B LDA $7B | nein, Kopfsteuerbyte bei Lesefehlern 
FF6C DO 09 BNE $FF77 Kopf positionieren ? 
FF6E 68 PLA nein, Y-Register 
FF6F A8 TAY wieder herstellen 
FF7TO A9 00 LDA #500 Zahl der Stepperschritte 
FF72 85 4A STA $4A Löschen | 
FF74_ 4C BE FA JMP $FABE Kopf initialisieren 
FF77 68 PLA Y-Register 


FF78 AB TAY wieder. herstellen 
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FF79 ES 4A INC $4A noch einen Schritt nach außen 
FF7TB AE 00 IC LDX $1C00 Steuerregister holen 
FF7TE CA DEX und Kopf einen Schritt nach außen 
FFFF 4C 38 FA JMP $FA38 setzen 
[903D/EBC2] 
1541 Modus initialisieren 
FF82 20 59 F2_ JSR $F259 Diskcontroller Reset 
FF85 A9 05 LDA #805 IBM-34 Sektorversatz 
FF87_ 85 3C STA $3C festlegen 
FF89 AY 88 LDA #$88 IRQ Vektor auf 
FF8B 8D A9 02 STA $02A9 Routine $9D88 
FFEE A9 9D_LDA #890 (1541 Interrupt) 
FF9O 8D AA 02 STA $02AA richten 
FF93 AI 24 LDA #324 maximale Zahl der Spuren (35) 
FF95 8D AC 02 STA $O2AC setzen 
FF98 18. CLC Flag für '!Seite 1' 
FF99 4C F3 93 JUMP $Y3F3 Kopf anwählen 
[EE1D] 
Laufwerk aktivieren | 
FF9C 85 FF STA $FF Laufwerksstatus setzen 
FFYE 4C 00 CI JUMP $C100 LED anschalten 
[D610] 
Kopfsteuerbyte setzen 
_FFAI 85 7B STA $7B ' Byte in Zeiger setzen 
FFA3_ 4C 76 D6 JMP $D676 zurück 
[D628] 
Positioniermodus neben Spur zurücksetzen 
FFA& 20 76 D6 JSR %0676 Kopf zurücksteuern 
FFA9_ A9 00 LDA #00 Flag für 
FFAB 85 7B STA $7B Kopfmodus Löschen 
FFAD 60 RTS zurück zur aufrufenden Routine 
[CD91] 
Pufferzeiger bei '!B-W! setzen 
FFAE A4 82 LDY $82 Kanalnummer holen 


FFBO 4C DE D3_ JMP $D3DE Zeiger setzen 
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FFB3_ FF... unbenutzter 

FFEE ... FF ROM-Bereich 

[In 1571 DOS nicht verwendet] 

DOS-Systemvektoren 

FFE6 C6 C8 Diskette formatieren. $C8C6 
FFE8 8F F9 Laufwerksmotor ausschalten $FYBF 


User-Vektoren; Sprungadressen der User-Befehle 


FFEA 5F CD U1 oder UA : Sektor lesen $CD5F 
FFEC CD 97 uU2 oder UB : Sektor schreiben $CD97 
FFFE 03 05 U3 oder UC : Sprung in Puffer 2 %0500 
FFFO 06 05 U4 oder UD : Sprung in Puffer 2 %0503 
FFF2_ 09 05 U5 oder UE : Sprung in Puffer 2 %0506 
FFF4_ 0C 05 U6 oder UF : Sprung in Puffer 2 %0509 
FFF6 05 OF U7 oder UG : Sprung in Puffer 2 $050C 
FFF8 OF 05 U8 oder UH : Sprung in Puffer 2 %$050F 
FFFA 01 FF U9 oder UI : Umschalten 1540/41 $FFO1 
Systemvektoren 

FFFC AO EA U: oder UJ : Reset durchführen $EAAO 


FFFE 67 FE IRQ-Vektor (Bus/Diskkontroller) $FE67 
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(c) 1985 by Rainer Ellinger 
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7.2.3 Das C-1570-ROM im Vergleich 


Die C-1570 hat fast das gleiche Betriebssystem wie die C-1571. Es 
handelt sich dabei um ein Modifizertes 1571-ROM. Besonders 
einige technischen Komponenten sind bei der C-1570 anders als 
bei der C-1571. 


Der gravierenste Unterschied ist natürlich, daß die C-1570 keine 
zweiten Schreib-/Lesekopf hat. Aus diesem Grund wurden alle 
Stellen im ROM, die auf die zweite Diskettenseite umschalten 
geändert. Auch die Verwaltung der BAM geschieht nun wie bei 
der VC-1541. | 


Desweiteren unterscheidet sich die C-1570 in ihren beiden 
Motoren. Sowohl der Laufwerks- als auch der Steppermotor sind 
nicht so leistungsfähig, wie bei der C-1571. Die Motoren der C- 
1570 sind nicht so schnell auf Drehzahl oder benötigen langsamere 
Stepperimpulse. Deshalb wurden die für die Motorsteuerung ver- 
antwortlichen Zeitkonstanten geändert. 


Zum Schluß wurde noch einige kleine Fehler des C-1570 ROMs 
korregiert. Dabei ist bemerkenswert, daß die Seriengeräte der C- 
1571 noch diese Fehler enthalten und trotzdem funktionieren nd 
verkauft werden. 


C-1570 DOS 


ee prüfsume des 1STORM 
BuER 20. SR SM Diskette formatieren ———— 
3827 A008 LDYHSOB Verzögerung für 1561 Steppermotor 
BEDL CZ 90 AMP SID 131 Syntax Error ausgeben ——— 
0009 20 5ER AR SASB Dateityp auf 'PRGI prüfen —— 


A4AOF 8D D7’ FE STA $FED7 höchste Spurnummer setzen 
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A445 60 RTS Teil für 2. Diskettenseite 
A4L6 EA NOP abtrennen 


mu ne nn ann na nm  u n n m n n n nn n  n n  n n n u n n  a m n n n n n e 


A4DD 53 54 45 56 45 20 4C 41 Copyright Vermerk für 1570 Modifikation 


A4ES 4D OD ISTEVE LAM! 

1597 AD DT FE LDASFED” Numer der höchsten Spur holen 
A6TL AD DT FE LDASFED” Numer der höchsten Spur holen 
ACH 80T FE STASFEDT höchste Spurnumer setzen —— 
ADF DT FE STASFED” höchste Spurnumer setzen 
höF6 BD DT FE STASFED” höchste Spurnumer setzen —— 
A726 BD DT FE STASFEDT höchste Spurnumer setzen —— 
ATTS BODT FE STASFED” höchste Spurnumer setzen —— 
TEE 206 RS Steuerregister holen ———— 
ATCT ACCEAT MP SATEE 1541 Modus nicht testen ——— 
AMT ADT FE LDASFEDT Nummer der höchsten Spur holen 
KO AD DT FE LDASFEDT Numer der höchsten Spur holen 
1597 AU DT FE LDASFED” Numer der höchsten Spur holen 


[D867] Fehlerrückmeldung prüfen 


AAZF CY 02 CMP #%02 mit erster Fehlernummer vergleichen 
AA4i 90 07 BCC $AAAA liegt Fehler vor? 

AA43 C9 OF CMP #$0F nein, auf 'Drive Not Ready! prüfen 
AA45 FO 03 BEQ $AA4A ist Laufwerk bereit? 

AL, 4C 6B D3 2 UJMP $D36B Ja, zurück zur Hauptroutine 


AM&A 4C 73 D3 JMP $0D373 Fehler beachten 
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[84E4] Diskette formatieren 


AA4D 85 51 .$STA $51 aktuelle zu formatierende Spur setzen 
AA4F 20 7C 87 JSR $877C LED am Laufwerk anschalten 

AA52 20 89 AY_ JSR $A98Y Diskette formatieren 

AM5 48 PHA Rückmeldung retten 

AM6 20 88 87 _ JSR 8788 LED am Laufwerk ausschalten 

AA59 68 PLA Rückmeldung wieder holen 

AMSA 60 RTS zurück zur aufrufenden Routine 


[9009] Dateityp auf Programmdatei testen 


AAB AS E7 LDA $E7 Dateityp-Byte holen 

AA5SD 29 07 AND #807 und Flags für Dateityp isolieren 
AASF C9 02 CMP #802 mit 'PRG' vergleichen 

AA61 60 RTS zurück zur aufrufenden Routine 


[AA62] Steuerregister lesen 


AA62 AD OF 18 LDA #$180F Wert des Steuerregisters holen 

AA65 2C 01 18 BIT #81801 neuen Wert in Steuerregister einlesen 
AA68 60 RTS zurück zur aufrufenden Routine 

0022 DD? FE CH SHE? mit maximalen Spur vergleichen 
DOSE KCBCDE MP dobausfühen nn 
D05D 20 3605 SR W566 BAM vonDiskettelesn ——— 
0097 9 FR 02 STASOAFAK  High-Byte der Zahl der freien Blocks — 
0367 MCSEAR MESSE Rückmeldung prüfen 
BSD CDDT FE CMPSFED7 mit maximaler Spur vergleichen 
0563 CD D7 FE CMP SF? mit maximaler Spur vergleichen 
7 Vetztes Zeichen der Einschaltmeldung = 
EDBF 20 BTEE USRSEEBT neue BAMerzeen 


EE4D 20 05 FO JSR $FO005 Puffer für BAM setzen 
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EEB1 20 60 DA JSR $D460 Sektor lesen 

EF2B 20 20 F2 SR SF220 Zahl der freien Blöcke überprüfen 
EFF CDDTFE CMPSFED? mit maximaler Spur vergleichen 
E37 KCBADS MP SDSEA BAM auf Diskette schreiben —— 
ESF AOCFER USRSERCF BAM-Pufferzeiger setzen —— 
EOS AD CFER USRSERCF  BAM-Pufferzeiger setzen ——— 
POOL ACBADS MP SSR BAM auf Diskette schreiben —— 
MOOS 2O BAER USRSERBA Pufferzeiger setzen ———| 
FO9C ACBRDS MP SDR BAM auf Diskette schreiben —— 
F1O7 GC B6DS MP 566 BAM von Diskettelesen ———— 
ED MO a aktuellen BAN-Zeiser 
Fi12F 48 PHA retten 

FIAT DOT FE CMPSFED? mit maximaler Spur vergleichen 
FICh 201 FO RSFOM BAMZeiger setzen 
FIDS CDD7 FE CMPSFED? mit maximaler Spur vergleichen 
DR 201 FO ARSFOM  BAMZeiger setzen | 
F2AB AE DE FE LDKSFEDB Zahl der Spurzonen der Diskette 
FEN MD LAHM Verzögerung bei 'Motor anı auf 1/0.5 sec 
FFSF 80 D7 FE STASFED? maximale Spurnumer merken | 
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KAPITEL 8 


DIE FLOPPY IM GRIFF - 
ÜBERSICHTSTABELLEN 
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8.1 1571 ZEROPAGE LISTING 


0 - 5 Jobcode des Auftrags für entsprechenden Puffer (0-5) 
$0 - $5 Puffer 5 ist im RAM nicht angelegt. 


Bedeutung der Jobcodes»: 


$80 Lesen eines Sektors 

$88 Sektor auf gleicher Spur lesen 
$90 Schreiben eines Sektors 

$AO Verify eines Sektors 

$B0 Suchen eines Sektorheaders 

$C0 Kopf auf SpurO setzen 

$00 Programm im Puffer ausführen 

$EO Programm in Jobschleife einbinden 
$FO Diskette formatieren 


Bedeutung der Rückmeldungen»: 


$00/$01 kein Fehler aufgetreten 
$02 Blockheader nicht gefunden 

$03 Sync-Markierung nicht gefunden 
$04 Datenblock nicht gefunden 

$05 Datenblockprüfsumme fehlerhaft 
$06 Formatierfehler 

$07 Verify Fehler 

$08 Schreibschutz vorhanden 

$09 Headerprüfsumme fehlerhaft 

$0A Datenblock zu lang 

$0B falsche ID / Diskette gewechselt 
$0D Indexloch nicht gefunden 

$0E Syntaxfehler bei CP/M Kommandos 
$0OF keine Diskette eingelegt 


6 - 17 jeweils Spur. und Sektornummer für Puffer 0 bis 5 
$6 - $11 So ist z.B in 6 die Spur für Puffer 0 und in 7 die 
dazugehörige Sektornummer 
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18 - 19 erstes und zweites Zeichen der ID der Diskette 
$12 - $13 in Laufwerk O0 

20 - 21 unbenützte. 
$14 - $15 Speicherstellen 

22 - 23 erstes und zweites Zeichen der ID des zuletzt 
$16 - $17 gelesenen Sektorheaders 

24 - 25 Spur. und Sektornummer des zuletzt 
$18 - $19 gelesenen Sektorheaders 


26 Prüfsumme des zuletzt gelesenen 
‚SIA Sektorheaders 
27 Steuerbyte der Routine $86E6 
$1B Pufferzeiger in Formatierroutine $9B89 
28 Flag für 'Diskette initialisieren!' 
$IC 0= nein <= ja 
29 Wie 28/$1C, nur für Laufwerk 1 
$1D Wert immer 1 [EBBA] 
30 aktueller Zustand der Schreibschutzkerbe 
$1E 0= Schreibschutz aktiv 1=kein Schreibschutz angebracht 


32 Betriebsstatus des Laufwerk O 

$20 Bit4 : 1= Motor läuft nach, soll ausgeschaltet werden 
Bit5 : 1= Motor ist angeschaltet 
Bit6 : 1= Steppermotor ist aktiv, Kopf wird gesetzt 
Bit7 : 1= Laufwerk ist noch nicht bereit 


35 $23 Flag für Busmodus : 0= 1541 Bus. <>0= 1540 Bus 
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36 - 43 Puffer für Sektorheader 
$24 - $2B Commodore Sektoren : Daten in GCR-Code 
CP/M Sektoren : ID Feldinhalt 

4a - 45 unbenützte 

$2C - $2D Speicherstellen 

46 - 47 Zeiger auf aktuelle Pufferposition 

$2E - $2F bei GCR Umwandlung 

48 - 49 Zeiger auf Position in 

$30 - $31 aktuellen Datenpuffer 

50 - 51 Zeiger auf Spur-/Sektortabelle der Jobschleife (6-17) 
$32 - $33 beim Formatieren: Zeiger auf aktuellen Sektorheader 


55 $37 Busstatusbyte : | 
BitO 1=Flag für 'Datei hat nur einen Sektor! 
Bit3 umgekehrter Zustand der Clock-Leitung 
nächstes, zu erwartendes Clock-Signal 
Bit6 1= 1571 Busmodus = 1541 Busmodus 
Bit7 i= 1571 Betriebsmodus (2 MHz Takt) 
0= 1541 Betriebsmodus (1 MHz Takt) 


60 $3C Sektorversatz bei IBM-System-34 (nach Reset 5) 
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65 $41 Nummer des letzten Jobs [nur verwendet in F340/F44B] 
66 $42 Differenz zwischen neuer und alter Spur 


74 $4A Bit0O-6 : Zahl der zu fahrenden Halbspurschritte 
Bit? : 1= Schritte nach außen _ 
0= Schritte nach innen 


78 - 79 Zwischenspeicher für aktuellen 
$4E - $4F Pufferzeiger bei GCR Umwandlung 
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80 $50 Flag für Pufferdatenformat 
0= Binärdaten <>0O= GCR-Daten 
81 $51 aktuelle Spur beim Formatieren 
$FF= Formatieren nicht im Gang 
8 - 85 Zwischenspeicher für 4 Binärbytes, die in 
$52 - $%55 5 GCR-Bytes umgewandelt werden sollen 
86 - 93 Zwischenspeicher für 8 GCR-Werte, die 8 Binärhalbbytes 
$56 - $5D und somit 4 Binärbytes ergeben 
94 SE Befehlsstatusbyte 
Bit 0-4 : letzte Fehlermeldung der Jobschleife unter CP/M 
Bit? : 1= Diskette im IBM-System-34 Format 


96 $60 IBM-34-Format : kleinste Sektornummer der Spur 


97 $61 IBM-34-Format : größte Sektornummer der Spur 
98 - 99 1541 Modus : Zeiger auf aktuelle Kopfsteuerroutine 
$62 - $63 1571 Modus : Zeiger auf Positionierphase 


101 - 102 Zeiger auf Reset (kein Hardwaretest) $EB22 
$65 - $66 wird von $FEE7 angesprungen, wenn '!'UI! nicht '+! oder '-'! hat 


104 $%68 Flag für Initialisiermethode (immer 0). [gesetzt durch C63D] 
0 = Disketten automatisch initialisieren 
0 = Disketten nur von Hand initialisieren (i-Befehl) 


105 $69 Sektorversatz für Commodore Disketten (6) 
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106 $6A BitO-5 : Zahl der Leseversuche bei Fehlern 
Bit6 : 1= Kopf nicht neben Spur setzen 
Bit7?_ : 1= SpurO nicht anfahren 


107 - 108 Zeiger auf Tabelle der 1541 User Befehle 
$6B - $6C (Adresse $FFEA) 


111 - 114 Zwischenspeicher für diverse Zwecke 
$6f - $72 CBAM-Berechnungen, etc.) 


117 - 118 Adressenzeiger für verschiedene 
$75 - $76 Systemzwecke 


125 $7D Flag für '"ATN beachten! 0= ja; <>0= ATN ignorieren 


128 $80 Nummer der aktuellen Spur 
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134 - 138 Zwischenspeicher für 
$86 - $8A diverse Zwecke 


148 - 149 Zeiger in Directorypuffer 


150 $96 Nummer des zuerst gelesenen IBM-34 Sektors 


153 - 154 Zeiger auf Startadresse von 
$99 - $9A Puffer O0 ($0300) 
155 - 156 Zeiger auf Startadresse von 
$9B - $IC Puffer 1 ($0400) 
157 - 158 Zeiger auf Startadresse von 
$p’ - $IE Puffer 2 ($0500) 
159 - 160 Zeiger auf Startadresse von 
$9F - $AO Puffer 3 ($0600) 
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161 - 162 Zeiger auf Startadresse von 

$Al1 - $A2 Puffer 4 ($0700) 

163 - 164 Zeiger auf Startadresse des 

$A3 - $A4 Eingabepuffers ($0200) 

165 - 166 Zeiger auf Startadresse des 

$A5 - $A6 Fehlermeldungspuffers ($02D5) 

167 - 173 Kanal-Puffer-Tabelle 1: 

$A7 - $AD Zuordnung eines ersten Puffers zu internem Kanal 
167-173 entspricht Kanal 0-6 


Bedeutung des Bytes : 


BitO-5 : Puffernummer die Kanal zugeordnet ist 
Bit6 : 1= Pufferinhalt zurückschreiben 
Bit? : 0= Puffer gerade aktiv benützt 
Wert $FF : kein Puffer zugeteilt 
174 - 180 Kanal-Puffer-Tabelle 2 : 
$AE - $B4 ordnet 2. Puffer zu (Funktion wie 167-173) 
181 - 186 Zahl der von der über internen Kanal angesprochenen Datei 
$B5 - $BA belegten Blocks (Low-Byte) 
Index : Kanalnummer $82 
187 - 192 Zahl der von der über internen Kanal angesprochenen Datei 
$BB - $CO belegten Blocks (High-Byte) 
Index : Kanalnummer $82 
193 - 198 Zeiger auf aktuelles Datenbyte der Datei 
$C1 - $C6 über internen Kanal 
Index : Kanalnummer $82 
199 - 204 Recordlänge der über internen Kanal 
$C7 - $CC geöffneten relativen Datei 
Index : Kanalnummer $82 
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205 - 210 Kanal-Puffer-Tabelle 3 : 
$CcD - $D2 ordnet 3. Puffer zu (Funktion wie 167-173) 
211 $D3 Zeiger auf ersten Dateinamen 


212 $D4 Position in aktuellem Record 


216 - 220 Tabelle Dateiname-Diretorysektor 

$D8 - $DC Directorysektor, wo Dateiname vorkommt 

221 - 225 Tabelle Dateiname-Position in Directorysektor 
$DD - $E1 merkt Stelle des Directoryeintrags 


236 - 241 Tabelle Kanalnummer-Dateityp 

$EC - $Fi1 Bit0O : Laufwerksnwmer (0/1) 
Bit1-3: Dateityp 

242 - 247 Tabelle Kanalnummer-Status 

$F2 - $F7 Biti : 1= Kanal ist Schreibkanal 
Bit3_ : 0= EOI Flag gesetzt 
Bit” : 1= Kanal ist Lesekanal 


248 $f8 Flag für EOI (letztes Zeichen); 0= ja 1= nein 


250 - 254 Tabelle Puffer-interne Kanalnummer 


574 Die Flo im _Gri 


257 - 325 Hardwarestack des 
$101 - $145 Prozessors 


433  $1B1 Flag für aktuelle Diskettenseite; 0= Seite 1 


512 - 553 Eingabepuffer für Befehlsstrings 
$200 - $229 vom Rechner 
554 $%22A Nummer des aktuellen Befehls; $FF= kein Befehl vorhanden 
555 - 573 Tabelle Sekundäradresse-interner Kanal 
$22B - $23D Bit0O-3 : interne Kanalnummer 
Bit6 : 1= Kanal zum Lesen (Talker) 
Bit? : 1= Kanal zum Schreiben (Listener) 
Wert $FF: Sekundärkanal nicht belegt 


588 $24C Zwischenspeicher für Sekundäradresse bei Open 
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591 - 592 Tabelle der Pufferbelegung 
$24F - $250 jedes Bit des 16-Bit-Wert repräsentiert einen Puffer 
1= Puffer belegt; 0= Puffer frei 


593 %251 Flag für 'BAM neu schreiben, da ungültig'; 1=ja O=nein 


595 $253 Flag für 'Dateieintrag gefunden!'; $FF= nein 


596  %254 Flag für 'Directory im Puffer'; O=ja <>O=nein 


598 $256 Bitmap für Kanalbelegung 
1= Kanal frei; 0=Kanal belegt 


603 - 607 Tabelle Puffer-Jobcode 
$25B - $25F letzer Jobcode des Puffers 


620 $%26C Fehlernummer / Blinkzähler 
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622 $26E letztes aktives Laufwerk LI[D7D1/D9FE] 


623 $26F Nummer des letzen Sektors L[D7DC/DAO03] 


626 - 627 Zwischenspeicher bei Directoryerzeugung 
$272 - $273 (z.B. für Blockzahl, etc.) 


629 $275 in Eingabepuffer zu suchendes Zeichen L[C165/C160/C268/C273] 


634 - 639 Tabelle Dateiname-Position im Eingabepuffer 
$27A - $27F zeigt auf Beginn in Befehlsstring 


654 $28E Nummer des letzten Laufwerks 
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664 $298 Flag für 'Fehler bei Job beachten!'; >128= nein <128= ja 


667 - 668 Zeiger auf aktuellen BAM-Spur Zwischenspeicher für 
$29B - $29C Laufwerk O0 und 1 

669 - 670 Nummer der Spuren durch die die nachfolgenden 
$29D - $2AO BAM-Zwischenspeicher belegt sind 


684 $2AC Nummer der größten Spur +1 der Diskette 
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685 - 686 Zeiger in BAM-Puffer 
$2AD - $2AE (Zwischenspeicher um Zeiger zu retten) 

687 _ $2AF Flag für 'von 1541 auf 1571 IRQ umschalten'; 1= nein 
688 - 715 Puffer um Directoryzeile zu 
$2B0 - $2CB erzeugen 


725 - 760 Puffer um Fehlerklartextmeldung zu 
$2D5 - $2F8 generieren 


762 - 763 Zahl der freien Blocks der Diskette in 
$2FA - $2FB Laufwerk O0 und 1 (Low-Bytes) 

764 - 765 Zahl der freien Blocks der Diskette in 
$2FC - $2FD Laufwerk O0 und 1 (High-Bytes) 

1766 - 767 Steuerbyte für Positionierung neben Spur 
$2FE - $2FF für Laufwerk O0 und 1 
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8.2 FLOPPY-ERRORS IM ÜBERBLICK 


Nummer Fehlerbedeutung 


00 OK-Meldung 


01 FILES SCRATCHED,XX 
Rückmeldung nach dem Löschen 
XX gibt die Zahl der gelöschten Dateien an 
Die Angaben TT und SS sind die Spur- und Sektornummer 
des Datenblocks, wo der Fehler auftrat. 
20 READ ERROR,TT,SS 
Der Sektorheader eines Blocks wurde nicht 
gefunden. Dabei handelt es sich um eine 
unformatierte oder beschädigte Diskette. 


21 READ ERROR,TT,SS 
Die Sync-Markierung wurde nicht gefunden. 
Entweder ist die Floppy nicht formatiert oder 
es liegt ein Fehler am Laufwerk, beispiels- 
weise ein dejustierter Lesekopf, vor. 


22 READ ERROR,TT,SS 
Der Datenblock eines Sektors wurde nicht 
gefunden. 

23 READ ERROR,TT,SS 


Es wurde ein Prüfsummenfehler festgestellt. 

In diesem Fall müssen Sie versuchen, den Sektor 
noch zu retten, indem Sie mit den Direkt- 
zugriffsbefehlen den Sektor mehrmals lesen, bis 
der Fehler eventuell nicht mehr auftritt. 
Ansonsten müssen Sie den Sektor in den Floppy- 
Puffer einlesen und neu zurückschreiben. 

Dabei: wird die Prüfsumme neu berechnet, 
allerdings kann der Inhalt des Sektors 
fehlerhaft sein 
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26 


27 


29 


31 


32 


33 


34 
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WRITE ERROR,TT,SS 

Beim Schreiben eines Sektors wurde beim 
nachträglichen Verify ein Fehler fest- 
gestellt. Sie sollten in diesem Fall eine 
neue Diskette verwenden. 


WRITE PROTECT ON,TT,SS 
Die Diskette ist durch eine Schreibschutz- 
marke geschützt. 


READ ERROR,TT,SS Im Sektorheader wurde ein 
Prüfsummenfehler festgestellt. 


DISK ID MISMATCH,TT,SS 

Die ID des Sektorheaders stimmt nicht mit der 
zuletzt gelesenen ID überein. Maßnamen: 
Diskette initialisieren oder neu formatieren. 


SYNTAX ERROR 
Die C-1570/71 kennt den Befehl, der über den 
Befehlskanal gesendet wurde nicht. 


SYNTAX ERROR 
Der Befehl kann von der C-1570/71 nicht aus- 
geführt werden. (z.B. Backup) 


SYNTAX ERROR 

Der über den Befehlskanal gesendete Befehl ist 
länger als 41 Zeichen und der Eingabepuffer der 
Floppy ist gefüllt. 


SYNTAX ERROR 
Der Joker wurde beim Schreiben als Dateinamen 
verwendet. 


SYNTAX ERROR 

Der Dateiname wurde nicht gefunden. Sie haben 
eventuell den Doppelpunkt nach dem Befehls- 
buchstaben vergessen. 


im Gri 
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39 FILE NOT FOUND 
Die angegebene Autostart-Datei wurde auf der 
Diskette nicht gefunden. 


50 RECORD NOT PRESENT 
Der angesprochene Datensatz einer relativen 
Datei ist nicht angelegt. Beim ersten Schreiben 
des Datensatzes kann diese Meldung ignoriert 
werden. Beim Lesen weißt sie darauf hin, daß 
der gewünschte Datensatz nicht existiert. 


51 OVERFLOW IN RECORD 
Die an die Floppu übertragenen Daten sind 
länger als der Datensatz, wobei die überzähligen 
Zeichen ignoriert werden. 


52 FILE TOO LARGE 
Die Nummer des letzen Datensatzes ist zu groß, 
da eine derartige Datei nicht mehr auf die 
Diskette passen würde. 


60 WRITE FILE OPEN 
Es wurde versucht auf eine nicht ordnungsgemäß 
geschlossene Datei zuzugreifen. Diese kann 
nur im 'Modify'-Modus eröffnet werden. 


61 FILE NOT OPEN 
Es wurde versucht eine Datei zu benützten, die 
nicht geöffnet wurde. 


62 FILE NOT FOUND 
Das angegebene Programm oder die Datei wurden 
nicht gefunden. 


63 FILE EXISTS 
Die neue Datei ist auf der Diskette bereits 
vorhanden | 
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65 
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67 
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FILE TYPE MISMATCH 

Der beim Eröffnen angegebene Dateityp stimmt 
nicht mit dem im Directory verzeichneten 
Dateityp überein. 


NO BLOCK,TT,SS 
Der bei Block-Allocate angegeben Block ist 


‚bereits belegt. TT und SS geben die Spur- und 


Sektornummer des nächsten freien Blocks der 
Spur an. Haben TT und SS den Wert 0, dann 
ist kein freier Sektor mehr vorhanden. 
Bitte beachten Sie das in Kapitel 2.1.3 
angegebene Fehlverhalten des Block- 
Allocate-Befehls. 


ILLEGAL TRACK OR SECTOR,TT,SS 
Die beim Direktzugriffsbefehl angegebenen 
Sektorparameter sind fehlerhaft. 


ILLEGAL TRACK OR SECTOR,TT,SS 
Die Sektorverkettung zeigt auf einen Sektor, 
der nicht vorhanden ist. 


NO CHANNEL 

Es ist kein weiterer Kanal mehr verfügbar. 

Sie müssen zuerst eine noch offene Datei wieder 
schließen, damit wieder ein Kanal zur Verfügung 
steht. 


DIR ERROR,TT,SS 

Das BAM-Verzeichnis im Floppy-Speicher stimmt 
nicht mit dem BAM-Verzeichnis auf der Diskette 
überein. Sie müssen in diesem Fall die 
Diskette initialisieren 


DISK FULL 
Die Kapazität der Diskette ist erschöpft und 
es sind weniger als drei Blocks frei. 
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73 Einschaltmeldung 
Es wurde versucht eine Diskette zu beschreiben, 
die unter einem anderen DOS formatiert wurde. 


74 DRIVE NOT READY 
Es ist keine formatierte Diskette eingelegt. 


Szczepanowski 


COMMODORE 


für Einsteiger 


EIN DATA BECKER BUCH 


Gerits - Schieb - Thrun 


COMMODORE 


intern 


EIN DATA BECKER BUCH 


Homig - Trapp - Weltner 


V128) 


Tips & Tricks 


Eine wahre Fundgrube für den 
128er Anwender 


EIN DATA BECKER BUCH 


Sie wollen mit dem Commodore 
128 in die Computerwelt einstei- 


. gen? Dann brauchen Sie dieses 


Buch! Behandelt werden: Peri- 
pheriegeräte, Tastaturbedie- 
nung, Laden und Starten von 
Fertigprogrammen, BASIC und 
Erstellung eines Adressenver- 
waltungsprogramms. Hand- 
bücher sind oft zu knapp und 
trocken geschrieben. Dieses 


“ Buch nicht! 


Szczepanowski 

Commodore 128 für Einsteiger 
ca. 250 Seiten, DM 29,- 
Erscheint im November 

ISBN 3-89011-099-1 


Ein Muß für jeden, der sich inten- 
siver mit dem C-128 beschäftigt. 
Einführung in das System, Hard- 
ware- und Interfacebeschrei- 
bung; Erläuterung des VIC- 
Chips, des VDC, SID, detailliert 
und leichtverständliche Be- 
schreibung der Memory-Mana- 
gement-Unit (MMU), ein sehr 
ausführlich kommentiertes 
ROM-Listing, Einführung: wie 
arbeite ich mit ROM-Listing und 
Zeropage, mit sehr vielen Pro- 
grammbeispielen! 
Gerits/Schieb/Thrun 

128 INTERN 

507 Seiten, DM 69,- 

ISBN 3-89011-098-3 


Eine Fundgrube für alle C-128 
Besitzer! Ob man einen eigenen 
Zeichensatz erstellen, die dop- 
pelte Rechengeschwindigkeit im 
64er Modus benutzen oder die 
vorhandenen ROM-Routinen 
verwenden will. Die‘ es Buch ist 
randvoll mit wichtigen Informa- 
tionen; z.B.: Bank-Switching/ 
Speicherkonfiguration, Regi- 
stererläuterungen zum Video- 


Controller und 640 x 200 Punkte 


Auflösung. Dieses Buch darf 
bei keinem 128er fehlen! 
Hornig/Weltner/Trapp 

128 TIPS & TRICKS 

327 Seiten, DM 49,- 

ISBN 3-89011-097-5 


Kampow 


COMMODORE 


Das große 
BASIC-Buch 


EIN DATA BECKER BUCH 


Liesert - Linden 


COMMODORE 


EIN DATA BECKER BUCH } 


Plenge/Vüllers 


Das große 
GRAFIK-Buch 


EIN DATA BECKER BUCH 


Burbenitätleinenn | | 


Sie haben den Einstieg auf dem 
Commodore 128 geschafft?Dann 
werden Sie mit diesem Buch zum 
Profi. Aus dem Inhalt: Datenfluß- 
und Programmablaufpläne, fort- 
geschrittene Programmiertech- 


- niken, Menueerstellung, Grafik- 


programmierung, mehrdimen- 
sionale Felder, Sortierroutinen, 
Dateiverwaltung und viele nütz- 
liche Utilities. So lernen Sie pro- 
fessionelles Programmieren. 
Kampow 

Das große BASIC-Buch zum 
COMMODORE C-128 

ca. 450 Seiten, DM 39,— 

ISBN 3-89011-114-9 


Schlagen Sie dem Betriebs- 
system Ihres C-128 ein Schnipp- 


. chen. Wie? Mit PEEKS & POKES 


natürlich! Dieses Buch erklärt 
Ihnen leichtverständlich den 
Umgang damit. Mit einer riesigen 
Anzahl wichtiger POKES und 
ihren Anwendungsmöglichkei- 
ten. Dabei wird der Aufbau Ihres 
128ers prima erklärt: Betriebs- 
system, Interpreter, Zeropage, 
Pointer und Stacks sind nur 
einige Stichworte dazu. Dererste 
Schritt hin zur Maschinen- 
sprache! 

Liesert/Linden 

PEEKS & POKES zum C-128 

ca. 250 Seiten, DM 29,- 

ISBN 3-89011-138-6 

Erscheint Ende November 


Lassen Sie sich verzaubern! 
Durch die Grafikmöglichkeiten 
des C-128. Das BASIC 7.0 enthält 


: viele Befehle, die das Program- 


mieren der Grafik erheblich ver- 
einfachen. DATA BECKER Grafik- 
spezialisten zeigen Ihnen, wie 
man diese Befehle benutzt, z.B. 
für Hi-Res/Multi- und Extended 
Color Grafiken, für Sprites, 3-D, 
Soft Scrolling und Konstruk- 
tionsprogramme. Selbstver- 
ständlich wird auch der VIC-Chip 
mit seinen Registern genau 
erklärt! 
Durben/Löffelmann/Plenge/ 
Vüllers 

Das Grafikbuch zum C-128 

ca. 300 Seiten, DM 39,- 


‚ISBN 3-89011-154-8 


Erscheint im November 


Das Superbuch zum Z80 Prozes- 
sor! Systemarchitektur, Pinbe- 
schreibung, Register, Befehls- 
ausführung, Flags, CPU-Soft- 
ware, Anschluß von Systembau- 
steinen, serielle/parallele Daten- 
übertragung, Zähler/Timerbau- 
stein Z80-CTC und Befehlsatz. 
Alles ausführlich beschrieben 
und mit vielen Abbildungen! Als 
Lehrbuch und Nachschlagewerk 
fürjeden Maschinensprachepro- 
grammierer unentbehrlich! 


Hausbacher 
Technik & Programmierung Das Prozessorbuch zum Z80 
EIN DATA BECKER BUCH 560 Seiten, DM 59,- 


ISBN 3-89011-096-7 


1 Falls Sie auf dem Commodore 
Schieb - Weiler 128 das CP/M einsetzen wollen, 

sollten Sie dieses Buch lesen! 
COMMODORE Von grundsätzlichen Erklärun- 


7 gen zur Speicherung von Zahlen, 
/ Schreibschutz oder ASCII, 
Schnittstellen und Anwendung 

von CP/M-Hilfsprogrammen. Für 


Fortgeschrittene: CP/M und 
Das CP/M Buch Commodore-Format, Erstellen 
von Submit-Dateien u.v.m. Nut- 
zen Sie die vollen Möglichkeiten 
des Standard-Betriebssystems 
CP/M! 

Weiler/Schieb 

Das CP/M-Buch zum C-128 

ca. 250 Seiten, DM 49,- 

ISBN 3-89011-116-5 


EIN DATA BECKER BUCH 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 


DAS STEHT DRIN: 

Das große Floppybuch zur 1570/1571 gibt Ihnen das not- 
wendige Wissen zur Programmierung Ihres neuen Dis- 
kettenlaufwerkes. Für Anfänger, Fortgeschrittene und 
Profis. Dieses Buch beschreibt wirklich alle a 
merkmale dieser schnellen Floppy. 


Aus dem Inhalt: 


- Einführung für Einsteiger 

- Die Floppy und das COMMODORE- BASIC 
- Sequentielle und relative Dateien 

— Fremde Diskettenformate verarbeiten 


- Programmierung im DOS-Puffer 
Die CP/M-Fähigkeiten der 1570/71 


—- Floppy intern: Schaltungsaufbau und Funktion 
— 1571 Fast-Load 
- Das DOS im Detail 


| 


Komplettes DOS-Listing (mit Cross-Reference) 


UND GESCHRIEBEN HAT DIESES BUCH: 

Rainer Ellinger ist langjähriger Mikrocomputer-Spezialist 
mit sehr weitreichenden Assembler- und Hardware- 
kenntnissen. Sein besonderes Anliegen war es, die teils 


\ 


komplizierten Sachverhalte in eine auch für den weniger 
versierten Leser, verständliche Sprache zu verpacken. 


